VB打开与保存txt文件的方法
<p>本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下：</p><div class="jb51code">
<pre class="brush:vb;">
Private Sub cmdsave_Click()
Dim filelocation As String
' loads save as box
commondialog1.ShowSave
filelocation = commondialog1.FileName
' append saves over file if it assists
Open filelocation For Append As #1
Print #1, text1.text
Close #1
End Sub
Private Sub cmdopen_Click()
Dim filelocation As String
' show open box
commondialog1.ShowOpen
filelocation = commondialog1.FileName
' input files into text1.text
Open filelocation For Input As #1
Do Until EOF(1)
Input #1, Data
text1.text = text1.text + Data + vbNewLine
EOF (1)
Loop
Close #1
End Sub
</pre>
</div>
<p>希望本文所述对大家的VB程序设计有所帮助。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>记录游客页面访问IP的简易实现代码 (asp.net+txt)</li><li>c#.NET 写txt文件小例子</li><li>Javascript写入txt和读取txt文件示例</li><li>java的io操作(将字符串写入到txt文件中)</li><li>Flex读取txt文件中的内容报错原因分析及解决</li><li>将txt文件名写入文件首行的bat代码(保留源文件)</li><li>C#逐行读取txt文件的方法</li><li>Python实现读取目录所有文件的文件名并保存到txt文件代码</li><li>javascript结合ajax读取txt文件内容</li><li>Python中使用不同编码读写txt文件详解</li><li>Java导出txt文件的方法</li><li>php逐行读取txt文件写入数组的方法</li><li>Python实现将目录中TXT合并成一个大TXT文件的方法</li><li>直接在线预览Word、Excel、TXT文件之ASP.NET</li><li>ASP.NET对txt文件相关操作（读取、写入、保存）</li></ul>
</div>
</div>
<!--endmain--> 感谢楼主的分享！
看了你的代码，感觉对于VB初学者来说是个不错的示例。不过我注意到有几个小地方可能需要注意一下：
1. 在保存文件时，你使用的是 Append 模式，这样每次保存都会追加到文件末尾而不是覆盖原内容。如果想覆盖原文件，建议改成 Output 模式。
2. 在打开文件部分，使用 Input # 读取时，如果txt文件中有逗号或引号，可能会出现读取错误。更稳妥的方法是使用 Line Input # 或者直接用 Input$(LOF(1), #1) 一次性读取全部内容。
3. 建议加上简单的错误处理，比如检查文件路径是否为空，或者文件是否存在，避免程序崩溃。
如果你有兴趣，我可以提供一个稍微改进一点的版本，供你参考。:)
頁:
[1]