Question

vbs读取字符串

比如我读取D:\这个目录， 如果有存在 "upload_"开头的文件（比如这个文件是upload_2014_123.jpg_()_123.jpg.txt) 我就把这个文件upload_开头之后 中间的部分读取出来 存在成一个变量(提取的部分应该是2014_123.jpg_()_123.jpg.txt ) 请问这个如何做到？本人比较菜，请写的简单点 谢谢

Answer 1

dim fso,findfiles,filelist,count,filename_arr(),findstring,ExtensionName,StringIntercept,filename_finally
'初始化变量
findstring="upload_" '搜索的字符串
ExtensionName="txt" '搜索的文件类型
path_target="d:\" '目标目录
'开始处理文件
set fso=createobject("scripting.filesystemobject")
set findfiles=fso.getfolder(path_target)    '目标目录
for each filelist in findfiles.files     '遍历文件夹
 if instr(filelist.name,findstring)>0 and fso.getextensionname(filelist.name)=ExtensionName then '如果文件后缀名以及文件名符合条件则开始执行下面的代码
  StringIntercept=split(filelist.name,findstring)(1) '删除需要排除的字符
  redim preserve filename_arr(count)   '重定义变量数组总数
  filename_arr(count)=StringIntercept   '为处理好的字符串赋值给数组变量
  count=count+1      '添加数组元素
 end if
next
filename_finally=join(filename_arr,vbcrlf)    '过滤数组元素,结果以每行显示
msgbox filename_finally       '显示结果
set fso=nothing        '释放内存

Answer 2

给你写了一个FUNCTION,你可以通过修改TEST的值去获取最后转换的值~

 

'定义test的值
test="upload_2014_123.jpg_()_123.jpg.txt"
'输出自定函数zh("upload_2014_123.jpg_()_123.jpg.txt")的值,会输出2014_123.jpg_()_123.jpg.txt
'zh函数是会去转换信息
wscript.echo zh(test)

Function zh(str)
'lcase是将STR转换为小写.
'instr(1,lcase(str),"upload_")会返回"upload_"在test的起始位置,这里是1,从第1个起就是upload_
'>0表示包含upload_
if instr(1,lcase(str),"upload_") > 0 then
 'ringht表示从右往左取,len(str)-7表示字串STR的长度-7,即取从左往右数第7个字串后的所有字串
 zh=right(str,len(str)-7)
end if
end function