UC知道vb 读取txt
来源：百度知道 编辑：UC知道 时间：2024/06/29 02:08:10
在本程序文件夹有cc.txt
书写格式为
5678909，346
8793456，780
2345446，567
。。。。。。
现在要 s=? 读取每一行的“，”前面的数
d=？读取每一行得“，”后面的数
大概就像读取list里的一样
for i=0 to List1.ListCount - 1
s=List1.List(i)
老师，是每一行
Private Sub Command1_Click()
Dim i As Integer
Dim dd() As String
Dim s As String
Dim Str As String
Open App.Path & "\cc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Str
str1 = Split(Str, ",") '得到每一行的
str2 = str1(0) '得到,前面的数字
str3 = str1(1) '得到.后台的数字
Loop
Close #1
List1.AddItem str3
End Sub
只能输出最后一行，我要的是cc.txt有多少行，list里就有多少行，麻烦老师在给看看
书写格式为
5678909，346
8793456，780
2345446，567
。。。。。。
现在要 s=? 读取每一行的“，”前面的数
d=？读取每一行得“，”后面的数
大概就像读取list里的一样
for i=0 to List1.ListCount - 1
s=List1.List(i)
老师，是每一行
Private Sub Command1_Click()
Dim i As Integer
Dim dd() As String
Dim s As String
Dim Str As String
Open App.Path & "\cc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Str
str1 = Split(Str, ",") '得到每一行的
str2 = str1(0) '得到,前面的数字
str3 = str1(1) '得到.后台的数字
Loop
Close #1
List1.AddItem str3
End Sub
只能输出最后一行，我要的是cc.txt有多少行，list里就有多少行，麻烦老师在给看看
open app.path "\cc.txt" for input #1
Do While Not EOF(1)
line input #1,str
str1=split(str,",") '得到每一行的
str2=str1(0) '得到,前面的数字
str3=str1(1) '得到.后台的数字
Loop
Close #1
------------------------------------------我晕
Open App.Path & "\cc.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Str
str1 = Split(Str, ",") '得到每一行的
str2 = str1(0) '得到,前面的数字
str3 = str1(1) '得到.后台的数字
List1.AddItem str3 '这句放在这个位置
Loop
Close #1
Dim i As Integer
Dim dd() As String
dim s as string
dim d as string
Open app.path "cc.txt" For Input As #1
Do While Not EOF(1)
Input #1, inp
dd = Split(inp, " ")
s= s & dd(0)
d= d & dd(1)
Loop
Close #1
Dim strings As String
Dim d As String
Dim s As String
Dim i As Integer
Open