Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Entity_txt

'*********************************************************
'* Sub Entity_txt
'*********************************************************
Sub Entity_txt
	Dim objFSO,objTxt,objTxt2,objShell,srtTest,strLine
	Set objShell = WScript.CreateObject("WScript.Shell")
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	Set objTxt = objFSO.OpenTextFile("Entity_Test1.txt", ForReading, true, -2)

	On Error Resume Next
	srtTest = objTxt.ReadLine
	If Err.Number <> 0 Then ' 入力ファイルが空ならEntity_Test1.txtを開いて終了
		objTxt.Close
		objShell.Run "Entity_Test1.txt"
		Set objTxt = Nothing
		Set objFSO = Nothing
		WScript.Quit
	End If
	Err.Clear
	On Error Goto 0

	Set objTxt = objFSO.OpenTextFile("Entity_Test1.txt", ForReading, true, -2)
	Set objTxt2 = objFSO.OpenTextFile("Entity_Test2.txt", ForAppending, true, -2)
	Do Until objTxt.AtEndOfStream  ' 入力ファイルの終端まで繰り返し
		strLine = objTxt.ReadLine  ' 入力ファイルを1行読み込む
		strLine = Replace(strLine, "&", "&#038;")
		strLine = Replace(strLine, """", "&#034;")
		strLine = Replace(strLine, "<", "&#060;")
		strLine = Replace(strLine, ">", "&#062;")
	    objTxt2.WriteLine strLine
	Loop
	objTxt2.WriteBlankLines (1)
	objTxt.Close
	objTxt2.Close
	objShell.Run "Entity_Test2.txt"
	Set objTxt = Nothing
	Set objTxt2 = Nothing
	Set objFSO = Nothing
End Sub