不知道各位高手有什麼技巧能把此網址所下載的內容取到呢? 網址: http://www.taifex.com.tw/chinese/3/3_1_2dl.asp?syear=2004&smonth=12&sday=1&eyear=2004&emonth=12&eday=7&COMMODITY_ID=TX 他會將結果用亂數產生並存成 xxxxx.csv 檔,不知各位高手有何方法可以將此一內容存到 Memo 裡... 感謝指導.^^

我的想法是呼叫 Excel 去開那個 url，然後再將 Excel 上的資料填到 Memo，但我想資料都在 Excel 上頭了，您想存到哪應該都可以吧。

#include     void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Variant FApp, FWorkbooks, FActiveSheet;        FApp = ::CreateOleObject("Excel.Application");
    FWorkbooks = FApp.OlePropertyGet("Workbooks");
    
    /* 為了看到畫面，所以把 Excel Application 設成 Visible */
    FApp.OlePropertySet("Visible", true);        String url = "http://www.taifex.com.tw/chinese/3/3_1_2dl.asp?syear=2004&smonth=12&sday=1&eyear=2004&emonth=12&eday=7&COMMODITY_ID=TX";
    
    /* 開啟 url 並以逗點為分隔符號 */
    FWorkbooks.OleProcedure("OpenText", url.c_str(), Null(), 1, 1, Null(), Null(), Null(), Null(), true );        FActiveSheet = FApp.OlePropertyGet("ActiveSheet");
    
    /* 在這可以使用 FActiveSheet.OlePropertyGet("Cells", row, col) 來抓取 Sheet 上面的資料，你可以改用迴圈來跑所有的資料 */
    int row = 1; 
    int col = 1;
    Memo1->Lines->Add(FActiveSheet.OlePropertyGet("Cells", row, col));
    /* ToDo.... */        /* 結束 Excel Application */
    FApp.OleProcedure("Quit");
}

發表人 - allenchan 於 2004/12/07 22:25:28

大大真是太感謝你了 厲害 佩服 ，真的太謝謝你囉．．