rem ====================================
rem 
rem   MakeStakePAY.bat
rem 
rem   CopyRight Miyama. 2024 March
rem 
rem   KazutomiMiyamaSub@gmail.com
rem   kazutomi.html.xdomain.jp
rem 
rem ====================================

rem --sub process files to Active-------
copy *.$$$ *.bat

rem --change to UTF-8 mode to avoid Chr Err---
chcp 65001

setlocal EnableDelayedExpansion

del *.tmp

set workdir=.\tmpWorking_daily_folder

rem ext is Extention
set exttype=pay

md %workdir%
cd %workdir%
rem ^on under data dir

rem --deleate just before data in working Directry---
del *.%exttype%
rem -------------------------------------------------

xcopy /s /e /d c:\daily_folder\%1*.%exttype% .\*.*

dir /b *.%exttype% > ..\List.tmp
rem go to upper dir (work dir)
cd .. 
sort List.tmp > SortEdList.tmp

echo --made by MakeStakePAY.bat--->Stake.tmp

rem --for command skips vacant lines.---
for /f "delims=" %%a in (SortEdList.tmp) do (
    cmd/c MakeDaySTRfromFileName.bat %%a
    cmd/c LineContentsCHK.bat %workdir%\%%a
    echo ,>>Stake.tmp
)
copy Stake.tmp OutPut.csv

rem --change back to ANSI,Shift-JIS---
chcp 932
del *.tmp

rem --Sub Process files to sleep---
del MakeDaySTRfromFileName.bat

del LineContentsCHK.bat
del CHKsub.bat

rem ====================================
rem   MakeDaySTRfromFileName.bat
rem ====================================
rem chcp 65001
rem set FileName=%1
rem set DaySTR=%FileName:~0,4%/%FileName:~4,2%/%FileName:~6,2%
rem echo %DaySTR%>>Stake.tmp

rem ====================================
rem   LineContentsCHK.bat
rem ====================================
rem chcp 65001
rem setlocal EnableDelayedExpansion
rem set %%f=
rem for /f "tokens=1,2 delims=," %%e in (%1) do (
rem     rem "echo str >" 's result is "str "
rem     rem redirection and pype meta-chr to 2byte chr on Jpn
rem     set ee=%%e
rem     set ee=!ee:^>=＞!
rem     set ee=!ee:^<=＜!
rem     set ee=!ee:^|=｜!
rem     echo !ee!,%%f> LineSTR.tmp
rem     cmd/c CHKsub.bat !ee! %%f
rem )

rem ====================================
rem   CHKsub.bat
rem ====================================
rem chcp 65001
rem find "/" LineSTR.tmp
rem set FixError=%errorlevel%
rem set TuneSTR=%1,%2
rem set TuneSTR=%TuneSTR:/=,%
rem if %FixError% equ 0 (echo ,%TuneSTR%>>Stake.tmp)
rem if %FixError% neq 0 (echo ,,%TuneSTR%>>Stake.tmp)

rem ====================================
rem   Logic END
rem ====================================