文件方式，有 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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024