Question

vb读取和写入多行的txt文件

想通过一个按钮读取d:\1.txt的文件,把里面的内容写到text1.text中 1.txt中的内容是多行的 然后通过另一个按钮把text1.text的内容写到d:\2.txt中 要让2.txt中的内容和1.txt中的内容一样都是多行的

Answer 1

首先将Text1的MultiLine属性设为True Private Sub Command1_Click() Dim fso As Object, ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile("d:\1.txt", 1) Do While ts.AtEndOfStream <> True Text1.Text = Text1.Text & ts.ReadLine & vbCrLf Loop ts.Close Set ts = Nothing Set fso = Nothing End Sub Private Sub Command2_Click() Dim fso As Object, ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.CreateTextFile("d:\2.txt", True) ts.Write Text1.Text ts.Close Set ts = Nothing Set fso = Nothing End Sub