jyswjjgdwtdtj

要不你干脆直接把你采集的网址发过来直接采集？

如果这里有一个字符串
aaa.bb.comasdf</
你是要截取aaa.bb.com还是aaa.bb.comasdf?

jyswjjgdwtdtj

要是效率不够还能再提（但是也没太大作用）

set s=createobject("shell.application")
set f=s.namespace(replace(wscript.scriptfullname,wscript.scriptname,""))
set re=new regexp
set fso=createobject("scripting.filesystemobject")
set info=fso.createtextfile("info.log",2,true)
function gettext(fp)
set a=fso.opentextfile(fp,1)
gettext=a.readall
a.close()
end function
sub writetext(fp,t)
on error resume next
set a=fso.createtextfile(fp,true)
if err.number<>0 then msgbox fp:err.clear
a.write t
a.close()
end sub
re.pattern="[a-zA-Z\.\\]+\.(com|cn|cc|net|org|top|vip)[a-zA-Z\.\\]*"
re.global=true
call ft(f)
sub ft(obj)
set fs=obj.items
fs.filter &h20,"*"
set fi=obj.items
fi.filter &h40,"*.txt"
for each f in fs
call ft(f.getfolder)
next
for each f in fi
t=gettext(f.path)
  for each e in re.execute(t)
    if len(e)<6 then
       t=replace(t,e,"")
       info.writeline e
    end if
  next
call writetext(f.path,t)
next
end sub
复制代码

保存为vbs 建议备份文件在运行
嗯……还是ps代码漂亮 可惜我不会

jyswjjgdwtdtj

嗯 改了一下就好了

set s=createobject("shell.application")
set f=s.namespace(createobject("wscript.shell").currentdirectory)
set re=new regexp
set fso=createobject("scripting.filesystemobject")
set info=fso.createtextfile("info.log",2,true)
function gettext(fp)
    Set objStream = CreateObject("ADODB.Stream")
    objStream.CharSet = "utf-8"
    objStream.Open
    objStream.LoadFromFile fp
   gettext=objstream.readtext
end function
sub writetext(fp,t)
    Set objStream = CreateObject("ADODB.Stream")
    objStream.CharSet = "utf-8"
    objStream.Open
objstream.writetext t
    objStream.savetoFile fp,2
end sub
re.pattern="[a-zA-Z\.\\]+\.(com|cn|cc|net|org|top|vip)[a-zA-Z\.\\]*"
re.global=true
call ft(f)
sub ft(obj)
set fs=obj.items
fs.filter &h20,"*"
set fi=obj.items
fi.filter &h40,"*.txt"
for each f in fs
call ft(f.getfolder)
next
for each f in fi
t=gettext(f.path)
msgbox t
  for each e in re.execute(t)
    if len(e)<6 then
       t=replace(t,e,"")
       info.writeline e
    end if
  next
call writetext(f.path,t)
next
end sub
复制代码