這個網頁很單純就是資料夾底下的資料 開啟網頁如下： 2002年1月25日 下午 04:15 601 xxxxx.doc 2002年1月30日 下午 12:03 19456 xxxxx.pdf 2002年2月1日 下午 03:11 19456 xxxxx.doc 2002年2月1日 下午 02:29 22528 xxxxx.doc 2002年2月5日 下午 03:58 67072 xxxxx.pdf 如何將資料一行一行的存入Memo、或是將檔名一行一行的存入Memo。

http://delphi.ktop.com.tw/topic.php?topic_id=43696    網海無涯，學無止境!

qoo1234 您好~ 首先這篇文章我已經查閱過了，可是無法達到我所需要的 我的需求是想要一行一行的填入Memo中。麻煩你了

Hi baygon,    先將 HTML 中的〈ｂｒ〉轉換為 #13 存成 HTML，再用 WebBrowser 開啟該 HTML，讀取期 InnerText

procedure TForm1.Button41Click(Sender: TObject);
begin
    OKString := '';
    WebBrowser1.Navigate('http://localhost');
    while OKString = '' do // 還未執行完成時
        begin
            Sleep(100);
            Application.ProcessMessages;
        end;
    Memo5.Lines.Text := StringReplace((WebBrowser1.Document AS IHTMLDocument2).body,'〈ｂｒ〉',#13,[rfReplaceAll, rfIgnoreCase]);
    Memo5.Lines.SaveToFile('c:\temp\inner.html');        OKString := '';
    WebBrowser1.Navigate('c:\temp\inner.html');
    while OKString = '' do // 還未執行完成時
        begin
            Sleep(100);
            Application.ProcessMessages;
        end;
    Memo5.Lines.Text := (WebBrowser1.Document as IHTMLDocument2).body.innerText;
    Memo5.Lines.SaveToFile('c:\temp\inner.txt');
end;

紅色字體部分，記得須更改 發表人 -

------
Fishman

首先非常感謝Fishman 熱情解答 我剛也try過了是沒有問題的 在苦無對策時、我參考了站長之前發表的一篇文章解決了 ==================================================== 解決的方式如下： < class="code"> var i,len:Integer; hd:IHTMLDocument2; all:IHTMLElementCollection; item:OleVariant; itemname:string; begin ok:=False; application.ProcessMessages; webBrowser1.Navigate('http://localhost'); while not ok do application.ProcessMessages; hd:=WebBrowser1.Document as IHTMLDocument2; all:=hd.Get_links; len:=all.length; for i:=0 to len-1 do begin item:=all.item(i,varempty); itemname:=item.innerText; Memo1.Lines.Add(itemname); end; end; procedure TYBacked_ViewAttachForm.WebBrowser1DocumentComplete( Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin ok:=True; end; 發表人 - baygon 於 2004/03/02 17:29:57 發表人 - baygon 於 2004/03/02 17:33:13