Question

请问VB6保存文件并将文本框里的信息写入文件的代码怎么写

Static Flg As Boolean CommonDialog1.InitDir = "*:\" CommonDialog1.Filter = "(*.ydm)|*.ydm|所有文件(*.*)|*.*" CommonDialog1.ShowSave If Dir(CommonDialog1.FileName) <> "" And Not Flg Then Open CommonDialog1.FileName For Output As #1 '保存代码 Else Exit Sub End If Open CommonDialog1.FileName For Output As #1 '保存代码 Flg = True 上面的代码只能创建文件，但不能把文本框里的信息写入文件

Answer 1

文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。 Append是以追加的方式打开，每次写入的都追加在文件最后，所以会出现你那种现象。其他都是覆盖方式。 Binary是以二进制方式打开，每个字符都以二进制形式读出，写入。 Input、Output是以文本方式打开，一个读，一个写。 Random 是随机方式。 比如：我们追加文本（appand）可以这样写 下面代码的功能是，每触发一次command1-click事件，就会将本框text1内的内容追加到文本末，并保存 如果换成output，将每次先清除原有内容，并将text1的内容保存到文本内 Private Sub Command1_Click() Dim a As Integer Open "e:\a.txt" For Append As #1’打开文本 Print #1, Text1.Text‘写入文本 Close #1‘关闭文本 End Sub