vb如何读取文本文件里的行数以及分隔符的文件判断

Line Input #filenumber, varname

Line Input # 语句的语法具有以下几个部分：

部分 描述

filenumber 必要。任何有效的文件号。

varname 必要。有效的 Variant 或 String 变量名。

Dim rng As Range

Dim i As Integer, j As Integer

Set rng = xlActiveSheetUsedRange

i = rngRowsCount '已使用的行数

j = rngColumnsCount'已使用的列数

但是建议你不使用这种方式，比如你的excel有3行，然后你在第5行里写入数据，然后再把写的数据删了，此时得到的行数还是5只要用过了它就算在内

示例附件中，日记文件放在C:\如在其它位置自行修改代码

Private Sub Command1_Click()

Dim h As Long, LTxt As String, spstr As Variant, MaxDate As Date, FindLine As Long

h = FreeFile

Dim n As Long, tmp As Date

Open "c:\日记txt" For Input As h

Do While Not EOF(h)

    Line Input #h, LTxt

    n = n + 1

    spstr = Split(LTxt, "：")

    If UBound(spstr) = 1 Then

        If Trim(spstr(0)) = "日期" Then

            If IsDate(spstr(1)) Then

                tmp = CDate(spstr(1))

                If tmp > MaxDate Then MaxDate = tmp: FindLine = n

            End If

        End If

    End If

Loop

Close

If FindLine = 0 Then

    MsgBox "未找到存在日期的行"

Else

    MsgBox "找到最后的日期：" & MaxDate & "  在文件第 " & FindLine & " 行"

End If

End Sub

以上就是关于vb如何读取文本文件里的行数以及分隔符的文件判断全部的内容，包括:vb如何读取文本文件里的行数以及分隔符的文件判断、vb中有没有函数获取Excel中表格的行数、vb如何判断文本文档中某一行字符串所在行数并获取等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！