VB怎样写才能每次读取一个TXT文本里的数字?
VB怎样写才能每次读取一个TXT文本里的数字?数字的范围是0~7,文本不是单行的,是多行的,一共有10行,求代码!每行有20个,怎么把单个数字保存在text1.text,...
VB怎样写才能每次读取一个TXT文本里的数字?数字的范围是0~7,文本不是单行的,是多行的,一共有10行,求代码!
每行有20个,怎么把单个数字保存在text1.text,不是只取出一个数字,而是全部取出,只不过是从头开始,每次取一个,取完第一个,清空text1,再取第二个。 展开
每行有20个,怎么把单个数字保存在text1.text,不是只取出一个数字,而是全部取出,只不过是从头开始,每次取一个,取完第一个,清空text1,再取第二个。 展开
1个回答
展开全部
以下代码仅供参考。朋友。
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
追问
谢谢你,但是那个loop是什么意思?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询