请问如何删除文本文件中得一行

Question

如果有两个定时器，一个不断向文件中一行一行的写入，另一个则控制不断地从这个文件中一行一行的读出，经过一定的处理后再删除一行，请问这样是否可以呢？怎样删除一行呢？

Answer 1

Dim strTmp As String, strArray() As String
Dim i As LongOpen "C:\aa.txt" For Input As #1
strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1strArray = Split(strTmp, vbCrLf) '将文件内容按行放到数组中,一个数组元素代表一行,你随删除哪一行都行了吧~~strTmp = ""
'将删除数据之后的数组组合
For i = 0 To UBound(strArray) - 1
    strTmp = strTmp & strArray(i) & vbCrLf
Next'将组合后的数据再存到文件里
Open "C:\aa.txt" For Output As #1
Print #1, strTmp
Close #1