開始行から終了行の文字列を抜き出す

Option Explicit



Dim FS



Dim ScriptMainPath

Dim Logfile1, Logfile2



Dim objFSO

Dim WriteFile, ReadFile

Dim strTxtBuffer

Dim WriteFlg

Dim vbInfomation

Const ForReading = 1

Const ForWriting = 2





Dim objWShell

Dim vbMaximizedFoucus



Dim WSHShell

Dim file

Dim msg



Dim objFileSys

Dim strDeletePath



ScriptMainPath = "C:\temp\"

Logfile1 = "C:\temp\hoge.txt '1~jまでの

Logfile2 = ScriptMainPath & "test\123" '1~10までの数字を抜き出す

Logfile3 = ScriptMainPath & "test\abc" 'a~jまでの数字を抜き出す



Set FS = CreateObject("Scripting.FileSystemObject")



On Error Resume Next



	FS.CreateFolder(C:\temp\test)



	FS.CreateTextFile(Logfile2 & 1 & ".txt") '1~5の抜き出し

	FS.CreateTextFile(Logfile2 & 2 & ".txt") '6~10の抜き出し

	FS.CreateTextFile(Logfile3 & 1 & ".txt") 'a~eの抜き出し

	FS.CreateTextFile(Logfile3 & 2 & ".txt") 'f~jの抜き出し





Set objFSO = CreateObject("Scripting.FileSystemObject") 



if objFSO.FileExists(Logfile1) then

    Set objFile = objFSO.GetFile(Logfile1)

    if objFile.Size = 0 then

      MsgBox "空ファイルです" & vbCrLf & "処理の確認を行って下さい"

    else

     Set ReadFile = objFSO.OpenTextFile(Logfile1, ForReading)

     Set WriteFile = objFSO.OpenTextFile(Logfile2 & 1 & ".log", ForWriting, True)

    end if

end if



Set objFSO = nothing



WriteFlg = False



Do While Not ReadFile.AtEndOfStream

  strTxtBuffer = ReadFile.ReadLine



  if 0 < InStr(strTxtBuffer, "1") Then

    WriteFlg = True

  end if



  if WriteFlg = True then

    Call WriteFile.WriteLine(strTxtBuffer)

  end if



  if 0 < InStr(strTxtBuffer, "5") Then

    Exit Do

  end if



Loop



ReadFile.Close

WriteFile.Close



Set ReadFile = Nothing

Set WriteFile = Nothing



Const vbMaximizedFocus = 3



set objWShell = CreateObject("WScript.Shell")

objWShell.Run Logfile2 & 1 & ".txt", vbMaximizedFocus, True



Set objWShell = Nothing





Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set ReadFile = objFSO.OpenTextFile(Logfile1, ForReading)

Set WriteFile = objFSO.OpenTextFile(Logfile2 & 2 & ".log", ForWriting, True)

Set objFSO = nothing



WriteFlg = False



Do While Not ReadFile.AtEndOfStream

  strTxtBuffer = ReadFile.ReadLine



  if 0 < InStr(strTxtBuffer, "6") Then

    WriteFlg = True

  end if



  if WriteFlg = True then

    Call WriteFile.WriteLine(strTxtBuffer)

  end if



  if 0 < InStr(strTxtBuffer, "10") Then

    Exit Do

  end if



Loop



ReadFile.Close

WriteFile.Close



Set ReadFile = Nothing

Set WriteFile = Nothing



Const vbMaximizedFocus = 3



set objWShell = CreateObject("WScript.Shell")

objWShell.Run Logfile2 & 2 & ".txt", vbMaximizedFocus, True



Set objWShell = Nothing



Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set ReadFile = objFSO.OpenTextFile(Logfile1, ForReading)

Set WriteFile = objFSO.OpenTextFile(Logfile2 & 3 & ".log", ForWriting, True)

Set objFSO = nothing



WriteFlg = False



Do While Not ReadFile.AtEndOfStream

  strTxtBuffer = ReadFile.ReadLine



  if 0 < InStr(strTxtBuffer, "a") Then

    WriteFlg = True

  end if



  if WriteFlg = True then

    Call WriteFile.WriteLine(strTxtBuffer)

  end if



  if 0 < InStr(strTxtBuffer, "e") Then

    Exit Do

  end if



Loop



ReadFile.Close

WriteFile.Close



Set ReadFile = Nothing

Set WriteFile = Nothing



Const vbMaximizedFocus = 3



set objWShell = CreateObject("WScript.Shell")

objWShell.Run Logfile3 & 1 & ".txt", vbMaximizedFocus, True



Set objWShell = Nothing





Set objFSO = CreateObject("Scripting.FileSystemObject") 

Set ReadFile = objFSO.OpenTextFile(Logfile1, ForReading)

Set WriteFile = objFSO.OpenTextFile(Logfile2 & 3 & ".log", ForWriting, True)

Set objFSO = nothing



WriteFlg = False



Do While Not ReadFile.AtEndOfStream

  strTxtBuffer = ReadFile.ReadLine



  if 0 < InStr(strTxtBuffer, "f") Then

    WriteFlg = True

  end if



  if WriteFlg = True then

    Call WriteFile.WriteLine(strTxtBuffer)

  end if



  if 0 < InStr(strTxtBuffer, "j") Then

    Exit Do

  end if



Loop



ReadFile.Close

WriteFile.Close



Set ReadFile = Nothing

Set WriteFile = Nothing



Const vbMaximizedFocus = 3



set objWShell = CreateObject("WScript.Shell")

objWShell.Run Logfile3 & 2 & ".txt", vbMaximizedFocus, True



Set objWShell = Nothing



MsgBox "処理が完了しました。" & vbCrLf & "Enterキーを押して下さい。", vbInfomation, "抜き出し作業"





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

Set WSHShell = WScript.CreateObject("WScript.Shell")



file = Fs.BuildPath(WSHShell.SpecialFolders("test"),"C:\temp\test\*.txt") 



msg = MsgBox ("ファイルを全て消します。よろしいですか?")

If msg = vbNo Then Wscript.Quit

	  Fs.DeleteFile file





Set objFileSys = CreateObject("Scripting.FileSystemObject")



strDeletePath = "C:\temp\test"



msg = MsgBox ("フォルダを削除します。よろしいですか?")

If msg = vbNo Then Wscript.Quit



objFileSys.DeleteFolder strDeletePath

	

set objFileSys = Nothing

    If MsgBox("1 + 1 は 2 ですか?", vbYesNo Or vbQuestion, "やらないか?") = vbYes Then
        Call MsgBox("そうですね")
    Else
        Call MsgBox("違いますね")
    End If