*

テキストファイル – 行数をカウント

公開日: : 最終更新日:2013/12/18 TEXT操作 ,

Function Txt_LineCnt(ByVal FN As String) As Integer
Dim fso As Object
Dim FsoTS As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'ファイルの末尾から書き込みモードで開きます
Set FsoTS = fso.OpenTextFile(FN, 8) '8は最後から追記するモード
'現在のファイル ポインタの位置を行番号で取得します
Txt_LineCnt = FsoTS.Line
FsoTS.Close
Set FsoTS = Nothing
End Function

ファイルパス&ファイルネームを渡すと、当該ファイルの中をあけ最後の行数を調べ、数字で返す。あまり使い道は無いとは思う。

admax_area



関連記事

no image

テキストファイル – 書き込み

Sub Txt_Write() Dim fso As Object Dim TXT_fso

記事を読む

no image

テキストファイル – 読み込み

Function Txt_Read(ByVal fNAME As String) As Stri

記事を読む

no image

テキストファイル – 作成

Sub txtC() Dim fNameAsString Dim fsoAsObject

記事を読む

admax_area



Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


日本語が含まれない投稿は無視されますのでご注意ください。(スパム対策)

admax_area



PAGE TOP ↑