タイトル : Re^5: Split関数について 投稿日 : 2010/03/10(Wed) 13:15 投稿者 : 従業員
keisuke 様 ご回答下さいましてありがとうございます。 以下のように2次元に取り込みたかったのです。 色々考えましたが、下記のようなことは思いつきませんでした。 VB6より移行で苦労しています。 ありがとうございました。 > > Dim ARRYStr2(5) As String > Dim A(5, 5) As String > Dim separator As Char() = "" > Dim options As StringSplitOptions = StringSplitOptions.RemoveEmptyEntries > Dim returnValue As String() > Dim s As Integer > > > ARRYStr2(1) = "**** ** ***** ****" > ARRYStr2(2) = "2222 888 9999 4444" > ARRYStr2(3) = "111 99 857 65985* " > ARRYStr2(4) = "11 1 1111 111 1" > ARRYStr2(5) = "*8888 8888 888 88" > > For I = 1 To 5 > returnValue = ARRYStr2(I).Split(separator, options) > For s = 1 To 4 > A(I, s) = returnValue(s - 1) > Next > Next I |