联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off set/p input=输入: set str=%input% :loop set str=%str:~1% set/a n+=1 if not "%str%" == "" goto loop for /f "skip=1 delims=:" %%i in ('^(echo "%input%"^&echo.^)^|findstr /o ".*"') do set/a l=%%i-5 if %n% == %l% ( echo 字符串 %input% 不包含双字节字符 ) else ( echo 字符串 %input% 包含双字节字符 ) pause
@echo off setlocal enabledelayedexpansion :bgn set "n=" set /p str=请输入: :agn set "var=%str:~,1%" if %var% gtr Z (set /a n+=19) else (set /a n+=10) if not "%str:~1%"=="" (set "str=%str:~1%"&goto :agn) echo %n% goto :bgn
Originally posted by tireless at 2008-9-20 22:21: 有空格时不行
@echo off setlocal enabledelayedexpansion :bgn set "n=" set /p str=请输入: set "str=%str: =%" set "str=%str: =%" :agn set "var=%str:~,1%" if %var% gtr Z (set /a n+=19) else (set /a n+=10) if not "%str:~1%"=="" (set "str=%str:~1%"&goto :agn) echo %n% goto :bgn
@echo off setlocal enabledelayedexpansion :bgn set "n=" set /p str=请输入: :agn set "var=%str:~,1%" if "%var%" gtr "Z" (set /a n+=19) else (set /a n+=10) if not "%str:~1%"=="" (set "str=%str:~1%"&goto :agn) echo %n% goto :bgn
Originally posted by HAT at 2008-9-20 11:13 PM: 7楼的代码在比较的时候加上双引号行吗? [code]@echo off setlocal enabledelayedexpansion :bgn set "n=" set /p str=请输入: :agn set "var=%str:~,1%" if & ...
Originally posted by HAT at 2008-9-20 03:13 AM: 7楼的代码在比较的时候加上双引号行吗? [code]@echo off setlocal enabledelayedexpansion :bgn set "n=" set /p str=请输入: :agn set "var=%str:~,1%" if & ...
@echo off setlocal enabledelayedexpansion set /p "str=请输入:" set sum=0 :loop set "char=%str:~0,1%" for /f "skip=1 delims=:" %%a in ('^(echo."%char%"^&echo.^)^|findstr /o ".*"') do set /a len=%%a-5 if %len% equ 1 ( set /a sum+=10 ) else if %len% equ 2 ( set /a sum+=19 ) set "str=%str:~1%" if "%str%" neq "" ( goto :loop ) :show echo.%sum%