- @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===============================
复制代码
|