--- In [email protected], "entropyreduction"
<[EMAIL PROTECTED]> wrote:
Hi..
So.. sorry..
I make a script..
But, it work Only one time..
and then, Powerpro don't work..
and, Two Powerpro.exe in Taskmgr..
---------------------------------------------------
LOCAL objApp objSheet list_file n_file i k ss ss_word objCell sStatus
local com_status, com_type
LOCAL s_file
if (pproversion lt 3815) do
local msg = "This script requires a version of Powerpro 3.08.15 or
later. You can edit it to eliminate use of ?c...c string delimiters"
messageBox("exclamation ok", msg, "Script Requires Later Version of
PowerPro")
quit
endif
clip.clear
com.error_dialog_on()
com.returns_values()
objApp = com.create_object("Excel.Application")
objApp.visible = 1
objApp.Workbooks.Add
local objSheet = objApp.ActiveWorkbook.Worksheets(1)
list_file = file.listfiles(?"c:\WINDOWS\java\", 1)
n_file = line(list_file, 0)
for ( i=1 ; i <=n_file ;i=i+1)
ss = line(list_file, i)
ss_word = word(ss, 0, ?"\")
for( k =1; k <= ss_word;k=k+1)
IF ((SS_WORD-1) ==K) DO
CONTINUE
ELSEIF (SS_WORD==K) DO
objCell = com.method(objSheet, "Cells", i , k-1)
com.set_property(objCell, "Value", word(ss, k, ?"\"))
objCell = com.release(objCell)
ELSE
objCell = com.method(objSheet, "Cells", i, k)
com.set_property(objCell, "Value", word(ss, k, ?"\")++?"\")
objCell = com.release(objCell)
ENDIF
endfor
endfor
objSheet.Range("A1:E18").copy
objsheet.release
Local Ex_Clip = clip.get
wait.for(70)
local Ex_clip2 = Regex.pcreReplace(?"\t",Ex_Clip, ?"")
wait.for(100)
File.Writeall(?"C:\List1.Txt", Ex_Clip2)
wait.for(100)
local s_file = ?"C:\" ++ date ++TIME++ ?".xls"
Com.Method(objApp, "ActiveWorkbook.SaveAS", s_file)
wait.for(200)
objApp.Quit
com.unload
Quit
---------------------------------------------------
Regards,
kottami
