テキストファイルから文字列を読み取り、Windowsバッチファイルで使用して部分文字列を抽出する方法

Question

次のサンプルを含む必要なテキストファイルがあります。1つの定数文字列「D80」の後に別の文字列が続きます。

D80KAAAAAA
D80KBBBBBB
D80KCCCCCC

この出力を取得するには、Windowsバッチスクリプトファイル（PowerShellではない）とFORループを使用して抽出します。

AAAAAA
BBBBBB
CCCCCC

これまでのところ、この点に到達しています。説明のために、部分文字列を抽出するさまざまな試みを示しました。

setlocal EnableDelayedExpansion

for /F "tokens=1 delims="    %%a   in (TPLIST.txt) do (
    echo %%a
    echo %%(a:~4,6)
    set substr1=%%(a:~4,6)%
    set substr2=%(a:~4,6)%
    set substr3=!(a:~4,6)!
    set substr4=%!(a:~4,6)!%
    echo %substr1%
    echo %substr2%
    echo %substr3%
    echo %substr4%
)

ただし、部分文字列の抽出は失敗します。

C:\User>setlocal EnableDelayedExpansion
C:\User>for /F "tokens=1 delims=" %a in (TPLIST.txt) do (
echo %a
 echo %(a:~4,6
)
C:\User>(
echo D80KAAAAAA
 echo %(a:~4,6
)
D80KAAAAAA
%(a:~4,6
C:\User>(
echo D80KBBBBBB
 echo %(a:~4,6
)
D80KBBBBBB
%(a:~4,6
C:\User>(
echo D80KCCCCCC
 echo %(a:~4,6
)
D80KCCCCCC
%(a:~4,6
C:\User>set substr1=%(a:~4,6)
C:\User>set substr2=~4,6)
C:\User>set substr3=!(a:~4,6)!
C:\User>set substr4=~4,6)!
C:\User>echo %(a:~4,6)
%(a:~4,6)
C:\User>echo ~4,6)
~4,6)
C:\User>echo ~4,6)
~4,6)
C:\User>echo ~4,6)
~4,6)

どんな助けでも大歓迎です。

Answer 1

部分文字列を抽出するにはどうすればよいですか？

あなたのスクリプトはひどく壊れているので、私はそれを書き直しました：

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1,2,3" %%a in (test.txt) do (
  set _s1=%%a
  set _s2=%%b
  set _s3=%%c
  echo !_s1:~4!
  echo !_s2:~4!
  echo !_s3:~4!
  )
endlocal

使用例：

F:\test>type test.txt
D80KAAAAAA D80KBBBBBB D80KCCCCCC

F:\test>test
AAAAAA
BBBBBB
CCCCCC
F:\test>

---

参考文献

• WindowsCMDコマンドラインのAZインデックス| SS64.com
• Windows CMDコマンド（分類済み）-Windows CMD-SS64.com
• / fの場合-テキストをループします-WindowsCMD-SS64.com
• 可変部分文字列-WindowsCMD-SS64.com

Answer 2

純粋なバッチファイルでは、次のようなことができます。

@echo off
Set "InputFile=TPLIST.txt"
Set "OutPutFile=%~dp0Out-Extract.txt"

setlocal enabledelayedexpansion
> "%OutPutFile%" (
    @for /f "delims=" %%a in ('Type "%InputFile%"') do (
    set "_MyString=%%a"
    echo !_MyString:~4!
    )
)
endlocal
If Exist "%OutPutFile%" Start "" "%OutPutFile%"

---

Powershellで、別のメンバーがRegExを使用してテストする場合：

cls
$MyString = @' D80KAAAAAA D80KBBBBBB D80KCCCCCC D80KDDDDDD D80KEEEEEE D80KFFFFFF D80KXXXXXX D80KYYYYYY D80KZZZZZZ '@ -split [System.Environment]::NewLine $pattern = '(?![D80K]).+'
$MyString | %{ [regex]::matches($_,$pattern) } | %{ $_.Groups[0].Value }

---

次のようなバッチまたはPowerShellの両方のソリューションの出力として取得されます。

AAAAAA
BBBBBB
CCCCCC
DDDDDD
EEEEEE
FFFFFF
XXXXXX
YYYYYY
ZZZZZZ