在对一个TXT文档操作时如何删除其中的一行？

Question

比如最后一行

Answer 1

先逐行读入数组，再逐行写，不写最后一个。
或读入一个字符串MYSTR，查找最后一个VBCRLF的位置M，再将left(mystr,m)写入到一个新文件。

Answer 2

用到seltext属性
   作用：选定的正文内容。

Answer 3

northwolves(野性的呼唤)是正解，用
open "C:\txt1.txt" for input as 1
do until eof (1)
    line input #1，数组
loop

Answer 4

Private Sub Command1_Click()
    Dim strTmp As String, strArray() As String
    
    Open "C:\aa.txt" For Input As #1
    strTmp = StrConv(InputB(LOF(1), #1), vbUnicode)
    Close #1
    
    strArray = Split(strTmp, vbCrLf) '将文件内容拆分成数组,一个数组元素代表一行,想删除哪行都行~~
End Sub