zqz0012005

@echo off
cd.>t~.txt
set /p str=请输入:
:loop
>>t~.txt echo.%str:~,1%
if not "%str:~1%"=="" (set "str=%str:~1%"&goto loop)
>>t~.txt echo.
setlocal enabledelayedexpansion
for /f "tokens=1,2 delims=:" %%a in ('findstr /o .* t~.txt') do (
   set /a n+=1,m=n-1
   set "_!n!=%%a"
   if !n! geq 2 (
      call set /a "len=%%_!n!%%-%%_!m!%%"
      if !len! equ 4 (if defined chr echo !chr!)
   )
   set chr=%%b
)
del t~.txt
echo.&pause
复制代码

if 判别汉字字符的根据似乎既不是国标码，也不是Unicode编码。