[文本处理] 【已解决】批处理：批量提取特定位置的数据

@echo off &setlocal enabledelayedexpansion &color 0a
set "var=%cd%"
set "file=文件夹"
pushd %var% >nul
mkdir "%file%2" >nul 2>nul
for /f "delims=" %%a in ('dir /b /a -d /s "%file%1\*.txt" 2^>nul') do (
  set "txtpath=%%~fa"
  set "txtname=%%~nxa"
  call :main !txtpath!
  pause.>nul
)
pause.
call exit

:main
for /f "usebackq tokens=3 delims= " %%a in ("%1") do (
  set "code0=%%a" &&set "code0=!code0: =!"
  set "code=!code0:*●=!"
  call :getlen
  for /f "usebackq skip=1" %%a in ("%1") do (
    set "code2=%%a" &&set "code2=!code2: *=!"
    call :getnum
  )
)
echo.当前处理文件：[!txtname!]
echo.获取第一行有效字符：[!code0!]
echo.获取第二行有效字符：[!code2!]
echo.第一行 ● 所在位置：!len!
echo.第二行第 !len! 个字符为： [!num!]
echo.写入 [!num!] -^> "%cd%\!file!2\!txtname!"
(echo.!num!)>"%cd%\!file!2\!txtname!"
goto :eof

:getlen
if "!code!" EQU "" (
  set /a "len=10"
  goto :eof
)
set /a "i=0"
:getlen_main
set "code1=!code:~%i%,1!"
if "!code1!" NEQ "" (
  set /a "i+=1"
  goto :getlen_main
)
set /a "len=10-i"
goto :eof

:getnum
set /a "len0=len-1"
set "num=!code2:~%len0%,1!"
goto :eof
复制代码

set "file=文件夹"
复制代码

echo.当前处理文件：[!txtname!]
echo.获取第一行有效字符：[!code0!]
echo.获取第二行有效字符：[!code2!]
echo.第一行 ● 所在位置：!len!
echo.第二行第 !len! 个字符为： [!num!]
echo.写入 [!num!] -^> "%cd%\!file!2\!txtname!"
复制代码

(echo.!num!)>"%cd%\!file!2\!txtname!"
复制代码

pause.>nul
复制代码

rem pause.>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set "a=1397820564"
set "b=117 92--9023465718 ●○○○○○○○○○#a9876543210"
set "b=%b:*●=%"
set /a len=0x%b:~10,1%
echo,!a:~-%len%,1!
pause
复制代码

@echo off&setlocal enabledelayedexpansion
cd /d "C:\文本1"
for %%i in (*.txt) do (
    for /f "tokens=*" %%a in (%%i) do (
      if defined str (
      	set "num=%%~nxa"
      	for %%b in (!len!) do echo,!num:~-%%b,1!
      	set "str="
      ) else (
        set "str=%%~nxa#a9876543210"
        set "str=!str:*●=!"
        set /a len=0x!str:~10,1!
      )  
    )
)>"C:\文件夹1\%%~nxi"
复制代码