87,910
社区成员
发帖
与我相关
我的任务
分享
" Next re.Pattern= "&\w+;?|\W{5,}" s=re.Replace(s,"") .Position=0 .setEOS .WriteText s .SaveToFile p & "'s URLs.html",2 .Close End With Next Msgbox "网址列表已经生成!",,"成功" 'vbs代码结束----------------------------------------------