Changeset 10524 for trunk/winbin
- Timestamp:
- 2005-08-17T15:18:26+12:00 (19 years ago)
- Location:
- trunk/winbin/bin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/winbin/bin/pptextract.frm
r10492 r10524 49 49 meta = False 50 50 51 '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) 51 52 cmdln = Command() 53 'MsgBox ("Command:" + cmdln) 52 54 'cmdln = "-g H:\chi\Visual Basic\ForumPres270404.ppt H:\chi\Visual Basic\tmp\ForumPres270404" 53 55 outputdir = getoutput(cmdln) 54 56 File = Left(cmdln, InStr(cmdln, ".ppt") + 3) 57 'MsgBox ("File:" + File) 55 58 item_file = Left(cmdln, InStr(cmdln, ".ppt")) 56 59 args = getargs(File) 60 'MsgBox ("agr:" + args) 57 61 direc = getdir(File) 62 'MsgBox ("direc:" + direc) 58 63 File = getfile(File) 64 'MsgBox ("File:" + File) 65 59 66 item_file = getfile(item_file) 60 67 61 68 If InStr(args, "h") Then htm = True 62 69 If InStr(args, "j") Then jpg = True … … 72 79 73 80 ' Modified for apply to GSII environment setting 81 'MsgBox ("OUTPUT_dir:" + outputdir) 74 82 output_tmp = Left(outputdir, InStr(outputdir, "\tmp") + 3) 83 'output_tmp = Mid(outputdir, 2, InStr(outputdir, "\tmp") + 3) 84 'MsgBox ("OUTPUT_TMP:" + output_tmp) 85 75 86 If Not fso.FolderExists(output_tmp) Then 76 87 fso.CreateFolder (output_tmp) … … 96 107 item.WriteLine ("<PagedDocument>") 97 108 'item.WriteText "<PagedDocument>", 1 98 source = direc + File 99 ppts.Open (source) 109 Source = direc + File 110 'MsgBox ("Src:" + Source) 111 ppts.Open (Source) 100 112 101 113 'do stuff … … 211 223 cmdln = line 212 224 While InStr(cmdln, ".ppt") 213 cmdln = LTrim(RTrim(Right(cmdln, Len(cmdln) - (InStr(cmdln, ".ppt") + 3)))) 225 'cmdln = LTrim(RTrim(Right(cmdln, Len(cmdln) - (InStr(cmdln, ".ppt") + 4)))) 226 cmdln = Trim(Right(cmdln, Len(cmdln) - (InStr(cmdln, ".ppt") + 4))) 227 cmdln = Trim(Mid(cmdln, 2, Len(cmdln) - 2)) 214 228 Wend 215 229 getoutput = cmdln 230 'MsgBox ("OUTPUTDIR:" + getoutput) 216 231 End Function 217 232 Function getargs(line) … … 222 237 End Function 223 238 Function getdir(line) 224 x = LTrim(Right(line, Len(line) - Len(getargs(line)) ))239 x = LTrim(Right(line, Len(line) - Len(getargs(line)) - 1)) 225 240 If InStr(x, ":") <> 2 Then 226 241 direc = CurDir … … 233 248 Wend 234 249 getdir = direc 250 'MsgBox ("GetDIr:" + getdir) 235 251 End Function 236 252 Function getfile(line) … … 240 256 Wend 241 257 getfile = x 242 End Function258 End Function 243 259 Sub itemxml(out_item, thisfile, txtfile, num, slide_title) 244 260 out_item.WriteLine (" <Page pagenum=" + Chr(34) + CStr(num) + Chr(34) + " imgfile=" + Chr(34) + thisfile + Chr(34) + " txtfile=" + Chr(34) + txtfile + Chr(34) + ">")
Note:
See TracChangeset
for help on using the changeset viewer.