Question

如何用VB实现输出TXT文件：文件中第一行保存“空格”1“空格”“空格”“空格”8 第二行保存“空格”1第

如何用VB实现输出TXT文件：文件中第一行保存“空格”1“空格”“空格”“空格”8 ，第二行保存“空格”1 ，第三行保存11.5，第四行保存 “空格”2，第五行保存 12.6,第六行保存“空格”3，第七行保存 15.4....2000行，再在FROM中加载它们，读出 第一行1，和 8

Answer 1

strFileName = "D:\1.txt"
Open strFileName For Output As #1
Print #1, " 1 8"
Print #1, " 1"
Print #1, " 11.5"
.
.
.
Close #1

strFileName = "D:\1.txt"
Open strFileName For Input As 1
Do While Not EOF(1)
'每次读取一行存放在strLine变量中
Line Input #1, strLine
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
Loop
Close 1

追问

谢谢，高手。
第二行保存“空格”1 ，第三行保存11.5（随机数），第四行保存 “空格”2，第五行保存 12.6（随机数），,第六行保存“空格”3，第七行保存 15.4（随机数），....这样要2000行,大哥，如何用for 语句实现，并且在窗体FORM1中加载。这么加载后，我觉得很慢。并且读出 第一行“1和 8”赋给一个变量，我在其它窗体要调用它们。

追答

在其他窗体调用的话，就在模块中定义一个全局变量吧，比如global RndData(1 to 2000) as single
下面是取随机数，Rnd（）是取一个随机的0到1闭开区间的数，根据你需要你自己定义，这里就是0到100的随机数。

.
.
.
Open strFileName For Output As #1

For i = 1 To 2000
Randomize
RndData(i) = Int(99 * Rnd() + 1)
Print #1, RndData(i)

Next
close #1
空格什么的在哪里加你自己看吧

追问

呵呵，谢谢，我的随机数不是指这个“随机数Rnd”是指其它其它文件，或者窗体调用到的数。这样有2000行，比如：第一行是不变的了。1 8----下面双数行是有一定规率的。单数行，调用其它窗口，或者文件的数。
第二行，1
第三行，20
第四行。2
第5行。45
第六行。3
第七行。28
第八行。4
第九行。60
我应刻如何读取，第一行的1赋给一变量，8赋给一变量。下面第二行开始如何输入到文件。