VB怎样写才能每次读取一个TXT文本里的数字？数字的范围是0~7，文本不是单行的，是多行的，一共有10行，求代码！
每行有20个，怎么把单个数字保存在text1.text，不是只取出一个数字，而是全部取出，只不过是从头开始，每次取一个，取完第一个，清空text1,再取第二个。
VB怎样写才能每次读取一个TXT文本里的数字？
答案:2 悬赏:10 手机版
解决时间 2021-04-04 12:00
- 提问者网友：暗中人
- 2021-04-03 18:21
最佳答案
- 五星知识达人网友：愁杀梦里人
- 2021-04-03 18:56
以下代码仅供参考。朋友。
Private Sub Command1_Click() '按钮1，以只读的方式打开文件
Open "d:/002.txt" For Input As #1
End Sub
Private Sub Command2_Click()
Do While Not EOF(1)
Input #1, a '读取文件中的一个数据，存放到变量a中
Print a '处理读出的一个数据，此处设定为输出到屏幕上
Loop
Close '读完后，关闭文件
End Sub
Private Sub Command1_Click() '按钮1，以只读的方式打开文件
Open "d:/002.txt" For Input As #1
End Sub
Private Sub Command2_Click()
Do While Not EOF(1)
Input #1, a '读取文件中的一个数据，存放到变量a中
Print a '处理读出的一个数据，此处设定为输出到屏幕上
Loop
Close '读完后，关闭文件
End Sub
全部回答
- 1楼网友：大漠
- 2021-04-03 20:20
private sub command1_click()
dim data() as string
dim i as integer
dim s as string
commondialog1.showopen
f1 = commondialog1.filename
open f1 for binary as #1
redim data(lof(1) - 1)
s = strconv(inputb$(lof(1), 1), 64)
data = split(s, vbcrlf)
for i = 0 to ubound(data)
list1.additem data(i)
next
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯