[ 新手练习 4 ] 批处理计算字符串长度

pzspdl

我还是看看别人的吧，我太菜了

keen

法四中
for /f "tokens=1 delims=:" %%i in ('findstr /o .* a.txt') do set /a length=%%i-2&if not %%i  equ 0 echo 共有%length%个字符&goto end
应该是一行，估计网页原因，显示为两行，所以我觉得是不是%length% 改为!length!
如不对，请指正！

taofan712

1. @echo off
   
2. set str=123ABC上中下
   
3. set /a n=0
   
4. :loop
   
5. set str=%str:~0,-1%
   
6. if  "%str%" neq "" (set /a n+=1 & goto loop)
   
7. echo 这个字符串是%n%位数 & pause>nul

复制代码

Nsqs

回复 12# batman

1. @echo off
   
2. set n=12345689
   
3. set n=%n%;
   
4. for /f "tokens=1 delims=:" %%1 in ('^(echo %n:;=^&echo.%^)^|findstr  /o ".*"')do set /a c=%%1-3
   
5. echo %c%
   
6. pause

复制代码

不用临时文件

taofan712

1. @echo off
   
2. set str=123ABC上中下
   
3. :loop
   
4. set /a a+=1
   
5. set str=%str:~0,-1%
   
6. if "%str%"=="" (echo %a%&pause>nul ) else goto loop

复制代码

taofan712

1. 
   
2. @echo off
   
3. set "var=qwertyuioplkjhgfdsazxcvbnm"
   
4. call :strLen var long
   
5. echo;%long%
   
6. pause&exit /b
   
7. :strLen
   
8. 
   
9. (   SETLOCAL ENABLEDELAYEDEXPANSION
   
10.     set "str=A!%~1!"
    
11.     set "len=0"
    
12.     for /L %%A in (12,-1,0) do (
    
13.         set /a "len|=1<<%%A"
    
14.         for %%B in (!len!) do if "!str:~%%B,1!"=="" set /a "len&=~1<<%%A"
    
15.     )
    
16. )
    
17. ( ENDLOCAL
    
18.     IF "%~2" NEQ "" SET /a %~2=%len%
    
19. )
    
20. goto :eof
    

复制代码

很偏门，但很好用，不忍独享,文件出处http://www.it1352.com/328587.html

回家路上

回复 21# taofan712

最好标明出处，方便看到的朋友系统学习。如果是你没记出处，就是你的问题了。
http://www.bathome.net/thread-11799-1-1.html
结合帖子中设置为一个变量调用的思路，也试着把这种方式写成一行试试

1. 
   
2. @echo off & setlocal enabledelayedexpansion
   
3. set "_strlen=set $=#^!$^!&set ##=&for /l %%a in (12,-1,0)do set/a"##^|^=1^<^<%%a"&for %%b in (^!##^!)do if ^!$:~%%b^!.==. set /a"##^&^=~1^<^<%%a""
   
4. 
   
5. for %%i in (
   
6.         12345678901234567890123456789012345678901234567890
   
7.         1234567890123456789012345678901234567890
   
8.         123456789012345678901234567890
   
9.         12345678901234567890
   
10.         1234567890
    
11.         1
    
12. ) do (
    
13.         set "$=%%i" & (%_strlen%)
    
14.         echo;!##! : %%i
    
15. )
    
16. 
    
17. pause & exit /b
    

复制代码

diverpan

参变量的最少个数为1，最少循环次数也为1，思路清晰了，也挺好写的

老刘1号

8086ASM（DEBUG版）

1. 
   
2. Echo off&CLS
   
3. IF /i "%PROCESSOR_ARCHITECTURE%" EQU "AMD64" (
   
4.         echo DEBUG和8086_ASM不支持64位的系统。
   
5.         Pause&Exit
   
6. )
   
7. >"%Tmp%\DEBUGASM.TMP" (
   
8. Echo        A
   
9. Echo                MOV        BX,20                ;一段安全的空间
   
10. Echo                MOV        SS,BX
    
11. Echo                MOV        SP,80                ;清理安全空间
    
12. Echo                MOV        CX,40                ;循环次数（HEX）=清理字节数（128B）/入栈大小（2B）
    
13. Echo                SUB        BX,BX                ;清空BX
    
14. Echo                PUSH        BX                ;执行入栈（清理）
    
15. Echo                LOOP        10D                ;循环压栈
    
16. Echo                SUB        CX,CX                ;清空CX
    
17. Echo                INT        21H
    
18. Echo.&Echo        G)
    
19. Set /P str=Input a string:
    
20. Echo E20:0 "%STR%">>"%Tmp%\DEBUGASM.TMP"
    
21. More +25 "%~0" >>"%Tmp%\DEBUGASM.TMP"
    
22. For /f "Tokens=2" %%a in (
    
23.         '^<%tmp%\DEBUGASM.TMP DEBUG^|Findstr /c:"0020:0000"'
    
24. ) Do Set /a Strlen=0x%%a
    
25. DEL %tmp%\DEBUGASM.TMP
    
26. Echo %Strlen%&Pause&Exit /b
    
27. A100
    
28.         MOV        BX,20                ;一段安全的空间
    
29.         MOV        DS,BX
    
30.         SUB        BX,BX                ;清空BX
    
31.         MOV        CL,[BX]                ;获取Ascii
    
32.         JCXZ        10E                ;判断是否为NUL并跳出
    
33.         INC        BX                ;计数
    
34.         JMP        107                ;循环读取
    
35.         MOV        [0],BX                ;将字符串长度写入内存
    
36.         INT        21H
    
37. 
    
38. G
    
39. D20:0 0
    
40. Q
    
41. Q

复制代码

happy886rr

回复 24# 老刘1号
超过65个字符就不行。

老刘1号

回复 25# happy886rr


    峰值为71个
DEBUG一行就那么长...

happy886rr

回复 26# 老刘1号
很棒，71个够用了，一般太长的都直接C语言解决。

老刘1号

回复 27# happy886rr


    感谢鼓励，
新版本出炉，峰值达到255个
用法： Batname <String>
继续学习汇编～～

1. 
   
2. @Echo off
   
3. IF /i "%PROCESSOR_ARCHITECTURE%" EQU "AMD64" (
   
4.         echo DEBUG和8086_ASM不支持64位的系统。
   
5.         Pause&Exit
   
6. )
   
7. Set "Str=%*"
   
8. >%tmp%\DEBUGASM.TMP (
   
9.         ECHO A20:0
   
10.                 ECHO DB "%Str:~,70%"
    
11.                 ECHO DB "%Str:~70,70%"
    
12.                 ECHO DB "%Str:~140,70%"
    
13.                 ECHO DB "%Str:~210,45%"
    
14.                 ECHO DB 0
    
15.         ECHO.
    
16.         MORE +20 "%~0"
    
17. )
    
18. For /f "Tokens=2" %%a in (
    
19.         '^<%tmp%\DEBUGASM.TMP DEBUG^|Findstr /c:"0020:0000"'
    
20. ) Do Set /a Strlen=0x%%a 2>nul
    
21. Echo %Strlen%&DEL /F %tmp%\DEBUGASM.TMP&Exit /b
    
22. A100
    
23.         MOV        BX,20                ;一段安全的空间
    
24.         MOV        DS,BX
    
25.         SUB        BX,BX                ;清空BX
    
26.         MOV        CL,[BX]                ;获取Ascii
    
27.         JCXZ        10E                ;判断是否为NUL并跳出
    
28.         INC        BX                ;计数
    
29.         JMP        107                ;循环读取
    
30.         MOV        [0],BX                ;将字符串长度写入内存
    
31.         INT        21H
    
32. 
    
33. G
    
34. D20:0 0
    
35. Q
    
36. 老刘制作～

复制代码

happy886rr

回复 28# 老刘1号
255个已经够用了。再长的批处理自己也能计算。

懒虫阿布

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. ::%1  字符串
   
5. set str=%1
   
6. 
   
7. set strLen=0
   
8. :StartLoop
   
9. if  "%str%"==""  goto EndLoop
   
10. set str=!str:~1!
    
11. set /a strLen+=1
    
12. goto StartLoop
    
13. :EndLoop
    
14. 
    
15. echo %1 length is !strLen!
    

复制代码