获取字符串长度、字节的批处理函数

youxi01

1. Rem ==========================函数测试区=================
   
2. @echo off
   
3. set "str=haoren就是"
   
4. call :GetStrLenAndStrB %str% strlen bytes
   
5. echo %strlen% %bytes%
   
6. Rem =====================================================
   
7. 
   
8. pause>nul
   
9. :GetStrLenAndStrB Str strlen bytes
   
10. Rem '///////////////获取字符串长度、字节函数/////////////////////////////////////////////////////////
    
11. Rem 'code by youxi01@bbs.bathome.net 适用于Winxp；
    
12. Rem '===============使用方法===================================
    
13. Rem '1、要调用本段函数，先将标签下:GetStrLenAndStrB所有内容拷贝
    
14. Rem '到对应批处理的pause段下。
    
15. Rem '2、参数解析：Str为要获取字节数的字符串，strlen用来保存字符串
    
16. Rem '长度，bytes用来保存字节
    
17. Rem '3、用法示例：:GetStrLenAndStrB "hao人" strlen bytes
    
18. Rem '则，strlen的结果就为：4,bytes中的结果即为：5
    
19. Rem '4、注意：本函数不能识别全角半角；
    
20. Rem '==========================================================
    
21. set "var=%~1"
    
22. for /l %%i in (0 1 200) do (
    
23.    setlocal enabledelayedexpansion
    
24.    set "var_=!var:~%%i,1!"
    
25.    if "!var_!"=="" goto :eof
    
26.    if !var_! gtr Z (endlocal & set /a %3+=2) else endlocal & set /a %3+=1
    
27.    set /a %2+=1
    
28. )

复制代码

somebody

这帖子不知道多少年前你已经发过了.............