RT
[ Last edited by tireless on 2008-9-21 at 04:19 PM ]
[ Last edited by tireless on 2008-9-21 at 04:19 PM ]
联盟域名: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 :bgnOriginally 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楼的代码在比较的时候加上双引号行吗?
@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楼的代码在比较的时候加上双引号行吗?
@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%
Originally posted by HAT at 2008-9-20 05:30 AM:
那就用2楼的思路吧
@echo off
setlocal enabledelayedexpansion
set /p "str=请输入:"
set sum=0
:loop
set "char=%str:~0,1%"
for /f "skip=1 delims=:" ...
@echo off
setlocal enabledelayedexpansion
:bgn
type nul>t_.txt
set "n="&set "count="
set /p str=请输入:
:agn
>>t_.txt echo.!str:~,1!
if not "!str:~1!"=="" (set "str=!str:~1!"&goto :agn)
>>t_.txt echo god
for /f "delims=:" %%a in ('findstr /o .* t_.txt') do (
set /a "n+=1","m=n-1"
set "_!n!=%%a"
if !n! geq 2 (
call set /a "var=%%_!n!%%-%%_!m!%%"
if !var! equ 4 (set /a count+=19) else (set /a count+=10)
)
)
echo %count%
goto :bgn@echo off
setlocal enabledelayedexpansion
:bgn
del t_.txt 1>nul 2>nul
set "n="&set "count="
set /p str=请输入:
:agn
set st=!str:~,1!
>>t_.txt echo.!st!
if not "!str:~1!"=="" (set "str=!str:~1!"&goto :agn)
>>t_.txt echo god
for /f "delims=:" %%a in ('findstr /o .* t_.txt') do (
set /a "n+=1","m=n-1"
set "_!n!=%%a"
if !n! geq 2 (
call set /a "var=%%_!n!%%-%%_!m!%%"
if !var! equ 4 (set /a count+=19) else (set /a count+=10)
)
)
echo %count%
goto :bgn
C:\Test>test.bat
请输入:床前明月光,疑是地上霜。举头望明月,低头思故乡。
456
If %str%==/h 执行命令 & exit
...
if /i "%str:~,2%"=="/h"
怎么后面知道加引号,前面为何不加
请输入:(*^__^*) 嘻嘻……
此时不应有 嘻嘻……。
请输入:(**) 嘻嘻
此时不应有 嘻嘻。
请输入:O(∩_∩)O哈哈
此时不应有 O哈哈。
请输入:O(∩_∩)O
此时不应有 O。
@echo off
:s
set /p str=请输入:
if not defined str echo 未定义&goto :s
If "%str%"=="/h" echo 执行/h命令&goto :s
If "%str%"=="/s" echo 执行/s命令&goto :s
If "%str%"=="/r" echo 执行/r命令&goto :s
if /i "%str:~,3%"=="/h " (
set str=%str:~3%
echo 执行/h命令
goto showtext
)
if /i "%str:~,3%"=="/s " (
set str=%str:~3%
echo 执行/s命令
)
:showtext
echo %str%
goto s@echo off
Setlocal Enabledelayedexpansion
:s
set "str="
set /p str=请输入:
if not defined str echo 未定义&goto :s
If /i "!str!"=="/h" echo 执行/h命令&goto :s
If /i "!str!"=="/s" echo 执行/s命令&goto :s
If /i "!str!"=="/r" echo 执行/r命令&goto :s
if /i "!str:~,3!"=="/h " (
set "str=!str:~3!"
echo 执行/h命令
goto showtext
)
if /i "!str:~,3!"=="/s " (
set "str=!str:~3!"
echo 执行/s命令
)
:showtext
echo !str!
goto s