- Private Sub Command1_Click()
- '写文件示例
- Dim strFileName As String '文件名
- Dim lngHandle As Long '句柄
- Dim strWrite As String '要写入的文本内容
- strFileName = App.Path & "/a.txt"
- ''''''''App.Path & "/a.txt"相对路径
- ''"c:/w.txt"绝对路径
- lngHandle = FreeFile() '取得句柄
- '准备要写入的内容
- strWrite = Text1.Text '或者 strWrite = "这些文字将被写入文件。"
- 'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
- ''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入
- ''''''print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号
- Open strFileName For Output As lngHandle '打开文件
- Print #lngHandle, strWrite '写入文本
- Close lngHandle '关闭文件
- End Sub
- Private Sub Command2_Click()
- '读文件示例
- Dim strFileName As String '文件名
- Dim lngHandle As Long '文件句柄
- Dim strAll As String '所读取的文本文件的所有内容
- Dim strLine As String '在循环中存放每行的内容
- strFileName = App.Path & "/a.txt"
- '获得文件的句柄
- lngHandle = FreeFile()
- 'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
- Open strFileName For Input As lngHandle
- '循环直到文件尾
- Do While Not EOF(lngHandle)
- '每次读取一行存放在strLine变量中
- Line Input #lngHandle, strLine
- '每次读取都把所读到的内容连接到strAll变量,由于Line Input去掉了换行符,所以这里补上
- strAllstrAll = strAll & strLine & vbCrLf
- Loop
- '显示得到的全部分内容
- MsgBox strAll
- End Sub
- Private Sub Command1_Click()
- Open App.Path & "/a.txt" For Output As #1
- Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性
- Close #1 '关闭打开的文件
- End Sub
- 'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
vb.net 读写TXT文件!
最新推荐文章于 2021-10-26 20:12:35 发布