Question

vb怎么输出一个txt文件

如图，在图片中，输入N行文字，用VB实现把每一行的文字作为一个txt文件的名称，并批量输出这些txt文件。并且可以拖入一个txt文件然后在文本框中显示txt文件的内容，之后也可以进行上述输出操作，代码该怎么写？求大神，悬赏30分

Answer 1

Private Sub Command1_Click()
Dim ff() As String, i As Long
On Error Resume Next
ff = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(ff)
If Dir(App.Path & "\" & ff(i) & ".txt") = "" Then
Open App.Path & "\" & ff(i) & ".txt" For Output As #1
Print #1, ff(i)
Close #1
End If
Next
MsgBox "文件输出完毕！"
End Sub

Private Sub Form_Load()
Text1.OLEDropMode = 1
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ff
Text1.Text = ""
For Each ff In Data.Files
Open ff For Binary As #1
Text1.Text = Text1.Text & Input(LOF(1), #1)
Close #1
Next
End Sub

以上程序生成的txt文件放在程序所在文件夹，由于没有说明文件内容是什么，就用文件标题作为内容了。另外Text1的MulitLine属性一定要设为True，否则无法换行。此外还要注意文件名的命名规则，即文本框中的内容一定要是适合作为文件名的（比方说不能含有冒号:）。

追问

请问如果不要把标题当内容的话（即内容为空），该删掉哪一行？

追答

删掉
Print #1, ff(i)