想問各位大大， 假如我已經學會如何抓取網頁中的原始碼了， 緊接著我想要抓取裡面所有的url到一個memo1裡.. 但是我又想把我在這頁面中所抓到的url去頭去尾 也就是說只擷取我所搜尋到的這三個url，其餘的全部去掉    想請問各位先進， 我該如何去撰寫這段程式.. 如附圖     發表人 - rolen 於 2003/11/28 15:44:31

使用POS找尋出     學習中請大家多多指導呦~~
    ☆星霧☆（Mineg Chien WU）    發表人 - mieng 於 2003/11/28  16:16:43
        

啊~~天呀~~ 我還是不懂耶.. 救命..=.=" :(:(:(:(:(:(:(

假設你已經將原始碼存到str,

 
  while (str.Pos("Lines->Add(s);
  }

不好意思，因為我是新手， 請問可以說的更明確點嗎??    我的程式是直接將原始碼擷取出來後， 然後直接呈現在memo1上的.. 我該如何去做去頭去尾的動作?? 不懂你的 str??    希望您能告訴我..謝謝^^

引言: 假設你已經將原始碼存到str,

 
  while (str.Pos("Lines->Add(s);
  }

那如果是這樣可以達成嗎?

  AnsiString str = Memo1->Lines->Text;
  Memo1->Lines->Clear();
  while (str.Pos("href=\"") != 0) {
    str.Delete(1,str.Pos("href=\"") 5);
    AnsiString s = str.SubString(1,str.Pos("\"")-1);
    Memo1->Lines->Add(s);
  }

如果是這樣的話， 只是單純把所有網頁上的超連結給擷取出來， 而失去了一開始的本意， 並沒有真正將頭尾給去除掉.. 因此， 好像又回到了原點..=.="    呃. 好難.. 不過還是很感謝您肯回答我的問題..^^    

引言: 那如果是這樣可以達成嗎?

  AnsiString str = Memo1->Lines->Text;
  Memo1->Lines->Clear();
  while (str.Pos("href=\"") != 0) {
    str.Delete(1,str.Pos("href=\"") 5);
    AnsiString s = str.SubString(1,str.Pos("\"")-1);
    Memo1->Lines->Add(s);
  }

超連結給擷取出來後要靠您自行比對是否是您所需要的~ 是再保留下來就好了~~ wyvern寫給您的範例也只差個比對而己~~ 想一下不難的呦~~

  AnsiString str = Memo1->Lines->Text;
  Memo1->Lines->Clear();
  while (str.Pos("href=\"") != 0) {
    str.Delete(1,str.Pos("href=\"") 5);
    AnsiString s = str.SubString(1,str.Pos("\"")-1);
//在這裡比對取出的URL是否為需要的，是才保留
    Memo1->Lines->Add(s);
  }

學習中請大家多多指導呦~~ ☆星霧☆（Mineg Chien WU）

感謝您的回答.. 其實您點的問題... 也就正是我要問的問題  因為擷取超連結的功能，在這之前，我就已經可以做出來了..    因此我的問題就是在於如何去除掉，並做比對.. 很感謝您的回答.. 也希望您能撥空與我一起將這題給解出來.. 因為我才疏學淺.. 實在是沒辦法做出這個要求.. 希望大家都能夠助我一臂之力.. 謝謝^^    

引言: 超連結給擷取出來後要靠您自行比對是否是您所需要的~ 是再保留下來就好了~~ wyvern寫給您的範例也只差個比對而己~~ 想一下不難的呦~~

  AnsiString str = Memo1->Lines->Text;
  Memo1->Lines->Clear();
  while (str.Pos("href=\"") != 0) {
    str.Delete(1,str.Pos("href=\"") 5);
    AnsiString s = str.SubString(1,str.Pos("\"")-1);
//在這裡比對取出的URL是否為需要的，是才保留
    Memo1->Lines->Add(s);
  }

學習中請大家多多指導呦~~ ☆星霧☆（Mineg Chien WU）

嗯.. 我要等到哪一天， 才會有人給我明確一點的答案..=.="??