VisualBaisc2008Expressでプログラムしています。
2次元配列strA()と、同じく2次元配列strB() があるとします。
strA()の「第1行」を、strBの「第0行」に格納するサブルーチンを書いていただけますか。
例:
strA = "
AAAA aaaa
BBBB bbbb
CCCC cccc"
strB = ""
↓
strA = "
AAAA aaaa
BBBB bbbb
CCCC cccc"
strB = "
aaaa
bbbb
cccc"
行番号をy(999まである)として、strA()の「第1列」を、strBの「第0列」に格納する場合
For y = 0 To 999 strB(0, y) = strA(1, y) Next
です。
これではいかがでしょうか?
strAがStringなのかArrayなのか判断できませんでしたが、
String型であるとして実装してみました。
Dim strA As String = "AAAAA aaaaa" + vbCrLf + "BBBBB bbbbb" + vbCrLf + "CCCCC ccccc" Dim strB As String Dim arrA As Array = strA.Split(vbCrLf) Dim nRow As Integer = strA.Length Dim i As Integer For i = 0 To arrA.Length - 1 Dim strLine As String = arrA(i) Dim s As String = strLine.Split(" ")(1) strB += s + vbCrLf Next MsgBox(strB)
コメント(1件)
その1行を無視していただければと思います^^;