Question

用vbs怎样搜索某文件夹中的所有文件，提取出具有某种特定格式的字符串，然后统计每个代码出现的次数？

某种格式主要是指 如股票代码，“xxxxxx.sz"或"xxxxxx.sh"
我只有已经尽力给财富值了，无奈太穷了，不然一定多给些，急求~

Answer 1

xxxxxx.sz"或"xxxxxx.sh是*.SZ跟*.sh吗？
还是说档案名必须是6位~~

追问

对的 不过股票的代码形式都是六位数字 再加上那两个后缀。我有一堆txt格式的文件，每个文件中都有大量的股票代码。我要统计出所有这些文件中所出现的代码及其出现次数。不知道我有没有正确理解您的意思？

追答

folder="D:\111"

set dict=Createobject("Scripting.Dictionary")
set fso=createobject("scripting.filesystemobject")
set files=fso.getfolder(folder).files
for each f in files
if ( ucase(fso.getextensionname(f.path)) = "SZ" or ucase(fso.getextensionname(f.path)) = "SH" ) and len(left(f.name,instr(1,f.name,".")-1)) = 6  and IsNumeric(left(f.name,instr(1,f.name,".")-1)) then
set thefile=fso.opentextfile(f.path,1)
Do While theFile.AtEndOfStream <> True
      line= theFile.ReadLine
  If dict.exists(line) Then
   dict.item(line)=dict.item(line)+1
  Else
   dict.add line,1
  End If
Loop
thefile.close
end if
next
keys=dict.keys
fso.createtextfile ".\result.CSV",true 
set f=fso.opentextfile(".\result.CSV",8)
For each key in keys
 f.writeline key&","&dict.item(key) 
Next
f.close

可以试试~~

所有的TXT放在D:\111下面，把上面的代码保存为VBS档案并运行，会生成RESULT.CSV

RESULT.CSV用EXCEL打开，第一列为股票代码，第二列为在所有文件中出现的次数~

Answer 2

请问是从文件中提取还是从文件名中提取?

追问

文件中提取