中国DOS联盟

@echo off

:began

set /p mystr=输入要计算长度的字符串:

echo %mystr:~0,1% | findstr /i "q" 1>nul 2>nul && exit  rem 输入q退出



call :bflen "%mystr%"       rem 这两句调用bflen，返回长度到变量ret中。

echo 字符串:	"%mystr%"

echo 长  度:	%ret%



goto began



:bflen        rem 真麻烦，初始化要单独拿出来。

set num=

set str=

set ret=

set str=%1

:len          rem 计算字符串长度

set str=%str:~0,-1%

set /a num = %num% + 1

if defined str goto len

set /a ret = %num% - 2

set num=

goto :eof

### Problem analysis
1. **Vulnerability analysis**:
- **Edge case handling**:
- When the input string is an empty string, the current code will have problems. For example, if `mystr` is an empty string, the `bflen` function will calculate incorrectly. Because when `str` is an empty string, the loop in the `len` label will still execute, and finally `ret` will be calculated incorrectly.
- **Variable scope issues**:
- The variables `num`, `str`, and `ret` are set in the `bflen` function. If there are other parts of the code that also use these variable names, there may be variable name conflict problems.

### Optimization suggestions
1. **Handle empty string situation**:
in the `bflen` function, add a judgment at the beginning of the `bflen` function to handle the case of an empty string. For example:
```batch
:bflen
set num=
set str=
set ret=
if "%~1"=="" (
set ret=0
goto :eof
)
set str=%1
:len
set str=%str:~0,-1%
set /a num = %num% + 1
if defined str goto len
set /a ret = %num% - 2
set num=
goto :eof
```
2. **Improve variable scope**:
- To avoid variable name conflicts, you can use more specific variable names. For example, prefix the variable names in the `bflen` function with `bflen_`. Modify the relevant parts as follows:
```batch
:bflen
set bflen_num=
set bflen_str=
set bflen_ret=
if "%~1"=="" (
set bflen_ret=0
goto :eof
)
set bflen_str=%1
:len
set bflen_str=%bflen_str:~0,-1%
set /a bflen_num = %bflen_num% + 1
if defined bflen_str goto len
set /a bflen_ret = %bflen_num% - 2
set bflen_num=
set ret=%bflen_ret%
goto :eof
```

The above code first handles the situation of an empty string and then improves the variable scope to make the code more robust.

```code
@echo off
:began
set /p mystr=输入要计算长度的字符串:
echo %mystr:~0,1% | findstr /i "q" 1>nul 2>nul && exit rem 输入q退出

call :bflen "%mystr%" rem 这两句调用bflen，返回长度到变量ret中。
echo 字符串: "%mystr%"
echo 长 度: %ret%

goto began

:bflen
set bflen_num=
set bflen_str=
set bflen_ret=
if "%~1"=="" (
set bflen_ret=0
goto :eof
)
set bflen_str=%1
:len
set bflen_str=%bflen_str:~0,-1%
set /a bflen_num = %bflen_num% + 1
if defined bflen_str goto len
set /a bflen_ret = %bflen_num% - 2
set bflen_num=
set ret=%bflen_ret%
goto :eof
```

@echo off & setlocal EnableExtensions

:began

set mystr=

set /p mystr=输入要计算长度的字符串(直接回车退出):

if not defined mystr goto :eof

call :strlen

echo 字符串:  "%mystr%"

echo 长  度:  %strlen%

goto began



:strlen          rem 计算字符串长度

set strlen=

echo "%mystr%">_strlen.tmp

for %%f in (_strlen.tmp) do set strlen=%%~zf

set /a strlen=strlen-4

goto :eof

@echo off & setlocal EnableDelayedExpansion

:began

set mystr=

set /p mystr=输入要计算长度的字符串(直接回车退出):

if not defined mystr goto :eof

for /l %%i in (0,1,1000) do if "!mystr:~%%i,1!"=="" set strlen=%%i && goto :_endfor

:_endfor

::echo 字符串:  "%mystr%"

echo 长  度:  %strlen%

set strlen=

goto began

Re 3742668:

There are some flaws in the program's exit statement, which will cause all strings starting with q to not be able to measure the length. In addition, it feels that the algorithm for getting the string length is somewhat inefficient. Originally, the algorithm of echoing the string to a file and then getting the file length was used . But it also has compatibility problems of not being able to measure the length of some special strings, so it was changed to the current algorithm .

Test cases:
command
command>nul
"command>nul"
command"com

@echo off & setlocal EnableExtensions

:began

set mystr=

set /p mystr=输入要计算长度的字符串(直接回车退出):

if not defined mystr goto :eof

call :strlen

echo 字符串:  "%mystr%"

echo 长  度:  %strlen%

goto began



:strlen          rem 计算字符串长度

set strlen=

echo "%mystr%">_strlen.tmp

for %%f in (_strlen.tmp) do set strlen=%%~zf

set /a strlen=strlen-4

goto :eof

@echo off & setlocal EnableDelayedExpansion

:began

set mystr=

set /p mystr=输入要计算长度的字符串(直接回车退出):

if not defined mystr goto :eof

for /l %%i in (0,1,1000) do if "!mystr:~%%i,1!"=="" set strlen=%%i && goto :_endfor

:_endfor

::echo 字符串:  "%mystr%"

echo 长  度:  %strlen%

set strlen=

goto began

Thanks in advance.
But maybe I didn't make it clear. My original intention was to make the part of getting the string length into something like a function, so that it can be directly copied and called in other batch scripts. Hehe, it's easier to be lazy when there are more accumulations.
If I write another batch script now, I can directly copy the statements after the bflen label and call them using call.

The code 2 on the second floor has to calculate 1000 times each time, which is too slow.

It won't. It will just jump out after executing the number of times equal to the length of the string. Please pay attention to the line && goto :_endfor.

There is also a problem with code 2. If Chinese is included, it is only regarded as 1 byte

Originally posted by skyearth at 2007-3-1 11:35:
There is also a problem with code 2. If Chinese is included, it is only regarded as 1 byte.

This is simply about the number of bits.

It's convenient for VBS to directly use len(str)...

The biggest bug is that it can only be single-line.

Maybe not described clearly. I want to judge how to get the actual number of bytes when mixing Chinese and English characters with BAT. For example, "这是一个test", if using code one, the result 12 is the correct result, while code two has a result of 8, which is inconsistent with the actual number of bytes, this is just the number of characters.

I am making a script that can display progress information in place. Because the length of Chinese characters cannot be calculated correctly, the length of backspace is not easy to control, please understand.