tagCANDY CGI VBレスキュー(花ちゃん) - テキストファイルの行数カウント(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
テキストファイルの行数カウント(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

テキストファイルの行数カウント(VB6.0) [No.53の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/07/16 13:30
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[ファイル入出力][][]                                            *
* キーワード:TXTファイル,CSVファイル,,,,                                     *
***********************************************************************************

元質問:テキストファイルの行数カウント - COMS  2003/04/13-01:47 No.3560
対象のテキストファイルの行数をカウントするプログラムを下記の用に作ったのですが、もっと簡単にカウントする方法はありますでしょうか?

Dim Gyo AS Integer
Gyo = 0

Open fileMei For Input As #fileNum
    Do Until EOF(fileNum)
        Line Input #fileNum, Dummy
            Gyo = Gyo + 1
    Loop
Close #fileNum

-----------------------------------------------------------------------
Re: テキストファイルの行数カウント - 花ちゃん 2003/04/13-02:11 No.3561
-----------------------------------------------------------------------

ここの FileSystemObject関係 や逆引きヘルプを見て下さい。

  Dim Fso As New FileSystemObject
    Dim MaxLine As Long
  'テキストファイルは別途ご用意下さい。
  TxtFile = App.Path & "\test.txt"
  '総行数を取得
  MaxLine = Fso.OpenTextFile(TxtFile, ForAppending).Line


  下記を参照願います。
  http://hanatyan.sakura.ne.jp/vbhlp/FSO13.htm
  
------------------------------------------------------------------------
過去ログを見直していたら結構この手の質問があったので掲載しておきます。

メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ