Question

VB 怎么读txt文件啊！

在VB里面有个两个按钮控键和一个text！按钮一个是读取！另一个是保存！当点读取的时候就把电脑上的aa.txt文件里面的内容全部都读到text！当点保存的时候 又把这个text以一个加密的方式全部保存到aa.txt文件里面了！（当然读取的时候也要也这个加密的方式读取，不然读出是乱码）请问下大哥大姐这怎么做的啊！我的是VB6.0！谢谢了！

Answer 1

'读取
Private Sub Command1_Click()
Dim fn As Long, StrRead As String
Dim aStr As String
fn = FreeFile()
aStr = ""
'路径可以用 App.Path & "\aa.txt" 表示程序所在目录的aa.txt文件
Open "d:\aa.txt" For Input As #fn
Do While Not EOF(fn)
Line Input #fn, StrRead
aStr = aStr & StrRead & vbCrLf
Loop
Close #fn
'解密方法解密aStr
'...
Text1.Text = aStr '解密后的aStr
End Sub

'保存
Private Sub Command2_Click()
Dim fn As Long, aStr As String
aStr = Text1.Text
'用自己的加密方法加密aStr
'...
fn = FreeFile()
Open "d:\aa.txt" For Output As #fn
'Print语句会覆盖文件中原有数据
Print #fn, aStr '加密后的aStr
Close #fn
End Sub

稍后我再附上一种加密\解密方法

Answer 2

这是别人的方法:http://zhidao.baidu.com/question/120605003.html?fr=ala0
介绍边读边写的方法

Dim TextLine As String, I As Integer
I = 0
Open App.Path & "\text2.txt" For Output As #2 ' 打开要写的文件。
Open App.Path & "\text1.txt" For Input As #1 ' 打开原文件。

Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
If I >= 10 Then '这里第10行也要读，第10行不读就是I > 10 ，自己试下

Print #2, TextLine ' 将文本数据写入文件。
End If
I = I + 1
Loop
Close #1 ' 关闭文件1。
Close #2 ' 关闭文件2。

Answer 3

1、使用open语句打开文件，然后读取，可以用line input #按行读，也可用inputb函数一次性读入。

2、vb6示例inputb函数一次性读入：

Private Sub Command1_Click()
  Open "d:\1.txt" For Binary As #1
  MsgBox StrConv(InputB(LOF(1), 1), vbUnicode)
  Close #1
  
End Sub