GEN

'GEN_CTL.vbs

MYSKEL = "D:\admtools\test\GEN_CTL.BAT"

INFILE = "GEN_CTL.INI"
OUTFILE = "GEN_CTL.txt"

'Option Explicit
On Error Resume Next
Dim objFSO ' FileSystemObject
Dim objFile ' ファイル読み込み用
Dim objFile2 ' ファイル書き込み用

Dim INFILE_Batch_Name ' バッチ名（フォルダ名）
Dim Batch_File_Name ' バッチファイル名
Dim iNo

dim YYYYMMDD
dim Time_edit
dim HHMMSS


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If Err.Number = 0 Then
Set objFile = objFSO.OpenTextFile(INFILE)
If Err.Number = 0 Then

Set objFSO2 = WScript.CreateObject("Scripting.FileSystemObject")

OUTFILE = OUTFILE & SYORI_JIKAN()

msgbox OUTFILE

Set objFile2 = objFSO2.OpenTextFile(OUTFILE, 2, True)


HaedoutOut(objFile2)

iNo=1
Do While objFile.AtEndOfStream <> True

INFILE_Batch_Name= objFile.ReadLine
Batch_File_Name = INFILE_Batch_Name & ".bat"

objFile2.WriteLine("REM *--------------------------------------------*")

objFile2.WriteLine("call " & Batch_File_Name)

objFile2.WriteLine(SYORI_JIKAN)

objFile2.WriteLine("if not " & "%ERRORLEVEL%" & " == 0 GOTO ERR" & iNo)

objFile2.WriteLine(" echo " & """ END """)
objFile2.WriteLine(SYORI_JIKAN)
objFile2.WriteLine(" GOTO OK" & iNo)

objFile2.WriteLine(":ERR" & iNo)
objFile2.WriteLine(" echo " & """ ABEND """ & " %ERRORLEVEL% ")
objFile2.WriteLine(SYORI_JIKAN)

objFile2.WriteLine(":OK" & iNo)

iNo = iNo + 1
Loop

TrailoutOut(objFile2)

objFile.Close
objFile2.Close
Else
WScript.Echo " FILE OPEN ERROR: " & INFILE & Err.Description
End If
Else
WScript.Echo "ERROR: " & Err.Description
End If

Set objFile = Nothing
Set objFile2 = Nothing
Set objFSO = Nothing
Set objFSO2 = Nothin


'*************************************************************
'* Current time
'*************************************************************

Function SYORI_JIKAN()

dim YYYYMMDD
dim Time_edit
dim HHMMSS


YYYYMMDD="%date:~0,4%%date:~5,2%%date:~8,2%"

echo YYYYMMDD
Time_edit="%time: =0%"
HHMMSS="%Time_edit:~0,2%%Time_edit:~3,2%%Time_edit:~6,2%"

Msgbox YYYYMMDD & HHMMSS

SYORI_JIKAN = now
SYORI_JIKAN = "XRETURN"

End Function




'*************************************************************
'* Generate Batch Head Statement
'*************************************************************

Sub HaedoutOut(objFile2)

objFile2.WriteLine("REM **********************************************")
objFile2.WriteLine("REM ** HEADER RECORD *****************************")
objFile2.WriteLine("REM **********************************************")

dim YYYYMMDD
dim Time_edit
dim HHMMSS

objFile2.WriteLine(":開始")
objFile2.WriteLine("@echo off")

objFile2.WriteLine("COPY_TOPIC=移行")
objFile2.WriteLine("COPY_NAME=####")
objFile2.WriteLine("COPY_LOG_DIR=d:\admtools\log")

YYYYMMDD="%date:~0,4%%date:~5,2%%date:~8,2%"
Time_edit="%time: =0%"
HHMMSS="%Time_edit:~0,2%%Time_edit:~3,2%%Time_edit:~6,2%"

objFile2.WriteLine(YYYYMMDD)
objFile2.WriteLine(Time_edit)
objFile2.WriteLine(HHMMSS)

End Sub


'*************************************************************
'* Generate Batch Trail Statement
'*************************************************************

Sub TrailoutOut(objFile2)

objFile2.WriteLine("REM **********************************************")
objFile2.WriteLine("REM ** TRAILER RECORD ****************************")
objFile2.WriteLine("REM **********************************************")

End Sub



@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

GEN_CTL.INI


GEN1
GEN2