DOBON.NET DOBON.NETプログラミング掲示板過去ログ

CSVファイルについて

環境/言語:[WindowsXP , VB.NET , SQL Server 2000]
分類:[.NET]

CSVファイルについて教えてください。
複数のCSVファイルを処理し、SQLServerのテーブルを更新していくので、処理中にプログレスバーを表示しようと思っています。
CSVファイルの件数を取得したいのですが、どうやって取得すればいいのでしょうか?
■No6599に返信(Booさんの記事)
> CSVファイルについて教えてください。
> 複数のCSVファイルを処理し、SQLServerのテーブルを更新していくので、処理中にプログレスバーを表示しようと思っています。
> CSVファイルの件数を取得したいのですが、どうやって取得すればいいのでしょうか?

  http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200309/03090055.txt

  ここをご参照下さい。

以上。
■No6600に返信(岡田 之仁さんの記事)

>   http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200309/03090055.txt
>
>   ここをご参照下さい。
>
> 以上。

上記のVBレスキューサイトを教えてくださって、ありがとうございました。
朝からいろいろ試してみて、やっと解りました。
VB.netの方はまだまだ使用例が少なく、初めて.netにとり組んでいる私には非常に難しいです。(今までCOBOL専門だったので・・・)
以下の方法でOKでした。

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

Dim Fso As New Scripting.FileSystemObject
Dim FsoTS As Scripting.TextStream

FsoTS = OpenTextFile _
("C:\TEST.csv" ,Scripting.IOMode.ForAppending)
Label1.Text = "ファイルの行数は " & FsoTS.Line - 1 & " 行です。"

End Sub

また、解らないことがあったらお願いします。
解決済み!

DOBON.NET | プログラミング道 | プログラミング掲示板