apang

vbs正则应该也可以吧

Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile("a.txt",1)
Max = 0
Do Until File.AtEndOfStream
   strLine = File.ReadLine
   Set Re = New RegExp
   Re.Pattern="[^\x00-\xff]"
   Re.Global=true
   strRe = Re.Replace(strLine,"aa")
   If Len(strRe) > Max Then Max = Len(strRe)
Loop
MsgBox "最大字节数：" & Max
复制代码