タイトル : Re^4: Split関数について 投稿日 : 2010/03/10(Wed) 13:01 投稿者 : keisuke
>テキストが複数行あるために配列に入りません この言葉が引っかかります、テキストが複数行てことは、合体させてもいいのかしら・ とりあえず、勝手に、、、、 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 |