vb问题，读入与读出

来源：百度知道 编辑：UC知道 时间：2024/05/21 12:35:45
读入一个.txt文件，.txt每一行的内容转换为每一个text1
把text2读出给另一个.txt文件里

commandbotton一个text文本框两个
代码
Private Sub Command1_Click()
Text1.Text = Text2.Text
End Sub
就这么简单

Dim Lstr As String '读文件2.txt
Open App.Path & "/" & "2.txt" For Input As #1
Line Input #1, Lstr
Text1.Text = Text1.Text & Lstr & vbCrLf
Loop
Close #1

Open "1.txt" For Output As #1 '写如1.txt
Write #1,text2.text
Close #1