VB读写TXT文件
2008-01-07 13:30
344 查看
Private Sub Command1_Click() '读文件
Open "d:a.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Dim i As Integer
Do While Not EOF(1)
On Error Resume Next
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = Lines
End Sub
Private Sub Command2_Click() '写文件
Open "d:a.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
'如果要处理的是程序目录所在的a.txt那么应该是这样写:
'Open app.path+"/a.txt" For Input As #1
Open "d:a.txt" For Input As #1
Dim Lines As String
Dim NextLine As String
Dim i As Integer
Do While Not EOF(1)
On Error Resume Next
Line Input #1, NextLine
Lines = Lines & NextLine & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = Lines
End Sub
Private Sub Command2_Click() '写文件
Open "d:a.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
'如果要处理的是程序目录所在的a.txt那么应该是这样写:
'Open app.path+"/a.txt" For Input As #1
相关文章推荐
- vb.net 读写TXT文件!
- VB循环读写TXT文件
- 关于C++如何读写txt文件
- vb.net 读写文件
- java读写TXT文件
- Python读写txt文本文件的操作方法全解析
- C#中ListBox组件读写txt文件
- Java读写txt文件
- Java读写txt文件
- C++文件流读写txt文件
- android txt文件读写(读取资源文件,读取私有和SD文件的方法)
- java读写txt文件中文乱码问题
- java txt文件读写
- 【vb.net】json文件的读写
- Lua读写txt文件
- VC 逐行读写TXT文件
- javaIO流实现读写txt文件
- C#读写txt文件的两种方法介绍
- python读写txt文件
- C#读写txt文件