Option Explicit
' sets UTC timezone in xml oztivo data file
' and adds channel ids from the chanid.xml file
' I hope it works!
Const ForReading = 1
Const ForWriting = 2
Dim objFSO
Dim objFile
Dim strFile
Dim strOutput
Dim strText
Dim strChanText
Dim strNewText
Dim strOldStartText
Dim strNewStartText
Dim strOldStopText
Dim strNewStopText
Dim strChanID
Dim strOldChanText
Dim strNewChanText
strFile = ScriptPath & "\xmlguide.pl"
strChanID = ScriptPath & "\chanid.xml"
Function ReadFiles()
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strChanID, ForReading)
strChanText = objFile.ReadAll
objFile.Close
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForReading)
strText = objFile.ReadAll
objFile.Close
If Err = 0 Then
ReadFiles = True
End If
End Function
Function ParseText()
On Error Goto 0
On Error Resume Next
strOldChanText = "xmlguide.pl" & chr(34) & ">"
strNewChanText = "xmlguide.pl" & chr(34) & ">" & vbCrLf & vbCrLf & strChanText & vbCrLf
strNewText = Replace(strText, strOldChanText, strNewChanText)
strOldStartText = chr(34) & " stop"
strNewStartText = " +0000" & chr(34) & " stop"
strNewText = Replace(strNewText, strOldStartText, strNewStartText)
strOldStopText = chr(34) & " channel"
strNewStopText = " +0000" & chr(34) & " channel"
strNewText = Replace(strNewText, strOldStopText, strNewStopText)
If Err = 0 Then
ParseText = True
End If
End Function
Function WriteFile()
On Error Goto 0
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForWriting)
objFile.WriteLine strNewText
objFile.Close
If Err = 0 Then
WriteFile = True
End If
End Function
Function ScriptPath()
ScriptPath = CreateObject("Scripting.FileSystemObject")._
GetParentFolderName(Wscript.ScriptFullName)
End Function
Sub ParseFile()
If ReadFiles = True Then
If ParseText = True Then
If WriteFile = True Then
MsgBox "File Updated Successfully"
Else
MsgBox "Write File Error!" & vbCrLf & Err.Description
End If
Else
MsgBox "Parse Text Error!" & vbCrLf & Err.Description
End If
Else
MsgBox "Read File Error!" & vbCrLf & Err.Description
End If
End Sub
Call ParseFile