Question

批处理提取字符串

有个文件a.txt，内容如下：
abc-1.0.0.jar
a.jar
cba-ca-2.0.1.jar
bbb-2.01.ca.jar

想通过一个批处理，输出下面的结果：
abc
a.jar
cba-ca
bbb
即：保留 -数字 之前的部分，不包含-数字的，保留原来名称
求高手指点！

Answer 1

@echo off
for /f "delims=:" %%i in ('findstr/bn "[^0-9][^0-9]*\-[0-9]" "a.txt"')do set #%%i=y
(for /f "tokens=1* delims=:" %%i in ('findstr/n .* "a.txt"')do (
    if defined #%%i (
        set "h=%%j"
        setlocal enabledelayedexpansion
        for /f "delims=0123456789" %%k in ("!h!")do set "s=%%k"
        set "h=!s:~,-1!"
        echo;!h!
        endlocal)else echo;%%j
))>b.txt
pause

追问

如果前面名称包含数字，例如：sdg4j-1.4.8.jar
这怎么处理？结果要求为sdg4j

追答

呵呵 我可是按开始所描述的"规则"写的... 一会帮你重写一个,再考虑下这个"规则"有无再补充的

追问

好，谢谢你，我在加点分

追答

呵呵，加分就不必了。要说呢之前是考虑得不太周到，下面代码是根据每行如遇到"-"加数字，即取此前内容输出（没遇到当然就整行输出啦）代码中的"ゅ"是估计原文中不会有的单个字符（不然得换一种）输出会去掉纯空行：

@echo off 
(for /f "usebackq delims=" %%i in ("a.txt")do ( 
       set "h=y%%i" 
       setlocal enabledelayedexpansion 
       for /L %%j in (0 1 9)do set "h=!h:-%%j=ゅ!"
       for /f "delims=ゅ" %%k in ("!h!")do set "h=%%k"
       echo;!h:~1!
       endlocal
))>b.txt
pause

Answer 2

 保存为vbs类型文件

on error resume next 
dim fso,file,read,readlist,ReadIntercept,FilterString,string_finally,str_arr(),count,spath 
file="all.txt"        '需要处理的文本文件 
if instr(file,"\") then       '过滤路径 
spath=left(file,instr(file,"\")) 
else 
spath=empty 
end if 
set fso=createobject("scripting.filesystemobject") 
if fso.fileexists(file)=false then msgbox "文件不存在",64,wscript.scriptname:quit 
read=fso.opentextfile(file).readall     '读取全文 
ReadIntercept=split(read,vbcrlf)     '截取文本 
for each readlist in ReadIntercept     '处理字符串 
 redim preserve str_arr(count)     '重定义变量数组 
if instr(readlist,"-")>0 then
 FilterString=split(readlist,"-")    '过滤字符串 
 if isnumeric(left(mid(readlist,instrrev(readlist,"-")+1),1))=true then      '如果存在数字则保留数字之前的字符串,否则不作处理 
  str_arr(count)=left(readlist,instrrev(readlist,"-")-1)
end if
 else 
  str_arr(count)=readlist
 end if 
 count=count+1       '新增数组元素 
next 
string_finally=join(str_arr,vbcrlf)     '合并数组 
fso.createtextfile(spath&"new_"&file).write string_finally '生成新文件 
sub quit       '退出程序 
set fso=nothing  
wscript.quit 
end sub