我有一个循环,在.ini文件中找到重复的行。我可以愉快地找到重复的行,并使用FileSystemObject将新行写入文件,但是...我似乎无法找到如何删除重复的行。我想要做的是删除行号,因为我已经确定了相关的行号。
是否有本地方法来执行此操作,或者是重写文件减去重复行的情况?
非常感谢任何帮助。
感谢。
我找到重复条目的方法如下:
Do While Not file.AtEndOfStream
intLineNumber = intLineNumber + 1
strReadLineText = file.ReadLine
If strSearchText <> "" And InStr(strReadLineText, strSearchText) > 0 Then
session("message") = "Line Exists on " + Cstr(intLineNumber)
'' # delete duplicate line...
End If
Loop
file.Close()
您可以看到我的评论在哪里,我希望删除找到的行。
答案 0 :(得分:5)
在VBScript(或内部对象)中没有内置方法可以做到这一点。
我的投票是使用字符串连接来完成此操作;即,不是删除行,而是逐行创建一个新文件,如果你正在构建的字符串中不存在该行,则只附加到字符串。