タイトル : 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)) |