tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: CSVファイルから配列を取得するコード
投稿日: 2013/05/24(Fri) 19:34
投稿者るいがとひなきす
ありがとうございました。統合してスッキリさせることについては
以下のように改変することで達成出来ました。しかし
redim preserveをlist.addに書き換えることは成功してません。

       Dim csvRecords As New System.Collections.ArrayList()

        'CSVファイル名
        Dim csvFileName As String = "c:\testfile.txt"
        Dim xcol(0) As String
        Dim ycol(0) As String

        'utf-8で読み込む
        Dim tfp As New FileIO.TextFieldParser(csvFileName, _
            System.Text.Encoding.GetEncoding("utf-8"))
        'フィールドが文字で区切られているとする
        'デフォルトでDelimitedなので、必要なし
        tfp.TextFieldType = FileIO.FieldType.Delimited
        '区切り文字を,とする
        tfp.Delimiters = New String() {vbTab}
        'フィールドを"で囲み、改行文字、区切り文字を含めることができるか
        'デフォルトでtrueなので、必要なし
        tfp.HasFieldsEnclosedInQuotes = True
        'フィールドの前後からスペースを削除する
        'デフォルトでtrueなので、必要なし
        tfp.TrimWhiteSpace = True

        While Not tfp.EndOfData
            'フィールドを読み込む
            Dim fields As String() = tfp.ReadFields()
            '保存
            csvRecords.Add(fields)
            xcol(UBound(xcol)) = fields(0)
            ycol(UBound(ycol)) = fields(1)
            ReDim Preserve xcol(UBound(xcol) + 1)
            ReDim Preserve ycol(UBound(ycol) + 1)
        End While

        '後始末
        tfp.Close()

        MsgBox("X座標達:" & xcol(0) & ", " & xcol(1) & ", " & xcol(2) & " Y座標達:" & ycol(0) & ", " & ycol(1) & ", " & ycol(2))

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。