用vbs比较简单,而且精确- option explicit
- dim a, b, c, d, e, ForWriting
- ForWriting = 2
- set a = createobject("scripting.filesystemobject")
- set b = a.opentextfile("1.txt")
- set e = a.createtextfile("b.txt", ForWriting)
- do until b.atendofstream
- d = b.readline
- if not func1(d) = 3 then
- e.writeline d
- end if
- loop
-
- function func1(str)
- set c = new regexp
- c.pattern = "\\"
- c.global = true
- func1 = c.execute(str).count
- end function
复制代码
|