Question

VB 中在text中输入多次文字并保存到文本文档中怎么办

Answer 1

可以根据以下的代码再进行功能修改.
Private Sub Command1_Click()
'写文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "E:\cc.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Append As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件

End Sub

Private Sub Command2_Click()
'Open "E:\学习\VB\保存txt\cc.txt" For Input As #1
'读文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
strFileName = "E:\cc.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
strAll = strAll & strLine & vbCrLf
Loop
'显示得到的全部分内容
Text1.Text = strAll
Close lngHandle '关闭文件
End Sub

Answer 2

Private Sub Command1_Click()
'写文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "E:\cc.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Append As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件

End Sub

Private Sub Command2_Click()
'Open "E:\学习\VB\保存txt\cc.txt" For Input As #1
'读文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
strFileName = "E:\cc.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
strAll = strAll & strLine & vbCrLf
Loop
'显示得到的全部分内容
Text1.Text = strAll
Close lngHandle '关闭文件
End Sub

追问

太感谢了！

Answer 3

Private Sub Command1_Click()
a = "c:\内容.txt"
Open a For Append As #1
Print #1, Text1.Text
Close #1
MsgBox "文档另存为：" & a
End Sub

追问

这我知道，可是输入下一个内容时再保存前一个保存的就被覆盖了，没了怎么回事啊？

Answer 4

创建一个txt文件，每次操作text时进行文件写操作