strlen.bat

来自「高手lxmxn收集的批处理。包括了批处理教程和他写的几十个很经典的代码。」· Batch 代码 · 共 24 行

::Code by lxmxn @ bbs.cn-dos.net
::测试字符串的长度
::Modified 16:06 2007-1-12

@echo off&setlocal EnableDelayedExpansion
:begined
set/p str=请输入字符串：
set a=0
:begin
	if not "!str:~%a%,1!"=="" (
	set /a a+=1
	goto :begin
	) else (goto :end)
:end
	echo 字串的长度是:%a%
	echo.&echo.
	set /p "choose=是否继续测试字符串？Y / N >>   "
	if /i "%choose%"=="y" (
	cls
	set a=0
	set str=
	set choose=
	goto :begined) else (goto :eof)