請問有這樣的元件嗎 |
尚未結案
|
totodog
一般會員 發表:13 回覆:3 積分:3 註冊:2003-05-29 發送簡訊給我 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
阿子
站務副站長 發表:120 回覆:230 積分:201 註冊:2002-03-18 發送簡訊給我 |
{* ******************************** zHtml2Txt ******************************* *} {* =================================Blue Fox================================= *} {* 目 的: 將網頁轉成文字 {* 關 鍵 字: {* 輸 入 值: AHtmlFile: string {* 傳 回 值: zHtml2Txt:string {* 呼 叫 式: {* 說 明: {* 日 期 由 注解 {* ---------- ---- ------- {* 2002/1/4 levi {* =================================Blue Fox==============================2.0 *} function zHtml2Txt(AHtmlFile: string): string; var Mystring: TStrings; s, lineS: string; line, Llen, i, j: integer; rloop: boolean; begin rloop := False; Mystring := TStringlist.Create; s := ''; Mystring.LoadFromFile(AHtmlFile); line := Mystring.Count; // try for i := 0 to line - 1 do begin lineS := Mystring[i]; Llen := length(lineS); j := 1; while (j <= Llen) and (lineS[j] = ' ') do begin j := j 1; s := s ' '; end; while j <= Llen do begin if lineS[j] = '<' then rloop := True; if lineS[j] = '>' then begin rloop := False; j := j 1; continue; end; if rloop then begin j := j 1; continue; end else s := s lineS[j]; j := j 1; end; s := s #13#10; end; Mystring.Free; // end; {try} result := s; end;從思考取勝一切~q
------
從思考取勝一切~q |
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |