線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1043
推到 Plurk!
推到 Facebook!

請問要如何把HTML的<.>消除呢~??

答題得分者是:andychang1690
hennessy
一般會員


發表:11
回覆:24
積分:7
註冊:2004-07-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-07-27 15:42:10 IP:220.143.xxx.xxx 未訂閱
請問要如何把HTML的"<",">"包括裡面的字跟大於小於的符號消除呢?? 例如說把ㄧ篇HTML的原始碼用C 讀入 然後顯示出來後變成我們看到的字呢 像我們現在看到的存文字網頁這樣呢 懇請各位大大前輩們的不吝賜教 感恩~~d(_ _)b 謝謝~~!! 發表人 - hennessy 於 2004/07/27 15:48:11 發表人 - hennessy 於 2004/07/27 15:49:06 發表人 - hennessy 於 2004/07/27 15:54:21 發表人 - taishyang 於 2004/07/27 16:02:51
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-07-27 15:57:03 IP:203.73.xxx.xxx 未訂閱
引言:
請問要如何把HTML的"<",">"包括裡面的字根大於小於的符號消除呢??
例如說把
/*
   
      12
      Egypt
      0
      -31
      
   */
變成
12
Egypt
0
-31
這個樣子呢
懇請各位大大前輩們的不吝賜教
感恩~~d(_ _)b
謝謝~~!!    〉〈
hennessy 你好:
(1)你可以參考以下這篇解析 XML 檔案的方式,取出你想要的部分即可達到目的
   >
(>    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --    發表人 - RaynorPao 於 2004/07/27  16:00:30
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
hennessy
一般會員


發表:11
回覆:24
積分:7
註冊:2004-07-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-07-30 15:36:24 IP:220.143.xxx.xxx 未訂閱
好像不是那樣子呢 是要用C寫出程式 然後可以讀入HTML的格式 之後可以輸出除了大於跟小於以外的字 及大於跟小於內所包含的字都刪除掉 只留下我們看到的內容 但是我不知道要怎麼開始呢 QQ" 希望各位前輩大大們可以解答一番 謝謝~~~!!
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-07-31 17:13:51 IP:202.104.xxx.xxx 未訂閱
週六無聊順手寫寫參考一下
拉兩個Memo,Memo1放HTML,Memo2為輸出結果:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo2->Lines->Clear();
  AnsiString S,Str;
  int Start_n,loop_n;
  for (int i=0;i < Memo1->Lines->Count; i  ) {
    S=Memo1->Lines->Strings[i].Trim();
    Start_n=1;
    for (int i1=1; i1 <= S.Length(); i1  ) {
      if (S[i1]=='<') {
        if (!Str.IsEmpty())
          Memo2->Lines->Add(Str);
        Str="";
        Start_n=i1;
        loop_n=i1 1;
        do {
          if (S[loop_n]=='<') {
            Str =S.SubString(Start_n,loop_n-Start_n 1);
            Start_n=loop_n;
          }
          loop_n  ;
        } while ( S[loop_n]!='>' ) ;
        i1=loop_n;
      }
      else
        Str =S[i1];
    }
    if (!Str.IsEmpty())
      Memo2->Lines->Add(Str);
  }
}
請參考    
Andy Chang
------
Andy Chang
hennessy
一般會員


發表:11
回覆:24
積分:7
註冊:2004-07-26

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-08-03 17:35:23 IP:220.143.xxx.xxx 未訂閱
引言:
週六無聊順手寫寫參考一下
拉兩個Memo,Memo1放HTML,Memo2為輸出結果:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo2->Lines->Clear();
  AnsiString S,Str;
  int Start_n,loop_n;
  for (int i=0;i < Memo1->Lines->Count; i  ) {
    S=Memo1->Lines->Strings[i].Trim();
    Start_n=1;
    for (int i1=1; i1 <= S.Length(); i1  ) {
      if (S[i1]=='<') {
        if (!Str.IsEmpty())
          Memo2->Lines->Add(Str);
        Str="";
        Start_n=i1;
        loop_n=i1 1;
        do {
          if (S[loop_n]=='<') {
            Str =S.SubString(Start_n,loop_n-Start_n 1);
            Start_n=loop_n;
          }
          loop_n  ;
        } while ( S[loop_n]!='>' ) ;
        i1=loop_n;
      }
      else
        Str =S[i1];
    }
    if (!Str.IsEmpty())
      Memo2->Lines->Add(Str);
  }
}
請參考    
Andy Chang
andychang1690大大您好: 感謝您的協助 但這段程式我在弄的時候 好像不能很正確的弄出html的內容 說錯了 是我自己打的簡短的格式可以 那網路上抓的網頁原始碼就不能用了 無論如何 還是感謝大大 謝謝~~!! 發表人 - hennessy 於 2004/08/03 17:51:53
系統時間:2024-05-16 7:34:06
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!