Question

批处理在每行最后没有百分号的增加“比例”两个字

批处理在每行最后没有百分号的增加“比例”两个字

Answer 1

保存为vbs类型文件

dim fso,file,StringIntercept,string_finally,string_arr(),count,spath,sfile,read
set fso=createobject("scripting.filesystemobject")
file="1.txt" '需要处理的文件
if instr(file,"\") then '过滤路径 
  spath=left(file,instrrev(file,"\")) 
  sfile=mid(file,instrrev(file,"\")+1)
 else
  sfile=file
end if
read=fso.opentextfile(file).readall '读取文件
StringIntercept=split(read,vbcrlf) '截取文本
for each list in StringIntercept '遍历文本
 if instr(right(list,1),chr(37))=0 and len(list)>0 then '检查最后一个字符是否是百分号
  redim preserve string_arr(count) '重定义变量数组
  string_arr(count)=left(list,len(list)-1)&"比例" '若不是,则将最后一个字改为"比例"
  count=count+1 '新建元素
 end if
next
string_finally=join(string_arr,vbcrlf) '合并数组
fso.createtextfile(spath&"New_"&sfile).write string_finally '写入新文件
set fso=nothing '释放内存