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-->
頁:
[1]