小卒过河 通过本文主要向大家介绍了vb打开txt文件,vb.net打开txt文件,vb打开txt,vb.net 打开txt,vb打开excel文件等相关知识,希望对您有所帮助,也希望大家支持linkedu.com www.linkedu.com
本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下：
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
</div>
希望本文所述对大家的VB程序设计有所帮助。
</div>