Reply to thread

Message

<blockquote data-quote="lar282" data-source="post: 7860" data-attributes="member: 10326">script to convertHiJust made a script to convert a dvdprofiler xml file to the format that this plugin wants.input: c:\Collection.XmlOutput: C:\Program Files\InterVocative Software\DVD Profiler\IMAGES\new.htmsave to a convert.vbs and run ittextOn Error Resume Next&nbsp; &nbsp; Msgbox &quot;Put your Collection.Xml in c:\&quot;&nbsp; &nbsp; Dim objTXTwrite, objTXTread, strLine, strHeader&nbsp; &nbsp; Set objFILE = CreateObject(&quot;Scripting.Filesystemobject&quot;)&nbsp; &nbsp; Set objHOST = CreateObject(&quot;WScript.Shell&quot;)&nbsp; &nbsp; SET objTXTwrite = objFILE.OpenTextFile(&quot;C:\Program Files\InterVocative Software\DVD Profiler\IMAGES\new.htm&quot;,2,1)&nbsp; &nbsp; SET objTXTread = objFILE.OpenTextFile(&quot;C:\Collection.xml&quot;,1,1)&nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;CATALOG&gt;&quot;&nbsp; &nbsp; strLine = objTXTread.Readline&nbsp; &nbsp; Do While strLine &lt;&gt; &quot;&lt;/Collection&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; If InStr(1,strLine,&quot;&gt;&quot;) = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;no good&quot;&nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strHeader = Trim(Left(strLine,InStr(1,strLine,&quot;&gt;&quot;)))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'MsgBox strHeader&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case strHeader&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;DVD&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;MOVIE&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;/DVD&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;/MOVIE&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;CollectionNumber&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;SLOT&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/CollectionNumber&gt;&quot;)-Len(&quot;&lt;/CollectionNumber&gt;&quot;)-2) &amp; &quot;&lt;/SLOT&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;Title&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;OTITLE&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/Title&gt;&quot;)-Len(&quot;&lt;/Title&gt;&quot;)-2) &amp; &quot;&lt;/OTITLE&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;Genres&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strLine = objTXTread.Readline&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strHeader = Trim(Left(strLine,InStr(1,strLine,&quot;&gt;&quot;)))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;GENRE&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/Genre&gt;&quot;)-Len(&quot;&lt;/Genre&gt;&quot;)-4) &amp; &quot;&lt;/GENRE&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;ProductionYear&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;YEAR&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/ProductionYear&gt;&quot;)-Len(&quot;&lt;/ProductionYear&gt;&quot;)-2) &amp; &quot;&lt;/YEAR&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;DIRECTOR&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;DIRECTOR&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/DIRECTOR&gt;&quot;)-Len(&quot;&lt;/DIRECTOR&gt;&quot;)-2) &amp; &quot;&lt;/DIRECTOR&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;ACTOR&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;CAST&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/ACTOR&gt;&quot;)-Len(&quot;&lt;/ACTOR&gt;&quot;)-2) &amp; &quot;&lt;/CAST&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;Overview&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;PLOT&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/Overview&gt;&quot;)-Len(&quot;&lt;/Overview&gt;&quot;)-2) &amp; &quot;&lt;/PLOT&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case &quot;&lt;ID&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objTXTwrite.writeline &quot;&lt;IMAGE&gt;&quot; &amp; Mid(strLine,InStr(1,strLine,&quot;&gt;&quot;)+1,InStr(1,strLine,&quot;&lt;/ID&gt;&quot;)-Len(&quot;&lt;/ID&gt;&quot;)-2) &amp; &quot;f.JPG&lt;/IMAGE&gt;&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; End IfIf strLine &lt;&gt; &quot;&lt;/Collection&gt;&quot; THEN strLine = objTXTread.Readline&nbsp; &nbsp; LoopobjTXTwrite.writeline &quot;&lt;/CATALOG&gt;&quot;&nbsp; &nbsp; objTXTwrite.Close&nbsp; &nbsp; objTXTread.close&nbsp; &nbsp; Msgbox &quot;Done. The file is created in C:\Program Files\InterVocative Software\DVD Profiler\IMAGES and is called new.htm&quot;&nbsp; &nbsp; PS: I would be great to have the source code to the plugin<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite8" alt=":D" title="Big Grin&nbsp; &nbsp; :D" loading="lazy" data-shortname=":D" />S//Lasse</blockquote>

[QUOTE="lar282, post: 7860, member: 10326"] [b]script to convert[/b] Hi Just made a script to convert a dvdprofiler xml file to the format that this plugin wants. input: c:\Collection.Xml Output: C:\Program Files\InterVocative Software\DVD Profiler\IMAGES\new.htm save to a convert.vbs and run it [color=red]text[/color] On Error Resume Next Msgbox "Put your Collection.Xml in c:\" Dim objTXTwrite, objTXTread, strLine, strHeader Set objFILE = CreateObject("Scripting.Filesystemobject") Set objHOST = CreateObject("WScript.Shell") SET objTXTwrite = objFILE.OpenTextFile("C:\Program Files\InterVocative Software\DVD Profiler\IMAGES\new.htm",2,1) SET objTXTread = objFILE.OpenTextFile("C:\Collection.xml",1,1) objTXTwrite.writeline "<CATALOG>" strLine = objTXTread.Readline Do While strLine <> "</Collection>" If InStr(1,strLine,">") = 0 Then MsgBox "no good" Else strHeader = Trim(Left(strLine,InStr(1,strLine,">"))) 'MsgBox strHeader Select Case strHeader Case "<DVD>" objTXTwrite.writeline "<MOVIE>" Case "</DVD>" objTXTwrite.writeline "</MOVIE>" Case "<CollectionNumber>" objTXTwrite.writeline "<SLOT>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</CollectionNumber>")-Len("</CollectionNumber>")-2) & "</SLOT>" Case "<Title>" objTXTwrite.writeline "<OTITLE>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</Title>")-Len("</Title>")-2) & "</OTITLE>" Case "<Genres>" strLine = objTXTread.Readline strHeader = Trim(Left(strLine,InStr(1,strLine,">"))) objTXTwrite.writeline "<GENRE>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</Genre>")-Len("</Genre>")-4) & "</GENRE>" Case "<ProductionYear>" objTXTwrite.writeline "<YEAR>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</ProductionYear>")-Len("</ProductionYear>")-2) & "</YEAR>" Case "<DIRECTOR>" objTXTwrite.writeline "<DIRECTOR>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</DIRECTOR>")-Len("</DIRECTOR>")-2) & "</DIRECTOR>" Case "<ACTOR>" objTXTwrite.writeline "<CAST>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</ACTOR>")-Len("</ACTOR>")-2) & "</CAST>" Case "<Overview>" objTXTwrite.writeline "<PLOT>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</Overview>")-Len("</Overview>")-2) & "</PLOT>" Case "<ID>" objTXTwrite.writeline "<IMAGE>" & Mid(strLine,InStr(1,strLine,">")+1,InStr(1,strLine,"</ID>")-Len("</ID>")-2) & "f.JPG</IMAGE>" End Select End If If strLine <> "</Collection>" THEN strLine = objTXTread.Readline Loop objTXTwrite.writeline "</CATALOG>" objTXTwrite.Close objTXTread.close Msgbox "Done. The file is created in C:\Program Files\InterVocative Software\DVD Profiler\IMAGES and is called new.htm" PS: I would be great to have the source code to the plugin:DS //Lasse[color=red][/color][color=red][/color] [/QUOTE]

Verification