vb 蛋疼的学习（五） 文件的操作

参考部分解释和概念：https://blog.youkuaiyun.com/lbuskeep/article/details/7638078

    从https://blog.youkuaiyun.com/lbuskeep/article/details/7638078 和官方的文挡，自行测试得出 的总结

1、打开某个文件  open语句 

语法

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

          pathname  字符串，文件名（不能省略）

          mode  指定以什么方式打开（append ，input，output...等等）（不能省略）

          filenumber  有效的文件号，范围在1到511 之间    

                

FreeFile 函数 可以获得 可用的 文件号（filenumber ）      如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打开文件时，可以建立这一文件。       表示用 input 打开如果没有将会报错          append 会保留之前的数据

a=100

 input  #1 ，a  从1号文件 读取值放到 变量a中

write #1，a  向1号文件中 写入a（不覆盖）， Open App.Path & "\我的文本.ini" For Append As #131

write #1，a   向1号文件中写入a（覆盖）， Open App.Path & "\我的文本.ini" For output As #13

    2、打开文件对话框    （添加CommonDialog） -------- 部件----microsoft common dialog control 6.0

          直接举例：

‘'第一个列子：打开文件对话框，判断文件是否为空

Private Sub Command3_Click()
A1:
  CommonDialog1.ShowOpen  '打开文件对话框（打开）
  If CommonDialog1.FileName = "" Then GoTo A1  '为空继续循环
  CommonDialog1.Filter = "文本文件(*.txt) |*.txt|所有文件(*.*)|*.*" '筛选 可用的文件
  On Error GoTo en
  Open CommonDialog1.FileName For Append As #13   '追加数据
  Close #13
  
  Exit Sub
en:
   MsgBox "错误"
End Sub

     

'前者不覆盖，后者覆盖
Private Sub Command3_Click()
  b = 100: c = 100: d = 200
  Open App.Path & "\我的文本.ini" For Append As #13
  
  Write #13, b, c, d
  Close #13
  
  Open App.Path & "\我的文本.ini" For Output As #13
  
  Write #13, b, c, d
  Close #13
End Sub