hfg1977

@echo off
setlocal enabledelayedexpansion&cls
:start ============================================================
for /f  "delims=" %%a  in (2.txt) do (
call :getStrLen %%a
echo !strlen!
)
:end ==============================================================
endlocal&echo 按任意键退出&pause>nul
::(mode con cols=80 lines=25&color 07&CHCP 437&graftabl 936)>nul
for /f "tokens=2" %%a in ('CHCP') do (if not "%%a"=="437" (color 07&CHCP 437&graftabl 936))>nul
exit/b
setlocal disabledelayedexpansion
echo 退出...&ping/n 4 127.1>nul
for /l %%a in (5,-1,0) do (set/p =退出... ^(%%a^)<nul&ping/n 2 127.1>nul)
::=======================MODE CODE==============================
::=======================获得字符串长度==============================
::返回值在中%strlen%
:getStrLen mystr
set "mystr=%~1"&set "strlen=0"
if not defined mystr goto :eof
for /l %%i in (0,1,8191) do (set strlen=%%i&if "!mystr:~%%i,1!"=="" (goto :eof))
goto :eof
::==============END======获得字符串长度========== by hf-g ===========
::=======================END MODE===============================
复制代码