VB读入文件是如何判断行数的

'你可以用LineInput 这个语句就是读取一行的 如果想知道有多少行 你可以加入一个整型变量 a 在代码中用a=a+1来得到 示例代码如下：

Private Sub Form_Click()

'比如你的C盘有个atxt

Open "c:\atxt" For Input As #1

Do While Not EOF(1)

Line Input #1, b

a = a + 1

Loop

Print "a文件中共有：" & a & "行"

End Sub

Line Input #filenumber, varname

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

部分 描述

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

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

Line Input #1, A

r=r+1

x(r) = A

出来多少行就是多少行直接赋值给数组

再把偏历 x() 求 row() = split(x(r),",")

ubound( row() ) 就是 按","分的列数(修改修改 ","),

求出最大的 就是 列数了

--------------------------------------------------------------

Private Sub Command1_Click()

Dim Rs As Long

Dim R As Long

Dim Cs As Long

Dim c As Long

Dim a As String

ReDim b(3)

Dim fn As String

fn = "C:\test1txt"

Cs = 0

Open fn For Input As #1

R = 0

Do Until EOF(1)

Line Input #1, a

b(R) = Split(a, ",")

c = UBound(b(R))

If c > Cs Then

Cs = c

End If

R = R + 1

If R > UBound(b) Then

ReDim Preserve b(R + 1000)

End If

Loop

Rs = R - 1

Close #1

DebugPrint "行数:"; Rs + 1; "列数:"; Cs + 1

For R = 0 To Rs

DebugPrint R,

For c = 0 To Cs

If c <= UBound(b(R)) Then

DebugPrint b(R)(c),

End If

Next

DebugPrint

Next

End Sub

以上就是关于VB读入文件是如何判断行数的全部的内容，包括:VB读入文件是如何判断行数的、vb如何读取文本文件里的行数以及分隔符的文件判断、vb 怎么测试一个txt数据有多少行多少列 ，并将数据赋值给数组等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！