VB中读取文本文件中的每一行,处理后写入另一个文本文件
--------------------编程问答-------------------- 10,000行,每行算1000个字节。才10MB。一次性读取,Split()拆分成数组,计算,写入。 --------------------编程问答-------------------- 看文件大小,如果小的话可以直接读入进行处理,如果大的话可以使用内存影射文件。 --------------------编程问答-------------------- 支持一次性读取 --------------------编程问答-------------------- 这显然是一个命题作业。出题者预期的流程是逐行读入,判断,调用函数,写文件。
Dim strLine As String, strTmp() As String
Open "c:\source.txt" For Input As #1
Open "c:\result.txt" For Output As #2
Do Until EOF(1)
Line Input #1, strLine
strTmp = Split(strLine, "name")
If Ubound(strTmp) > 0 Then
Print #2, strLine & vbTab & abc(strTmp(1))
End If
Loop
Close #2
Close #1
补充:VB , 基础类