[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 前不久摸鱼时写了简单的批处理字符长度计算器

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. title by TAT v1.0
  4. set /p str=
  5. set /A len=0
  6. for /L %%i in (0,0,0) do (
  7. set /A len=!len!+1
  8. echo !str! !str:~-1!
  9. if /I !str! EQU !str:~-1! (
  10. echo 此字符串长度为len=!len!
  11. pause>nul & exit
  12. )
  13. set str=!str:~-0,-1!
  14. )
  15. rem 已知bug如下:
  16. rem 1.直接不输入回车会出值。
  17. rem 2.0开头的话会出错
  18. rem 3.汉字按一个长度算,程序算出的其实是字符个数。
  19. rem 4.cmd单次输入字符最多1021个。。
复制代码

TOP

回复 2# TAT


plp626大神已给出很好的答案
http://www.bathome.net/redirect. ... 4946&ptid=11799

TOP

回复 1# TAT


解决第一个问题:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. :GetInput
  4. set "str="
  5. set /p "str=请输入字符串:"
  6. if "x!str!" equ "x" (
  7.     goto :GetInput
  8. )
  9. set "len=0"
  10. for /l %%i in (0,0,0) do (
  11.     set /a len=!len!+1
  12.     echo !str! !str:~-1!
  13.     if /i "!str!" equ "!str:~-1!" (
  14.         echo 此字符串长度为len=!len!
  15.         pause
  16.         exit
  17.     )
  18.     set "str=!str:~-0,-1!"
  19. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

后面注释里是几个已知BUG

TOP

返回列表