苗启源的部落格

测试某文件中字符串的重复次数，写了很长时间了。经常用到，发上来备用。
可获得某文件中某字符串中某字符串出现的次数~

staTme=timer()
set fso=createobject("scripting.filesystemobject")
set t=fso.opentextfile(fso.getabsolutepathname("in.txt"),1)
set o=fso.opentextfile(fso.getabsolutepathname("out.xls"),2)
a=";"
do while not t.atendofstream
	p=t.readline
	if instr(a,";"&p&":")=0 then
		a=a&p&":1;"
	else
		at=""
		for each c in split(a,";")
			if c<>"" then
				if instr(c,p&":")>0 then
					if instr(c,":")>0 then
						pt=split(c,":")
						at=at&pt(0)&":"&cint(pt(1))+1&";"
					end if
				else
					at=at&c&";"
				end if
			end if
		next
		a=at
	end if
loop
o.write replace(replace(a,";",vbCrlf),":","	")
msgbox "导入成功，用时"&(timer()-staTme)*1000&"毫秒。"

staTme=timer()
set fso=createobject("scripting.filesystemobject")
set t=fso.opentextfile(fso.getabsolutepathname("in.txt"),1)
set o=fso.opentextfile(fso.getabsolutepathname("out.xls"),2)
a=";"
x=t.readall
for	each p in split(x,vbCrlf)
	if instr(a,";"&p&":")=0 then
		a=a&p&":1;"
	else
		at=""
		for each c in split(a,";")
			if c<>"" then
				if instr(c,p&":")>0 then
					if instr(c,":")>0 then
						pt=split(c,":")
						at=at&pt(0)&":"&cint(pt(1))+1&";"
					end if
				else
					at=at&c&";"
				end if
			end if
		next
		a=at
	end if
next
o.write replace(replace(a,";",vbCrlf),":","	")
msgbox "导入成功，用时"&(timer()-staTme)*1000&"毫秒。"