Reply to thread

Message

<blockquote data-quote="cartman" data-source="post: 76323" data-attributes="member: 19059">OK, I've learned a little now about making a vbs script and this seems to work for me.&nbsp; I've checked out plenty of other scripts so there's nothing totally new about what I've done here.&nbsp; I guess I'm just after a little feedback from people who know more about this stuff.All I've done is created this code as a .vbs text file and I can run it on the downloaded <a href="http://minnie.tuhs.org/tivo-bin/xmlguide.pl" target="_blank">http://minnie.tuhs.org/tivo-bin/xmlguide.pl</a> file where I've already downloaded it.&nbsp; I'm trying to work out how to download it all in one go but that may take me some more time.&nbsp; You'll also need a file called chanid.xml that has the entries of each channel your file grabs just like DogBoy1169 has mentioned.&nbsp; If you want an example of that I can post the one I am using for foxtel.[CODE]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 = 1Const ForWriting = 2Dim objFSODim objFileDim strFileDim strOutputDim strTextDim strChanTextDim strNewTextDim strOldStartTextDim strNewStartTextDim strOldStopTextDim strNewStopTextDim strChanIDDim strOldChanTextDim strNewChanTextstrFile = ScriptPath &amp; &quot;\xmlguide.pl&quot;strChanID = ScriptPath &amp; &quot;\chanid.xml&quot;Function ReadFiles()&nbsp; &nbsp; On Error Resume Next&nbsp; &nbsp; Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)&nbsp; &nbsp; Set objFile = objFSO.OpenTextFile(strChanID, ForReading)&nbsp; &nbsp; strChanText = objFile.ReadAll&nbsp; &nbsp; objFile.Close&nbsp; &nbsp; Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)&nbsp; &nbsp; Set objFile = objFSO.OpenTextFile(strFile, ForReading)&nbsp; &nbsp; strText = objFile.ReadAll&nbsp; &nbsp; objFile.Close&nbsp; &nbsp; If Err = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; ReadFiles = True&nbsp; &nbsp; End IfEnd Function Function ParseText()&nbsp; &nbsp; On Error Goto 0&nbsp; &nbsp; On Error Resume Next&nbsp; &nbsp; strOldChanText = &quot;xmlguide.pl&quot; &amp; chr(34) &amp; &quot;&gt;&quot;&nbsp; &nbsp; strNewChanText =&nbsp; &quot;xmlguide.pl&quot; &amp; chr(34) &amp; &quot;&gt;&quot; &amp; vbCrLf &amp; vbCrLf &amp; strChanText &amp; vbCrLf&nbsp; &nbsp; strNewText = Replace(strText, strOldChanText, strNewChanText)&nbsp; &nbsp; &nbsp; &nbsp; strOldStartText = chr(34) &amp; &quot; stop&quot;&nbsp; &nbsp; strNewStartText =&nbsp; &quot; +0000&quot; &amp; chr(34) &amp; &quot; stop&quot;&nbsp; &nbsp; strNewText = Replace(strNewText, strOldStartText, strNewStartText)&nbsp; &nbsp; strOldStopText = chr(34) &amp; &quot; channel&quot;&nbsp; &nbsp; strNewStopText =&nbsp; &quot; +0000&quot; &amp; chr(34) &amp; &quot; channel&quot;&nbsp; &nbsp; strNewText = Replace(strNewText, strOldStopText, strNewStopText)&nbsp; &nbsp; If Err = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; ParseText = True&nbsp; &nbsp; End IfEnd Function Function WriteFile()&nbsp; &nbsp; On Error Goto 0&nbsp; &nbsp; On Error Resume Next&nbsp; &nbsp; Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)&nbsp; &nbsp; Set objFile = objFSO.OpenTextFile(strFile, ForWriting)&nbsp; &nbsp; objFile.WriteLine strNewText&nbsp; &nbsp; objFile.Close&nbsp; &nbsp; If Err = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; WriteFile = True&nbsp; &nbsp; End IfEnd FunctionFunction ScriptPath()&nbsp; ScriptPath = CreateObject(&quot;Scripting.FileSystemObject&quot;)._&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; GetParentFolderName(Wscript.ScriptFullName)End FunctionSub ParseFile()&nbsp; &nbsp; If ReadFiles = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ParseText = True Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If WriteFile = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; MsgBox &quot;File Updated Successfully&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;Write File Error!&quot; &amp; vbCrLf &amp; Err.Description&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;Parse Text Error!&quot; &amp; vbCrLf &amp; Err.Description&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;Read File Error!&quot; &amp; vbCrLf &amp; Err.Description&nbsp; &nbsp; End IfEnd SubCall ParseFile[/CODE]</blockquote>

[QUOTE="cartman, post: 76323, member: 19059"] OK, I've learned a little now about making a vbs script and this seems to work for me. I've checked out plenty of other scripts so there's nothing totally new about what I've done here. I guess I'm just after a little feedback from people who know more about this stuff. All I've done is created this code as a .vbs text file and I can run it on the downloaded [URL="http://minnie.tuhs.org/tivo-bin/xmlguide.pl"]http://minnie.tuhs.org/tivo-bin/xmlguide.pl[/URL] file where I've already downloaded it. I'm trying to work out how to download it all in one go but that may take me some more time. You'll also need a file called chanid.xml that has the entries of each channel your file grabs just like DogBoy1169 has mentioned. If you want an example of that I can post the one I am using for foxtel. [CODE] 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 [/CODE] [/QUOTE]

Verification