在vb中如何将指定文本内容导入至指定的文本文件中

来源：百度知道 编辑：UC知道 时间：2024/06/20 05:48:43
在vb6中，现有一个窗体，上面有一个text和一个按钮，现在我想单击按钮时，弹出“文件浏览对话框”，在用户输入文本文件名后，并单击保存后，text中的内容自动存入用户指定的文本文件?或者单击按钮时，弹出类似下载保存的对话框，自动将已存入text内容的文本文件进下用户另存为操作
希望真正知道的朋友回复我，而不是在网上随便搜一段说明给我，我希望是按实际情况的回答！

添加控件 text1 （属性multiline=true，scrollbars=3），Command1_Click， CommonDialog1

代码如下：
Private Sub Command1_Click()
With CommonDialog1
.CancelError = True
.Filter = "*.txt|*.txt|*.*|*.*"
.DefaultExt = "*.txt"
On Error GoTo err1
.ShowSave
Open .filename For Binary As #1
Put #1, , Text1.Text
Close
End With
Exit Sub
err1:
End Sub

用VB的OPEN 方法
VB读写文件要用到以下语句：
1、Open语句打开文件。
2、读文件使用Line Input、Input #，（以上为文本方式）和Get（以上为二进制方式）。
3、写文件使用Print #、Write（以上为文本方式）和Put（以上为二进制方式）。
4、Close语句关闭文件
5、二进制方式下移动文件位置使用Seek语句。
所有这些语句在VB的帮助中都有详细说明和例子。
文本文件的示例：
Open "TESTFILE" For Output As #1 \' 打开输出文件。
Print #1, "This is a test" \' 将文本数据写入文件。
Print #1, \' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2" \' 数据写入两个区（print zones）。
Print #1, &q