如何删除文本文件的最后两行？

[ictest0510]

图片说明： 图1是一个文本文件，用UltraEdit查看，显示共有562行。
图2是这个文本文件经程序处理后想达到的结果，用UltraEdit查看，显示共有560行 （删除最后两行）。

程序中想要达到的效果：查找文件中是否含有“TOTAL PASS”行，如有，MsgBox "已找到"，删除该行及以下所有行，用UltraEdit查看，剩有560行（其实就是满足产找条件后，只删除最后两行，一行是含有“TOTAL PASS”行，一行是空行。）；如没有，MsgBox "没找到"，没有其他操作。

现状： 1、“查找文件中是否含有“TOTAL PASS”行”语句不会写，
2、自己写的删除语句的确是把含有“TOTAL PASS”行删掉了，但是同时把文本中所有空行都删掉了，文件最后还剩两个空行，整个文件内部的格式给改变了。

自己写的删除语句如下：
Dim i As Long, s As String
i = FreeFile
Open (Dir1.Path & "\" & File1.FileName) For Input As #i
s = StrConv(InputB(LOF(i), i), vbUnicode)
Close #i
i = FreeFile
Open (Dir1.Path & "\" & File1.FileName) For Output As #i
Print #i, Replace(Replace(s, "TOTAL PASS", ""), vbCrLf & vbCrLf, vbCrLf)
Close #i


请各位帮忙 1、“查找文件中是否含有“TOTAL PASS”行”语句怎么写？
2、删除语句有什么错误？
3、第一条和第二条如何进行功能合并？

[舉杯邀明月]

引用 楼主 ictest0510 的回复:

.............. 请各位帮忙 1、“查找文件中是否含有“TOTAL PASS”行”语句怎么写？ 2、删除语句有什么错误？ 3、第一条和第二条如何进行功能合并？

1.　既然你打开文件、读取数据之后，用了： 　　s = StrConv(InputB(LOF(i), i), vbUnicode) 　　那么你就用Instr() 函数来判断就行了： 　　　instr(1,s, “TOTAL PASS”)的返回值， 　　如果为0表示没有这个字符内容； 　　如果为某正整数，则表示读取到的内容中，至少有一个“TOTAL PASS”在文件内容中。 2.　你的“删除操作”，是把连续的两个“回车+换行”替换成一个。 　　从你的代码中，配合你的“操作1.”，看起来是“没有错”，但你可能忽略了一个问题： 　　“纯文本”的换行方式有两种：一种是“回车+换行”分界的；一种是“仅以换行符”分界的。 　　其中，前一种是VB6支持的，后一种则VB6是“不识别的”，这种情况下VB6不会认为文本是‘多行’。 　　如果你处理的那个文件，正好是这种换行方式，那么你的“删除空行”的操作就无效。 　　要识别是哪种换行方式也很简单，你打开“记事本”，把这个文件拖到记事本的窗口中， 　　如果“显示效果”跟你用UE打开的一样，那么这种文本文档是“回车+换行”分界的； 　　　如果“应该换行的地方没有换行显示”，那么它就是以“换行符”分界的。 　　其实以你的“删除操作无效”来看，也可以知道你这个文件是后一种换行方式了。 3.　其实也很简单，既然你读取文件，然后把文件内容转换成“字符串”了， 　　那么，定义一个Long类型变量，比如是 n ，在你“转换文件内容”之后： 　　n = instr(1,s, “TOTAL PASS”) 　　如果n为0，则不处理； 　　否则，n是正整数值，是找到了"TOTAL PASS"的，只要： 　　s = left$(s, n-1) 　　就可以把你想要删除的“末尾内容”删除掉了， 　　然后把这个s的新值输出到文件中，就是你想要的处理结果了。

[ictest0510]

非常感谢 Chen8013 舉杯邀明月 大神的回复！ 您的详细的回复向我传授了很多有用的知识，可以看出您是真心无私的、毫无保留的想要帮助一个新手，再次非常感谢！ 认真拜读了您的回复，并且我在网络中再次寻找，终想于找到一段源码，经过修改并试用后，能够达到我的使用要求，现把它贴上来，一是向Chen8013 舉杯邀明月 大神做一个汇报，二来希望能帮助一些有我同样或类似要求的朋友。 Private Sub Command1_Click() Dim i As Long, s As String i = FreeFile Open "c:\A121NA_S05601_40_1.dat" For Input As #i s = StrConv(InputB(LOF(i), i), vbUnicode) Close #i If InStr(1, s, "TOTAL PASS") = 0 Then MsgBox "没找到" Else MsgBox "找到了" F "c:\A121NA_S05601_40_1.dat" MsgBox "删除了" End If End Sub Sub F(ByVal Path As String) On Error GoTo eHandler: Dim Fc As String, Fn() As String, i As Integer Open Path For Binary As #1 Fc = Space(LOF(1)) Get #1, , Fc Close #1 Fn = Split(Fc, vbCrLf) Do Until Fn(UBound(Fn)) <> "" '删除了最后一行不为空的行——也就是删掉一行有数据的行 ReDim Preserve Fn(UBound(Fn) - 1) DoEvents Loop Do Until Fn(UBound(Fn)) = "" '删除了最后一行为空的行——也就是删掉一行空行 ReDim Preserve Fn(UBound(Fn) - 1) DoEvents Loop If UBound(Fn) <= 0 Then Open Path For Output As #1 Print vbNullString Close #1 Else ReDim Preserve Fn(UBound(Fn) - 1) Open Path For Output As #1 For i = 0 To UBound(Fn) Print #1, Fn(i) Next Close #1 End If Exit Sub eHandler: MsgBox "Error # " & Err.Number & " was generated by " & Err.Source & Chr(13) & Err.Description, vbCritical, "Error", Err.HelpFile, Err.HelpContext Err.Clear End Sub