Question

如何用VB新建TXT文档并按行输出

几位的解答对我帮助很大，但是还有个问题。我说的按行输入是指循环程序出的结果按行输入到TXT文档中，比如循环
If Combo2.Text = "修正正弦" Then
Open "C:\zb.txt" For Append As #1
For t = 0 To 180 Step 1 / 180
θ1 = zp1(t) * pi / 180
dθ1 = dzp1(t)
θ2 = tl(t) * pi / 180
dθ2 = w
βf = BF(θ1, dθ1, dθ2) * pi / 180
βc = BC(θ1, θ2, βf) * pi / 180
rc = rch(θ1, θ2, βf, βc) * pi / 180
x = rc * Cos(βc)
y = rc * Sin(βc)
zb.WriteLine (x,y)
Next t
Close #1
End If
我说的按行输入时writeline 这里 上面的好多是我自定义的函数，你们不用看 就这里帮我看下写的对不
我要的结果是 x y 一个循环写一行 下个循环是新的x y 写到新的一行 求各位解答 感激不尽

http://zhidao.baidu.com/question/179516441.html 这是我的另一个问题。。

Answer 1

Public FileNo '生成txt文件时使用
FileNo = FreeFile() '获得文件句柄
Open App.Path & "\System.txt" For Append As #FileNo
'上面这句是在当前的文件夹下建立一个名字为system.txt的文本文档
Print #FileNo, "变量(随便你想写什么）" '按行输出
Close #FileNo '关闭

'''''''''''''''''''''''''''''''''''''''''''''''''''
以上就是那部分程序，如果关于按行输出的你不是特别清楚可以再说

Answer 2

新建TXT文档并按行输出代码如下：

Dim s as String '定义一个字符变量
Open "C:\OUT.txt" For Output As #1 '写入文件C:\OUT.TXT
'程序循环过程
Print #1, s

'程序循环过程
Close #1 '关闭打开的文件

Answer 3

'不知你要输出什么内容？下面是按行输出1到10的数字.
'楼上有错误，要把循环放在Open语句后面，不然每次进行写操作的时候都把上次的内容覆盖了。
Private Sub Command1_Click()
Dim i As Integer
Open "text.txt" For Output As #1
For i = 1 To 10
Print #1, i
Next i
Close #1
End Sub
看语法似乎没问题。我写了一个类似你上面的程序，能正常运行。自己实际操作下就ok了。

Answer 4

'控件需要2个按钮,一个List,一个text控件
Private Sub Command1_Click()
List1.AddItem Text1.Text '把text的内容加到List
End Sub

Private Sub Command2_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
Open "d:\New.txt" For Output As #1 '这是新建一个txt,位置在D盘
Print #1, List1.List(i) '逐行输出List内容到new.txt
Close #1
Next
End Sub