VB打开与保存txt文件的方法

页面导航:首页 > 软件编程 > vb > VB打开与保存txt文件的方法

VB打开与保存txt文件的方法

来源:互联网 作者:脚本宝典 时间:2015-07-28 12:56 【

本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下: ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub cmdsave_Click() Dim filelocation As String loads save a

本文实例讲述了VB打开与保存txt文件的方法。分享给大家供大家参考。具体如下:

?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

希望本文所述对大家的VB程序设计有所帮助。


Tags: vb  

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<