CSVの件数 其の２ (ID:79483)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たびたび申し訳ございません。 前回のときはこのように件数を取ることで納得したのですが '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Dim Fso As New FileSystemObject Dim FsoTS As TextStream Dim KENSU As Integer KENSU = 0 'ファイルの末尾から書き込みモードで開きます Set FsoTS = Fso.OpenTextFile("test.csv", ForAppending) '書き込まれているところまでの行数が知りたいので、現在の行数"-1" KENSU = FsoTS.Line - 1 Text41.Text = KENSU FsoTS.Close Set FsoTS = Nothing '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ これだと実際に使うCSVファイルの件数は正しく取れるのですが、べつのテスト用のCSVのときには 最初から４〜６ちかくの値が入ってしまってうまくいきません。 同じ方法でエクセル・ワード・テキストにも実行してみたのですが、正しい値が取れたのは テキストだけで、エクセル・ワードはCSVと同じような現象がおきています。 原因および対処方法について、考えられる事があればお教え下さい。 os:windows XP 環境:VB6