[文本处理] [已解决]批处理如何截取字段？

oqis

a.txt

arv19750914003P22946
arv1980060400P2394672
arv1999092300223P22946997
.
.
.
复制代码

有十几行，我想截取前面一段输出成这样：

arv19750914003P22
arv1980060400P23
arv1999092300223P22
.
.
复制代码

哪位出出手~~~

DAIC

@echo off
setlocal enabledelayedexpansion
(for /f "tokens=1-2 delims=P" %%i in (1.txt) do (
    set suffix=%%j
    echo %%iP!suffix:~0,2!
))>2.txt
复制代码

pcl_test

回复 1# oqis

是截取从第一个字符到p后面两个的字符吗？

愤怒的CMD

gawk -FP "gsub(substr($2,3),\"\")"

pcl_test

回复 1# oqis

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('type "a.txt"') do (
call :loop %%a
)
pause
:loop
set str=%1
for /l %%i in (0,1,100) do (
if "!str:~%%i,1!"=="P" set "n=%%i"
)
set /a n+=3
echo !str:~0,%n%!
goto :eof
复制代码

oqis

回复 2# DAIC
很满意 多谢~~

oqis

回复 5# pcl_test
行 谢谢了

c755731262

@echo off&color f0&setlocal enabledelayedexpansion
(for /f "delims=" %%h in (a.txt) do (
set str=%%h
for /l %%i in (0,1,100) do (
if "!str:~%%i,1!" == "P" (
set /a n=%%i+3
call echo %%str:~0,!n!%%
)
)
)
)>test.txt
pause
复制代码

回复 8# c755731262
刚才发错了，很抱歉