CSV箕荷

分類:[.NET]

CSVﾌｧｲﾙを,区切りで配列に入れる方法について
教えていただけますでしょうか？

CSVﾌｧｲﾙの中身が一行で,のみある場合は、
→「1,2,3,4」

a as system.io.streamreader
a = system.io.streamreader(ﾌｧｲﾙ)
b as string() = a.ReadLine.Split(",")

でbに配列で1,2,3,4をいれることができると思います。

CSVﾌｧｲﾙが改行があって２行の場合にどのように
配列に入れればいいのでしょうか？
「1,2,3,4
5,6,7,8」
となっている場合です。

よろしくお願いします。

■No4050に返信(kentaさんの記事)
> CSVﾌｧｲﾙが改行があって２行の場合にどのように
> 配列に入れればいいのでしょうか？
> 「1,2,3,4
> 5,6,7,8」
> となっている場合です。

　　こんな風ですか・・・

Dim sr As StreamReader
Dim rg As Regex
Dim sz As String
Dim b() As String

sr = New StreamReader(Application.StartupPath + "\TEST.CSV")
sz = sr.ReadToEnd
sr.Close()

rg = New Regex(",", RegexOptions.Multiline)
b = rg.Split(sz)

For Each sz In b
Debug.WriteLine(sz)
Next

以上。

すばやいご回答ありがとうございました。

今のですと、改行されたところが
,で区切られないためそこを別々の配列に
入れるためにはどうすればよろしいでしょうか？

よろしくお願い致します。

■No4052に返信(kentaさんの記事)
> すばやいご回答ありがとうございました。
>
> 今のですと、改行されたところが
> ,で区切られないためそこを別々の配列に
> 入れるためにはどうすればよろしいでしょうか？
>
> よろしくお願い致します。
改行を[,]とみなすと言う事であれば、
Dim sr As New System.IO.StreamReader("C:\hoge.csv", System.Text.Encoding.GetEncoding("shift-jis"))
Dim s As String = sr.ReadToEnd()
Dim sBuf() As String

sr.Close()

s = Replace(s, vbCrLf, ",")

sBuf = Split(s, ",")
でいかがでしょう？
※ものによってはvbCrLfでなくvbCrの場合もあるかも。