【已解决】批处理怎样把相连数字用～连接？

zhanglei1371

如何用代码实现 将连续数字的“头”和“尾”用～相连
13, 14, 15, 19
2，3，4，6，7，8，9
.....
变为：
13～15，19
2～4，6～9

xxpinqz

1. 
   
2. @echo off
   
3. (for /f "delims=" %%a in (a.txt) do (
   
4.     set str=%%a
   
5.     setlocal enabledelayedexpansion
   
6.     set str=!str:,= !
   
7.     set str=!str:，= !
   
8.     for %%b in (!str!) do (
   
9.         if not defined out (
   
10.                 set /a a=b=out=%%b
    
11.         ) else (
    
12.             if !a! equ %%b (
    
13.                     set "out=!b!~%%b"
    
14.             ) else (
    
15.                 set "out=!out!,%%b"
    
16.                 set "b=!out!"
    
17.                 set a=%%b
    
18.             )
    
19.         )
    
20.         set /a a+=1
    
21.     )
    
22.     echo,!out!
    
23.     endlocal
    
24. ))>b.txt
    

复制代码

CrLf

简单暴力解，疯狂地 set：

1. @echo off&setlocal enabledelayedexpansion
   
2. for /l %%a in (0 1 98) do set /a $%%a=%%a+1
   
3. 
   
4. for /f "delims=" %%a in (a.txt) do (
   
5.    set "str=,%%a,"
   
6.    set "str=!str:，=,!"
   
7.    set "str=!str: =!"
   
8.    for %%b in (!str!) do for %%c in (!$%%b!) do (
   
9.       set "str=!str:～%%b,%%c,=～%%c,!"
   
10.       set "str=!str:,%%b,%%c～=,%%b～!"
    
11.       set "str=!str:,%%b,%%c,=,%%b～%%c,!"
    
12.    )
    
13.    echo !str:~1,-1!
    
14. )
    
15. pause

复制代码

CrLf

回复 2# xxpinqz


    目测可以省掉 set str=!str:,= !，因为 , = ; 空格 tab 都是分隔符

xxpinqz

回复 4# CrLf
多谢指点。

这set的炉火纯青啊。佩服！不过set的的缺陷最怕碰到2,3,4,1,2,3,4

CrLf

回复 5# xxpinqz


    先前未考虑乱序的情况，不过再加一个 set "str=!str:,%%b,%%c～=,%%b～!" 就好了，已修改