求个读写文本文件的思路
一个txt文件,有很多行,如何快速的读取指定行的文字?
比如一共有3000行,每行文字长度不等。现在要求读取456行的文字,怎么读出来?然后改变内容,再写回456行,怎么个思路呢?
谢谢!
[解决办法]
可以用lineinput函数
Dim filenum As Integer
Dim temp As String
filenum = FreeFile()
FileOpen(filenum, "c:\test.txt ", OpenMode.Input)
For i As Integer = 1 To Val(TextBox1.Text) '第n行
temp = LineInput(filenum)
Next
MsgBox(temp)
FileClose(filenum)
[解决办法]
用数组,文件小还可行,如果文件很大就不可行了
可能会用到虚存,在硬盘上倒来倒去,效率极低
不如开两个文件,一个读,一个写(临时文件)
读一行写一行,判断如果是哪一行,就写修改后的值
StreamReader.ReadLine行读
StreamWriter.WriteLine行写
完后,删除原文件,重命临时文件为原文件