请选择 进入手机版 | 继续访问电脑版
查看: 190|回复: 0

[.NET开发] 打开/保存 .txt 文件

3万

主题

3万

帖子

10万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
100197
发表于 2015-11-23 17:52:09
<无详细内容>
  1. Private Sub cmdsave_Click()
  2. Dim filelocation As String
  3. ' loads save as box
  4. commondialog1.ShowSave
  5. filelocation = commondialog1.FileName
  6. ' append saves over file if it assists
  7. Open filelocation For Append As #1
  8. Print #1, text1.text
  9. Close #1
  10. End Sub
  11. Private Sub cmdopen_Click()
  12. Dim filelocation As String
  13. ' show open box
  14. commondialog1.ShowOpen
  15. filelocation = commondialog1.FileName
  16. ' input files into text1.text
  17. Open filelocation For Input As #1
  18. Do Until EOF(1)
  19. Input #1, Data
  20. text1.text = text1.text + Data + vbNewLine
  21. EOF (1)
  22. Loop
  23. Close #1
  24. End Sub
复制代码


回复

使用道具 举报