@echo off
setlocal enabledelayedexpansion
set /p var=<%1
set i=0
:loop
if "%var%"=="" (
::求文本长度
echo %i%
goto jt
)
set var=%var:~0,-1%
set /a i+=1
goto loop
:jt
set /a j=i-1
for /l %%a in (0,1,%j%) do (
for /f "delims=" %%I in (%1) do (
set str=%%I
set xxxx=!str:~%%a,1!
::排除空格
if not "!xxxx!"==" " echo !xxxx! >!xxxx!.txt
)
)
:eof |
|