Reply to thread

Message

<blockquote data-quote="gonzo90017" data-source="post: 1055436" data-attributes="member: 129471">It's kind of working for me. This is what my batch file looks like:cscript //NoLogo getcat.vbs C:\xml\xmltv.xml C:\xml\xmltvmp.xmlThe problem is that getcat.vbs wont run unless xmltvmp.xml is present before hand.This doesn't happen with the 1st version of the script.Also I tried adding &quot;Kids&quot; and &quot;Children&quot; to the script:[CODE]Const ForReading = 1Const ForWriting = 2Const TristateUseDefault = -2, TristateTrue = 1, TristateFalse = 0' input files from argment, open file for readingstrRdFile = WScript.Arguments.Item(0)strWrFile = WScript.Arguments.Item(1)Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)Set objFile = objFSO.OpenTextFile(strRdFile, ForReading)Set objWrFile = objFSO.OpenTextFile(strWrFile, ForWriting)intCnt = 0strSavedCat = &quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;category&gt;None&lt;/category&gt;&quot;Do Until objFile.AtEndOfStream&nbsp; &nbsp; strLine = objFile.ReadLine'**********************' top half, for lines that are NOT &quot;category&quot;'**********************&nbsp; &nbsp; If InStr(strLine, &quot;&lt;category&quot;) = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; '*** check if there is a saved &quot;category&quot;, do echo to write to file&nbsp; &nbsp; &nbsp; &nbsp; '*** reset state until finding the next &quot;category&quot;&nbsp; &nbsp; &nbsp; &nbsp; If intCnt &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objWrFile.Write strSavedCat &amp; vbCrLf&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; intCnt = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strSavedCat = &quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;category&gt;None&lt;/category&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '*** echo lines from tvguide.xml and write to file&nbsp; &nbsp; &nbsp; &nbsp; objWrFile.Write strLine &amp; vbCrLf&nbsp; &nbsp; Else&nbsp; &nbsp; '**********************&nbsp; &nbsp; ' bottom half, for lines that ARE &quot;category&quot;&nbsp; &nbsp; '**********************&nbsp; &nbsp; &nbsp; &nbsp; intCnt = intCnt + 1&nbsp; &nbsp; &nbsp; &nbsp; '*** save junk category if saved = &quot;None&quot;&nbsp; &nbsp; &nbsp; &nbsp; If InStr(strLine, &quot;Series&quot;) Or InStr(strLine, &quot;General&quot;) Or InStr(strLine, &quot;Other&quot;)Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If InStr(strSavedCat, &quot;None&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strSavedCat = strLine&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; '*** ignore Episodic&nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strLine, &quot;Episodic&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; '*** always save Movie, overwrite Drama, Action, etc&nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strLine, &quot;Movie&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strSavedCat = strLine&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '*** check if saved = &quot;good&quot; catergory, don't overwrite &quot;good&quot;, add more ElseIf to add &quot;good&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If InStr(strSavedCat, &quot;Drama&quot;) Or InStr(strSavedCat, &quot;Action&quot;)Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strSavedCat, &quot;Current&quot;) Or InStr(strSavedCat, &quot;Comedy&quot;)Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strSavedCat, &quot;Movie&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strSavedCat, &quot;Football&quot;) Or InStr(strSavedCat, &quot;Basketball&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strSavedCat, &quot;Soccer&quot;) Or InStr(strSavedCat, &quot;Golf&quot;)Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strSavedCat, &quot;Children&quot;) Or InStr(strSavedCat, &quot;Kids&quot;)Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '*** saved = new categoruy&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strSavedCat = strLine&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; End IfLoopobjFile.CloseobjWrFile.Close[/CODE]So I can keep those categories:[CODE]&lt;programme start=&quot;20140124040000 -0800&quot; stop=&quot;20140124043000 -0800&quot; channel=&quot;I30.2.190198069.microsoft.com&quot;&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;title lang=&quot;en&quot;&gt;Eliot Kid *&lt;/title&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;sub-title lang=&quot;en&quot;&gt;The Bathroom Monster; Igor&lt;/sub-title&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;desc lang=&quot;en&quot;&gt;Eliot thinks an army of monsters is lurking under the city; Eliot's sister has fallen in love with a guitar player.&lt;/desc&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Action/Adventure&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Adventure&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Children&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Comedy&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Family/Children&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;General&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Kids&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Series&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;episode-num system=&quot;ms_progid&quot;&gt;1.293936069&lt;/episode-num&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;episode-num system=&quot;onscreen&quot;&gt;126&lt;/episode-num&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;audio&gt;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;stereo&gt;stereo&lt;/stereo&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;/audio&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;new /&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;rating system=&quot;VCHIP&quot;&gt;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;value&gt;TV-Y7&lt;/value&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;/rating&gt;&nbsp; &nbsp; &lt;/programme&gt;[/CODE]But it's not working:[CODE]&lt;programme start=&quot;20140124040000 -0800&quot; stop=&quot;20140124043000 -0800&quot; channel=&quot;I30.2.190198069.microsoft.com&quot;&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;title lang=&quot;en&quot;&gt;Eliot Kid *&lt;/title&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;sub-title lang=&quot;en&quot;&gt;The Bathroom Monster; Igor&lt;/sub-title&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;desc lang=&quot;en&quot;&gt;Eliot thinks an army of monsters is lurking under the city; Eliot's sister has fallen in love with a guitar player.&lt;/desc&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;category lang=&quot;en&quot;&gt;Action/Adventure&lt;/category&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;episode-num system=&quot;ms_progid&quot;&gt;1.293936069&lt;/episode-num&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;episode-num system=&quot;onscreen&quot;&gt;126&lt;/episode-num&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;audio&gt;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;stereo&gt;stereo&lt;/stereo&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;/audio&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;new /&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;rating system=&quot;VCHIP&quot;&gt;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &lt;value&gt;TV-Y7&lt;/value&gt;&nbsp; &nbsp; &nbsp; &nbsp; &lt;/rating&gt;&nbsp; &nbsp; &lt;/programme&gt;[/CODE][DOUBLEPOST=1389664116][/DOUBLEPOST]EDIT I guess I added &quot;Kids&quot; to the wrong section. After adding it to:[CODE]&nbsp; &nbsp; &nbsp; &nbsp; '*** always save Movie, overwrite Drama, Action, etc&nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strLine, &quot;Movie&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; ElseIf InStr(strLine, &quot;Kids&quot;) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strSavedCat = strLine&nbsp; &nbsp; &nbsp; &nbsp; Else[/CODE]It's no longer stripping it from the xml file.</blockquote>

[QUOTE="gonzo90017, post: 1055436, member: 129471"] It's kind of working for me. This is what my batch file looks like: [B]cscript //NoLogo getcat.vbs C:\xml\xmltv.xml C:\xml\xmltvmp.xml[/B] The problem is that getcat.vbs wont run unless [B]xmltvmp.xml[/B] is present before hand. This doesn't happen with the 1st version of the script. Also I tried adding "Kids" and "Children" to the script: [CODE]Const ForReading = 1 Const ForWriting = 2 Const TristateUseDefault = -2, TristateTrue = 1, TristateFalse = 0 ' input files from argment, open file for reading strRdFile = WScript.Arguments.Item(0) strWrFile = WScript.Arguments.Item(1) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strRdFile, ForReading) Set objWrFile = objFSO.OpenTextFile(strWrFile, ForWriting) intCnt = 0 strSavedCat = " <category>None</category>" Do Until objFile.AtEndOfStream strLine = objFile.ReadLine '********************** ' top half, for lines that are NOT "category" '********************** If InStr(strLine, "<category") = 0 Then '*** check if there is a saved "category", do echo to write to file '*** reset state until finding the next "category" If intCnt > 0 Then objWrFile.Write strSavedCat & vbCrLf intCnt = 0 strSavedCat = " <category>None</category>" End If '*** echo lines from tvguide.xml and write to file objWrFile.Write strLine & vbCrLf Else '********************** ' bottom half, for lines that ARE "category" '********************** intCnt = intCnt + 1 '*** save junk category if saved = "None" If InStr(strLine, "Series") Or InStr(strLine, "General") Or InStr(strLine, "Other")Then If InStr(strSavedCat, "None") Then strSavedCat = strLine End If '*** ignore Episodic ElseIf InStr(strLine, "Episodic") Then '*** always save Movie, overwrite Drama, Action, etc ElseIf InStr(strLine, "Movie") Then strSavedCat = strLine Else '*** check if saved = "good" catergory, don't overwrite "good", add more ElseIf to add "good" If InStr(strSavedCat, "Drama") Or InStr(strSavedCat, "Action")Then ElseIf InStr(strSavedCat, "Current") Or InStr(strSavedCat, "Comedy")Then ElseIf InStr(strSavedCat, "Movie") Then ElseIf InStr(strSavedCat, "Football") Or InStr(strSavedCat, "Basketball") Then ElseIf InStr(strSavedCat, "Soccer") Or InStr(strSavedCat, "Golf")Then ElseIf InStr(strSavedCat, "Children") Or InStr(strSavedCat, "Kids")Then Else '*** saved = new categoruy strSavedCat = strLine End If End If End If Loop objFile.Close objWrFile.Close[/CODE] So I can keep those categories: [CODE]<programme start="20140124040000 -0800" stop="20140124043000 -0800" channel="I30.2.190198069.microsoft.com"> <title lang="en">Eliot Kid *</title> <sub-title lang="en">The Bathroom Monster; Igor</sub-title> <desc lang="en">Eliot thinks an army of monsters is lurking under the city; Eliot's sister has fallen in love with a guitar player.</desc> <category lang="en">Action/Adventure</category> <category lang="en">Adventure</category> <category lang="en">Children</category> <category lang="en">Comedy</category> <category lang="en">Family/Children</category> <category lang="en">General</category> <category lang="en">Kids</category> <category lang="en">Series</category> <episode-num system="ms_progid">1.293936069</episode-num> <episode-num system="onscreen">126</episode-num> <audio> <stereo>stereo</stereo> </audio> <new /> <rating system="VCHIP"> <value>TV-Y7</value> </rating> </programme>[/CODE] But it's not working: [CODE]<programme start="20140124040000 -0800" stop="20140124043000 -0800" channel="I30.2.190198069.microsoft.com"> <title lang="en">Eliot Kid *</title> <sub-title lang="en">The Bathroom Monster; Igor</sub-title> <desc lang="en">Eliot thinks an army of monsters is lurking under the city; Eliot's sister has fallen in love with a guitar player.</desc> <category lang="en">Action/Adventure</category> <episode-num system="ms_progid">1.293936069</episode-num> <episode-num system="onscreen">126</episode-num> <audio> <stereo>stereo</stereo> </audio> <new /> <rating system="VCHIP"> <value>TV-Y7</value> </rating> </programme>[/CODE][DOUBLEPOST=1389664116][/DOUBLEPOST]EDIT I guess I added "Kids" to the wrong section. After adding it to: [CODE] '*** always save Movie, overwrite Drama, Action, etc ElseIf InStr(strLine, "Movie") Then ElseIf InStr(strLine, "Kids") Then strSavedCat = strLine Else[/CODE] It's no longer stripping it from the xml file. [/QUOTE]

Verification