各位先進: 我想擷取文章中一些特定的字串如下列 while( sbody.Pos(“location”)>0 || sbody.Pos(“onclick”)>0 || sbody.Pos(“open”)>0||…) { if((n= sbody.Pos(“location”))>0) { ………. } else if((n= sbody.Pos(“onclick”))>0 { ………. } else if((n= sbody.Pos(“open”))>0 { ………. } } 我想按順序取得相關字後面的字串結果如 ………”aaaaaa”, ………..location=”bbbbbb”…… 應該會先取得 aaaaaa, 再取得 bbbbbb, 但是結果是取 bbbbbb, 而擷取不到 aaaaaa, 不知程式該如何修正才能取得所有該取得的字串.

760729：請問你程式裡！
while( sbody.Pos(“location”)>0 || sbody.Pos(“onclick”)>0 ||  sbody.Pos(“open”)>0||…)
{
  if((n= sbody.Pos(“location”))>0)
  {
    ………. //你有將找到的"location"字串刪除嗎？ 
  }
  else if((n= sbody.Pos(“onclick”))>0
  {
    ……….
  }
  else if((n= sbody.Pos(“open”))>0
  {
    ……….
  }
}

而且你程式內判斷"location"先，當然先找到"location" 要不要試試TStrings* RecMsg; 它可以 RecMsg->Values["location"]=="bbbbbb" 請參考！ Andy Chang

------
Andy Chang

您好: 我在找到 location 後, 有將之刪除. 請問 RecMsg->Values["location"]=="bbbbbb" 是什麼意思, 還有整篇文章中 能有很多的 location 及 onclick 及 open, 我該如何做才能全部擷取到.

引言:
您好:    我在找到 location 後, 有將之刪除.    請問 RecMsg->Values["location"]=="bbbbbb" 是什麼意思, 還有整篇文章中
能有很多的 location 及 onclick 及 open, 我該如何做才能全部擷取到.
你可以以本園地搜查[Blute]TStrings Values[/Blue]    

另一個簡單的方式，Form上放Memo或ListBox；
AnsiString __fastcall Repl_Char(AnsiString Str0,AnsiString Str1,AnsiString Str2)
{
  AnsiString Str=Str0;
  int pos1 = -1,Len=Str1.Length();
  do         {
    pos1 = Str.Pos(Str1);
          if (pos1 > 0)          {
            Str.Delete(pos1, Len);
            Str.Insert(Str2, pos1);
          }
         } while (pos1 !=0 );
  return (Str);
}    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Memo1->Clear();
  Memo1->Text=Repl_Char(sbody,",","\r\n");   // 將","轉為"\n\r"
}
如此將資料轉入Memo或ListBox應該處理上簡單多吧！
請參考！    

Andy Chang