PB里执行RUN带参数及判断是否成功的办法

ehxz

免费乐捐，感谢支持

string ls_run_rar,ls_file_zip_in,ls_file_path
ls_file_zip_in = c:\a.rar  //原文件
ls_file_path = c:\bak\ //需要解压缩的一个目录
int li_run_rar
ls_run_rar = "C:\Program Files\WinRAR\WinRAR.exe " + " e "+ ls_file_zip_in + " " + ls_file_path + " /y"
li_run_rar = Run(ls_run_rar,Minimized!) //执行
IF li_run_rar = 1 THEN //解压缩成功
//
END IF
最新的处理方法一般在最后，找新贴请倒着看。

ehxz

附上写的一个文件导入的主程序，使用二个游标（一个检索所有门店，一个检索每个门店下的所有文件）
Global Variables

string ls_pos_in ='1'

ehxz

差不多花了一周的时间，就弄了点这个[em69]
Declare Local External Functions

FUNCTION boolean CopyFileA(ref string cfrom, ref string cto, boolean flag) LIBRARY "Kernel32.dll"
FUNCTION long Sleep(Long ms)library "kernel32"

ehxz

//定义门店编号,与上传路径相关
String ls_bran_id
ls_pos_in = "1"
String ls_file_date
//
cb_in.Enabled = False
cb_close.Enabled = False
cb_stop.Enabled = True
cb_in.Text = "数据正在导入中..."
//
DO UNTIL ls_pos_in = "0"
        //游标取值,所有门店的上传数据处理
        DECLARE cur_bran_id CURSOR FOR
                SELECT bran_id
                FROM bran_cust_rec
                WHERE bran_id LIKE "C%"
                Order By bran_id;
               
        OPEN cur_bran_id ;
       
        FETCH cur_bran_id Into :ls_bran_id  ;
        DO        WHILE sqlca.SQLCode = 0
                st_pos_id.Text = ls_bran_id
                Yield()
                //====================================================================
                //数据导入到DW里
                //====================================================================
                //ls_bran_id = "CZ001" //调试用
               
                Long ll_filelength_zip,ll_filelength
                String ls_file_in ,ls_file_bak
                String ls_file_zip_in,ls_file_zip_bak //
                String ls_file_path //文件目录
                String ls_run_rar //rar命令
                Int li_run_rar //rar是否运行成功
                String ls_t_file,ls_t_table,ls_t_dw //导入相关的文件名，表名，数据窗口
                Int li_importfile,li_update //是否导入文件成功，是否update成功
               
                DECLARE cur_pos_in CURSOR FOR
                        SELECT t_file,t_table,t_dw
                        FROM t_pos_in
                        Where t_y = 'y' ;
                       
                OPEN cur_pos_in ;
               
                FETCH cur_pos_in Into :ls_t_file,:ls_t_table,:ls_t_dw  ;
                DO        WHILE sqlca.SQLCode = 0
                        Yield()
                        //文件导入
                        ls_file_date = String(Today(),"yyyymmddhhmm")
                        //压缩处理
                        ls_file_zip_in = "E:\posftp\" + ls_bran_id + "\"+ls_t_file + ".zip"
                        ll_filelength_zip = FileLength(ls_file_zip_in)
                        ls_file_in = "E:\posftp\" + ls_bran_id + "\"+ls_t_file
                        ls_file_bak = "E:\posftpbak\" + ls_bran_id + "\"+ls_file_date+ls_t_file
                        ll_filelength = FileLength(ls_file_in)
                        IF ll_filelength_zip >= 1 And ll_filelength = -1 THEN //ZIP文件存在，TXT文件不存在
                                st_file.Text = ls_file_zip_in
                                ls_file_zip_bak = "E:\posftpbak\" + ls_bran_id + "\"+ls_file_date+ls_t_file + ".zip"
                                ls_file_path = "E:\posftp\"+ls_bran_id+"\"
                                ls_run_rar = "C:\Program Files\WinRAR\WinRAR.exe " + " e "+ ls_file_zip_in + " " + ls_file_path + " /y"
                                li_run_rar = Run(ls_run_rar,Minimized!)
                                sleep(3000)
                                IF li_run_rar = 1 THEN //解压缩成功
                                        ls_file_in = "E:\posftp\" + ls_bran_id + "\"+ls_t_file
                                        //ls_file_bak = "E:\posftpbak\" + ls_bran_id + "\"+ls_file_date+ls_t_file
                                        ll_filelength = FileLength(ls_file_in) //解压缩后重新取
                                        IF ll_filelength >= 30 THEN
                                                dw_pos_in.DataObject = ls_t_dw
                                                dw_pos_in.SetTransObject(sqlca)
                                                dw_pos_in.Retrieve()
                                                li_importfile = dw_pos_in.ImportFile(ls_file_in)
                                                st_file.Text = ls_file_in
                                                IF li_importfile > 0 THEN
                                                        CopyFileA(ls_file_zip_in,ls_file_zip_bak,False)
                                                        FileDelete(ls_file_in)
                                                        FileDelete(ls_file_zip_in)
                                                END IF
                                                //数据入库
                                                String Sqlstatement
                                                Sqlstatement = "DELETE From " +  ls_t_table
                                                EXECUTE Immediate :Sqlstatement Using sqlca  ;
                                                dw_pos_in.SetTransObject(sqlca)
                                                li_update = dw_pos_in.Update()
                                                IF li_update <> 1 THEN
                                                        MessageBox("提示","更新失败" + ls_file_zip_in)
                                                        RETURN
                                                END IF
                                        END IF
                                END IF
                        ELSE
                                IF ll_filelength >= 30 THEN
                                        dw_pos_in.DataObject = ls_t_dw
                                        dw_pos_in.SetTransObject(sqlca)
                                        dw_pos_in.Retrieve()
                                        li_importfile = dw_pos_in.ImportFile(ls_file_in)
                                        st_file.Text = ls_file_in
                                        IF li_importfile > 0 THEN
                                                CopyFileA(ls_file_in,ls_file_bak,False)
                                                FileDelete(ls_file_in)
                                        END IF
                                        //数据入库
                                        Sqlstatement = "DELETE From " +  ls_t_table
                                        EXECUTE Immediate :Sqlstatement Using sqlca  ;
                                        dw_pos_in.SetTransObject(sqlca)
                                        li_update = dw_pos_in.Update()
                                        IF li_update <> 1 THEN
                                                MessageBox("提示","更新失败" + ls_file_zip_in)
                                                RETURN
                                        END IF
                                ELSEIF ll_filelength <= 29 THEN
                                        CopyFileA(ls_file_in,ls_file_bak,False)
                                        FileDelete(ls_file_in)
                                END IF
                        END IF
                       
                        sleep(30)
                       
                        FETCH cur_pos_in Into :ls_t_file,:ls_t_table,:ls_t_dw  ;
                LOOP
                CLOSE cur_pos_in;
                //
                sleep(3000)
                st_file.Text = ""
                FETCH cur_bran_id Into :ls_bran_id  ;
        LOOP
        CLOSE cur_bran_id;
       
LOOP

cb_in.Enabled = True
cb_close.Enabled = True
cb_in.Text = "导入"



//更新有压缩文件及未压缩文件同时存在的情况的处理，对于程序更新过程中的问题解决
//20080912

ribut9225

呵呵
有点复杂啊