TestMetaDataAAA.koumokuLLL_291.md

出力ファイル1

• ファイル名：TestMetaDataAAA.koumokuLLL_295.md
• 置換対象文字列①：テスト項目_291 ⇒ テスト項目_295
• 置換対象文字列②：TestvalueAA__c ⇒ TestvalueMM__c

出力ファイル2

• ファイル名：TestMetaDataAAA.koumokuLLL_296.md
• 置換対象文字列①：テスト項目_291 ⇒ テスト項目_296
• 置換対象文字列②：TestvalueAA__c ⇒ TestvalueOO__c

出力ファイル2

• ファイル名：TestMetaDataAAA.koumokuLLL_297.md
• 置換対象文字列①：テスト項目_291 ⇒ テスト項目_297
• 置換対象文字列②：TestvalueAA__c ⇒ TestvaluePP__c

出力ファイル1

• TestMetaDataAAA.koumokuLLL_295.md

出力ファイル2

• TestMetaDataAAA.koumokuLLL_296.md

出力ファイル3

• TestMetaDataAAA.koumokuLLL_297.md

ファイル名：makefile.bat

chcp 65001

rem @echo off
set BEFORE_STRING=_291
set BEFORE_STRING2=TestvalueAA__c
set INPUT_FILE=TestMetaDataAAA.koumokuLLL_291.md
set OUTPUT_FILE=TestMetaDataAAA.koumokuLLL
set name_295=TestvalueMM__c
set name_296=TestvalueOO__c
set name_297=TestvaluePP__c
set LF=^

setlocal enabledelayedexpansion

rem ファイル数だけ繰り返して文字列を置換
set i=295
:FOREACH_MD
set it=!name_%i%!
if defined it (

  for /f "delims=" %%a in (%INPUT_FILE%) do (
    set line=%%a
    set line=!line:%BEFORE_STRING%=_%i%!
    set line=!line:%BEFORE_STRING2%=%it%!
    echo !line!>>.\tmp\%OUTPUT_FILE%_%i%.md
  )
  set /a i+=1
  goto :FOREACH_MD
)
else (
  goto :COM_MD2
)

:COM_MD2
rem ファイル数だけ繰り返して改行コードをLFに置換
set i=295
:FOREACH_MD2
if exist .\tmp\%OUTPUT_FILE%_%i%.md (
  for /f "delims=" %%1 in ('find /n /v "" .\tmp\%OUTPUT_FILE%_%i%.md') do (
    set LINE=%%1
    setlocal enabledelayedexpansion
    <NUL set LINE=!LINE:*]=!!LF!
    echo !LINE! >> .\tmp2\%OUTPUT_FILE%_%i%.md
    endlocal
  )
  set /a i+=1
  goto :FOREACH_MD2
)
else (
  goto :COM_MD3
)

rem ファイル数だけ繰り返して空行と不要な行を除外
:COM_MD3
set i=295
:FOREACH_MD3
set OUTPUT_FILE=TestMetaDataAAA.koumokuLLL_%i%.md
if exist .\tmp2\%OUTPUT_FILE% (
  findstr /v /r /c:"^\ *$" .\tmp2\%OUTPUT_FILE% | findstr /v /r /c:"----------"  > .\output\%OUTPUT_FILE%
  set /a i+=1
  goto :FOREACH_MD3
)
endlocal

ファイル名：makeMeta.ps1

$BEFORE_STRING="_291"
$BEFORE_STRING2="TestvalueAA__c"
$INPUT_FILE="TestMetaDataAAA.koumokuLLL_291.md"
$OUTPUT_FILE="TestMetaDataAAA.koumokuLLL"
$map = @{
295 = "TestvalueMM__c";
296 = "TestvalueOO__c";
297 = "TestvaluePP__c";
}

# ファイル数だけ繰り返しforeach ($Ke
y in $map.Keys) {
  $afterTxt = "_"+$Key
  $name = $map[$Key]
  ((Get-Content -Path $INPUT_FILE -Encoding UTF8) -join "`n") + "`n"  `
     | % { $_ -replace $BEFORE_STRING, $afterTxt } `
     | % { $_ -replace $BEFORE_STRING2, $name } `     | % {
[Text.Encoding]::UTF8.GetBytes($_) } `
     | Set-Content -Path .\output\TestMetaDataAAA.koumokuLLL_$Key.md -Encoding Byte
}

ファイル名：cscriptTest.vbs

Option Explicit

Dim objStream
Dim tmpStream
Dim strScriptPath
Dim strOpenFile
Dim strWriteFile
Dim objWriteStream
Dim strText
Dim strText1
Dim strText2
Dim adTypeBinary : adTypeBinary = 1
Dim adTypeText : adTypeText = 2
Dim intTxt(2) '置換対象の文字列
intTxt(0) = "TestvalueMM__c"
intTxt(1) = "TestvalueOO__c"
intTxt(2) = "TestvaluePP__c"
Dim intNum : intNum = 295

'--------------------------------------
' 実行パスを取得
'--------------------------------------
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

'--------------------------------------
' ファイル数だけ繰り返し
'--------------------------------------
Do While intNum < 298
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "UTF-8"
objStream.Open
Set tmpStream = CreateObject("ADODB.Stream")
tmpStream.Type = adTypeText
tmpStream.Charset = "UTF-8"
tmpStream.Open

'--------------------------------------
' strWriteFileは書き込むファイル
'--------------------------------------
strWriteFile = "TestMetaDataAAA.koumokuLLL_" & Cstr(intNum) & ".md"

'--------------------------------------
' strOpenFileは読込むファイル
'--------------------------------------
strOpenFile = "TestMetaDataAAA.koumokuLLL_291.md"
objStream.LoadFromFile strScriptPath & strOpenFile

'--------------------------------------
' 読み込み処理
'--------------------------------------
Do Until objStream.EOS = True

'--------------------------------------
' ファイルを1行ずつ読込み置換
'--------------------------------------
strText = objStream.ReadText(-1)
strText1 = Replace(strText,"_291","_" & intNum)
strText2 = Replace(strText1,"TestvalueAA__c", intTxt(intNum-295))

'--------------------------------------
' tmpStreamは一時書き込みファイル
'--------------------------------------
tmpStream.WriteText strText2, 0
intNum = intNum + 1
Loop

'--------------------------------------
' BOMなしでstrWriteFileに書き込む
'--------------------------------------
tmpStream.Position = 0
tmpStream.Type = adTypeBinary
tmpStream.Position = 3
Dim bin : bin = tmpStream.Read()
tmpStream.Close

Dim outStream : Set outStream = CreateObject("ADODB.Stream")
outStream.Type = adTypeBinary
outStream.Open()
outStream.Write(bin)
outStream.SaveToFile strScriptPath & "output\" & strWriteFile, 2
outStream.Close()

Loop

Set objStream = NothingSet o
utStream = Nothing
Set tmpStream = Nothing