全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1034
推到 Plurk!
推到 Facebook!

【求助】script 轉 c++ code

尚未結案
asd98537
一般會員


發表:27
回覆:25
積分:10
註冊:2002-10-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-10-17 16:35:46 IP:211.21.xxx.xxx 未訂閱
請教前輩 一段vbs code
 
Set objLogParser = CreateObject("MSUtil.LogQuery")
Set objInputFormat = _
    CreateObject("MSUtil.LogQuery.CSVInputFormat")    Set objOutputFormat = _
    CreateObject("MSUtil.LogQuery.TSVOutputFormat")    strQuery = "select Year,Month,Day,Callref,Result,Grammar,NBest,Score,NL,Pronounce into test.txt from *.csv  Where Score>40"
objLogParser.ExecuteBatch strQuery, objInputFormat, objOutputFormat
要如何轉成c++的code呢 如下寫了一點,但是不知道 Set objInputFormat = _ CreateObject("MSUtil.LogQuery.CSVInputFormat") 及 Set objOutputFormat = _ CreateObject("MSUtil.LogQuery.TSVOutputFormat") 這兩段敘述怎麼轉,然後當參數傳入ExecuteBatch 中 請各位指導一下,感恩。
         HRESULT hr = OleInitialize(NULL) ;
        if (FAILED(hr))
        {
                trace("Failed to initialize.", hr) ;
                return 1;
        }                    // Get the CLSID for the application.
        wchar_t progid[] = L"MSUtil.LogQuery" ;
        CLSID clsid ;
         hr = ::CLSIDFromProgID(progid, &clsid) ;
        if(FAILED(hr))
        {
                trace("Failed to get CLSID.", hr) ;
                return 1 ;
        }            IDispatch* pIDispatch = NULL ;
        hr = ::CoCreateInstance(clsid,
                                NULL,
                                CLSCTX_INPROC_SERVER,
                                IID_IDispatch,
                                (void**)&pIDispatch) ;
        if (FAILED(hr))
        {
                trace("Create instance failed.", hr) ;
                OleUninitialize() ;
                return 1 ;
        }
    
        DISPID dispid ;        
        OLECHAR* name = L"ExecuteBatch" ;
        hr = pIDispatch->GetIDsOfNames(IID_NULL,
                                       &name,
                                       1,
                                       GetUserDefaultLCID(),
                                       &dispid) ;
        if (FAILED(hr))
        {
                trace("Query GetIDsOfNames failed.", hr) ;
                pIDispatch->Release() ;
                return 1 ;
        }
系統時間:2024-05-10 20:20:38
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!