Option Explicit
Dim objFSO 'As Object ' FileSystemObject
Dim INFILE1 'As String
Dim iInCnt1
Dim iInCnt2
Dim OUTFILE1 'As String
Dim sStartTime 'As Variant
Dim sEndTime 'As Variant
'***********************************************
'出力()
Set objFSO = CreateObject("Scripting.FileSystemObject")
'比較対象のファイル名を取得
INFILE1 = "aclInlog.txt"
OUTFILE1 = "aclOulog.txt"
wscript.echo now
Call ACLS
wscript.echo now
Set objFSO = Nothing
wscript.Quit
'************************************************
'************************************************
Sub ACLS
Dim iOutCnt1
Dim objOutFile1 'As Object ' TextStream
Dim iPCnt1
Dim objInFile1 'As Object ' TextStream
Dim sINPUTDATA1
Dim sINPUTDATA1NEXT
Dim INPUT1STATUS
Dim sScriptFullName
sScriptFullName = Wscript.ScriptFullName
WScript.Echo sScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 指定ファイルをOPEN(入力モード)
Set objInFile1 = objFSO.OpenTextFile(INFILE1, 1)
iPCnt1 = 0
' 指定ファイルをOPEN(出力モード)
Set objOutFile1 = objFSO.CreateTextFile(OUTFILE1)
iOutCnt1 = 0
sINPUTDATA1 = ""
wscript.echo "+++++++++++++++++"
Dim iPos
iPos = 0
Do
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
WScript.Echo sINPUTDATA1
iPos = InstrRev(sINPUTDATA1,vbcr)
If iPos > 0 then
sINPUTDATA1 = mid(sINPUTDATA1,1,ipos-1)
Do
sINPUTDATA1NEXT = objInFile1.ReadLine
iPos = InstrRev(sINPUTDATA1,":")
If iPos > 0 Then
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
exit Do
Else
sINPUTDATA1 = sINPUTDATA1 & sINPUTDATA1NEXT
End If
Loop
Else
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
End if
If objInFile1.AtEndOfStream Then
Exit Do
End If
'wscript.echo sINPUTDATA1
Loop '入力行を次々続ける
objOutFile1.Close
Set objOutFile1 = Nothing
'指定ファイルをClose(入力モード)
objInFile1.Close
Set objInFile1 = Nothing
End Sub
