VB调用TXT数组问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 17:52:48
Open "c:\a.txt" For Input As #1 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
a=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
b=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
c=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
d=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
e=split(textline,",")

这样的a,b,c,d,e是按照txt中第一行，第二行，第三行，第四行，第五行，来排的。

但是如果有1000行，我怎么直接调用第1000行的数据呢？？

还有就是我程序完成后，直接生成.exe文件，能不能把我调用的txt文件整合到我的exe程序中呢？

我只说明怎么把txt的文档的每一行导入到程序中的数组中，其余的你自己在写吧
我已经运行过了，没问题
首先，在窗体上建立一个command1
然后，在代码窗口输入以下内容：
Dim a() As String, inputdata As String, j% ‘定义中间变量
Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1 '其中" "内为文档的目录和名称
Do While Not EOF(1) '如果txt文件没到末尾
ReDim Preserve a(0 To j) '定义数组的维数
Line Input #1, inputdata '读入一行数据
a(UBound(a)) = inputdata '把这行数据赋给数组a的第j个元素
j=j+1 '数组的维数累加1
Loop
Close #1 '关闭txt
End Sub
数组a已经在程序里了，你可以任意调用，还可以对每个元素用split分割成别的数组， 应该满足你的要求了！！！我明白你的意思，我做过类似的！希望对你有帮助

Private Sub Command1_Click（）
dim a
dim readtxt as integer
Open app.path & "\a.txt" For Input As #1 ' 打开文件,其中app.path是（生成exe）当前目录下的txt文本
do while not eof(1)'读到文件末尾，循环读到文件末尾为止。(请记住这样的常规写法）
line input #1,textline
a=split(textline,","