SplitByDelimiterList
説明
指定した文字列を複数のデリミタ文字列で分離し、配列に返します。
書式
Object.SplitByDelimiterList(retArray,Expression,DelimiterList,[retStart]) As Long
| 引数 | 説明 |
|---|---|
| retArray | 分離された文字列を配列で返す変数を指定します。 |
| Expression | 分離したい文字列を指定します。 |
| DelimiterList | 複数のデリミタ文字列をパイプ文字で連結して指定します。 |
| retStart | 省略可能です。最初のデリミタが見つかった位置を返します。 |
戻り値
| 戻り値 | 説明 |
|---|---|
| True | 正常終了しました。 |
| False | 異常終了しました。エラーの詳しい内容はShowErrorメソッドで確認出来ます。 |
実行例
Set
Acad=CreateObject("AcadRemocon.Body")
Expression="X=1 Y=2 Z=3"
If Acad.SplitByDelimiterList(retArray,Expression,"X=|Y=|Z=") Then
MsgBox CDbl(retArray(0))
MsgBox CDbl(retArray(1))
MsgBox CDbl(retArray(2))
End If