Changeset 10524 for trunk/winbin

Timestamp:

2005-08-17T15:18:26+12:00 (19 years ago)

Author:

chi

Message:

Modifications of parsing file pathname.

Location:

trunk/winbin/bin

Files:

• pptextract.exe (modified) ( previous)
• pptextract.frm (modified) (7 diffs)

trunk/winbin/bin/pptextract.frm

@@ -49 +49 @@
     meta = False
     
+    'cmdln = "-g " & Chr(34) & "C:\chi\gsdl\collect\PPTTest2\import\16-A.ppt" & Chr(34) & Chr(34) & "C:\chi\gsdl\collect\PPTTest2\tmp\16-A" & Chr(34)
     cmdln = Command()
+    'MsgBox ("Command:" + cmdln)
     'cmdln = "-g H:\chi\Visual Basic\ForumPres270404.ppt H:\chi\Visual Basic\tmp\ForumPres270404"
     outputdir = getoutput(cmdln)
     File = Left(cmdln, InStr(cmdln, ".ppt") + 3)
+    'MsgBox ("File:" + File)
     item_file = Left(cmdln, InStr(cmdln, ".ppt"))
     args = getargs(File)
+    'MsgBox ("agr:" + args)
     direc = getdir(File)
+    'MsgBox ("direc:" + direc)
     File = getfile(File)
+    'MsgBox ("File:" + File)
+    
     item_file = getfile(item_file)
-    
+       
     If InStr(args, "h") Then htm = True
     If InStr(args, "j") Then jpg = True
@@ -72 +79 @@
     
     ' Modified for apply to GSII environment setting
+    'MsgBox ("OUTPUT_dir:" + outputdir)
     output_tmp = Left(outputdir, InStr(outputdir, "\tmp") + 3)
+    'output_tmp = Mid(outputdir, 2, InStr(outputdir, "\tmp") + 3)
+    'MsgBox ("OUTPUT_TMP:" + output_tmp)
+    
     If Not fso.FolderExists(output_tmp) Then
        fso.CreateFolder (output_tmp)
@@ -96 +107 @@
     item.WriteLine ("<PagedDocument>")
     'item.WriteText "<PagedDocument>", 1
-    source = direc + File
-    ppts.Open (source)
+    Source = direc + File
+    'MsgBox ("Src:" + Source)
+    ppts.Open (Source)
                            
     'do stuff
@@ -211 +223 @@
     cmdln = line
     While InStr(cmdln, ".ppt")
-        cmdln = LTrim(RTrim(Right(cmdln, Len(cmdln) - (InStr(cmdln, ".ppt") + 3))))
+        'cmdln = LTrim(RTrim(Right(cmdln, Len(cmdln) - (InStr(cmdln, ".ppt") + 4))))
+        cmdln = Trim(Right(cmdln, Len(cmdln) - (InStr(cmdln, ".ppt") + 4)))
+        cmdln = Trim(Mid(cmdln, 2, Len(cmdln) - 2))
     Wend
     getoutput = cmdln
+    'MsgBox ("OUTPUTDIR:" + getoutput)
 End Function
 Function getargs(line)
@@ -222 +237 @@
 End Function
 Function getdir(line)
-    x = LTrim(Right(line, Len(line) - Len(getargs(line))))
+    x = LTrim(Right(line, Len(line) - Len(getargs(line)) - 1))
     If InStr(x, ":") <> 2 Then
         direc = CurDir
@@ -233 +248 @@
     Wend
     getdir = direc
+    'MsgBox ("GetDIr:" + getdir)
 End Function
 Function getfile(line)
@@ -240 +256 @@
     Wend
     getfile = x
-End Function
+    End Function
 Sub itemxml(out_item, thisfile, txtfile, num, slide_title)
     out_item.WriteLine ("   <Page pagenum=" + Chr(34) + CStr(num) + Chr(34) + " imgfile=" + Chr(34) + thisfile + Chr(34) + " txtfile=" + Chr(34) + txtfile + Chr(34) + ">")