Changeset 28354

Timestamp:

2013-10-04T19:18:48+13:00 (11 years ago)

Author:

ak19

Message:

This VBScript file is now replacing the old VB files (exe, frm form file and vbp project file). Otherwise this script was already working and writing out the item file and slide files, which were generated from converting ppt slides to txt, as UTF-8. This is where this script is preferable to the older VB executable, which had all the code that wrote out UTF-8 commented out. By default, file write methods in VB and VBScript write out UTF16 LE, which is not what Greenstone wants. Greenstone wants UTF-8. The differences from the last revision: 1. Added subroutine to run this script as CScript, which uses the console, in case this .vbs file (VBScript) is launched with WScript. 2. Better comments.

File:

• main/trunk/binaries/windows/bin/pptextract.vbs (modified) (5 diffs)

main/trunk/binaries/windows/bin/pptextract.vbs

@@ +1 @@
+' This file is a port to VBScript from VB of the pptextract.exe, pptextract.frm (and pptextract.vbp) files.
+
+' It was hard to upgrade the VB pptextract.frm form script in Visual Studio
+' to the current Visual Basic, and some packages it needed wouldn't install,
+' making it hard to compile up.
+
+' As this VBScript doesn't need to be compiled up, it may be easier to maintain.
+
+' For differences between VBScript and VB, see 
+' http://msdn.microsoft.com/en-us/library/ms970436.aspx
+' http://www.htmlgoodies.com/beyond/asp/vbs-ref/article.php/3458611/Key-Differences-Between-VB-and-VB-Script.htm
+' (Note that VBScript does support reading and writing to files)
+
+
+
 'Option Explicit
 'Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
@@ -8 +23 @@
 ' If you want the code to work, you have to use cscript.exe to run it.
 
-
+' This is a CScript (console-only). If launched in WScript mode, run as CScript anyway
+' From: http://stackoverflow.com/questions/4692542/force-a-vbs-to-run-using-cscript-instead-of-wscript
+Sub forceCScriptExecution
+    Dim Arg, Str
+    If Not LCase( Right( WScript.FullName, 12 ) ) = "\cscript.exe" Then
+        For Each Arg In WScript.Arguments
+            If InStr( Arg, " " ) Then Arg = """" & Arg & """"
+            Str = Str & " " & Arg
+        Next
+        CreateObject( "WScript.Shell" ).Run _
+            "cscript //nologo """ & _
+            WScript.ScriptFullName & _
+            """ " & Str
+        WScript.Quit
+    End If
+End Sub
+forceCScriptExecution
+
+' Where this script actually starts
 Dim args
 args = WScript.Arguments.Count
@@ -92 +125 @@
 Sub PPTslidesToImgs(outputType, inFileName, outFileStem)
     ' switch statement, http://msdn.microsoft.com/en-us/library/6ef9w614%28v=vs.84%29.aspx
-    WScript.StdErr.Write ("Output stem: " & outFileStem & vbCrLf)
+    'WScript.StdErr.Write ("Output stem: " & outFileStem & vbCrLf)
     
     Dim fso
@@ -102 +135 @@
     itemFile = Mid(outFileStem, InStrRev(outFileStem, "\")+1)
     
-    WScript.StdErr.Write ("outputDir: " & outFileStem & vbCrLf) 
+    'WScript.StdErr.Write ("outputDir: " & outFileStem & vbCrLf)    
     
     If Not fso.FolderExists(outputDir) Then
@@ -130 +163 @@
     itemFile = outFileStem + "\" + itemFile + ".item"
     
-    'Set item = fso.CreateTextFile(itemFile, 2, True) ' ForWriting = 2, Unicode = -1, see http://msdn.microsoft.com/en-us/library/314cz14s%28v=vs.84%29.aspx
-    
-    ' Writing out to a file in UTF-8 http://stackoverflow.com/questions/10450156/write-text-file-in-appending-utf-8-encoded-in-vb6
+    'Set item = fso.CreateTextFile(itemFile, 2, True) ' ForWriting = 2, default is Unicode = -1, see http://msdn.microsoft.com/en-us/library/314cz14s%28v=vs.84%29.aspx
+    ' The default file-write methods in VBScript all create UTF16 Little Endian (USC-2LE) files like Notepad's default, rather than the UTF-8 we want
+    ' Writing out to a file in UTF-8 is achieved as at: http://stackoverflow.com/questions/10450156/write-text-file-in-appending-utf-8-encoded-in-vb6   
     Dim item
     Set item = CreateObject("ADODB.Stream")