1270697389 当前离线
上尉
评分人数
回复 1270697389 "s//\n/g" 把字符串全部替换成换行 "s/ apang 发表于 2014-1-13 15:12
TOP
apang 当前离线
上将
Set fso = CreateObject("Scripting.FileSystemObject") txt = fso.OpenTextFile("1.txt").ReadAll Set re = New RegExp re.Pattern = "<font.*?<br>" re.Global = True re.IgnoreCase = True fso.OpenTextFile("2.txt",2,True).Write re.Replace(txt,"")复制代码
vbs可以用.*?关闭贪婪属性,sed貌似不行不是很靠谱 apang 发表于 2014-1-12 17:46
sed -r "s/<br>/\n/g;s/<font[^\n]*\n//g" 1.txt>2.txt复制代码