Question

VB 读入的txt文件中数据的个数

要一段能知道TXT文件中有多少个数据的代码
每个数据用双引号括起来用逗号分开
数据是有顺序的

Answer 1

这个编程是很简单的，提问最好详细一点。TXT文件的数据最好最个例子，粘出来。

比如你说的每个数据用“”括起来，用逗号分开。就有两种情况：
一是全部都如此，紧密排列，没有换行；
一是，每行固定有几个数据，换行。

两种情况编程方式是不一样的。

以第一种情况为例：先将数据读入到内存变量中，用split函数将其分割在数组中。这样用UBOND函数求数组的下标，下标是多少，就有多少个数据。

Answer 2

Dim myData() As String, myTempStr As String, myNum As Integer
Open "文件所在位置" For Binary As #1
myTempStr = Input(LOF(1), 1)
Close
myData = Split(myTempStr, ",")
myNum = UBound(myData) + 1