【満点差し上げます】[VB.NETで2次元配列の列1を、別の配列の列0に格納する方法]


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"

回答の条件
  • 1人2回まで
  • 登録:2010/02/06 05:09:41
  • 終了:2010/02/13 05:10:02

回答(2件)

id:neuromancer_sho No.1

neuromancer_sho回答回数28ベストアンサー獲得回数32010/02/07 05:24:39

ポイント42pt

行番号をy(999まである)として、strA()の「第1列」を、strBの「第0列」に格納する場合

        For y = 0 To 999
            strB(0, y) = strA(1, y)
        Next

です。

id:phero No.2

kawasaki回答回数55ベストアンサー獲得回数92010/02/07 06:00:33

ポイント28pt

これではいかがでしょうか?

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)
  • id:phero
    すみません、nRow という変数が不要でした。
    その1行を無視していただければと思います^^;

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません