請問各位先進： 有個網頁的原始檔裡面有 transkey VALUE=E959FE7FC19DB69186D674E360C38AD47FCD 每次重新整理後 這個值都會不一樣 我已經有把原始檔抓下來放在memo1裡面了 請問要怎樣把這個值給抓出來放到memo2裡面呢 謝謝

不好意思，借用RaynorPao大大的範例 AnsiString sz="INPUT TYPE=hidden NAME=transkey VALUE=82F155D578C68FB8B18FB2A3A084C86EDF69"; AnsiString sz1="transkey VALUE="; int i=sz.Pos(sz1); i =sz1.Length(); int j=0; while(sz[i j]!=' ') { j ; } Memo2->Lines->Add(sz.SubString(i, j)); 但是卻不能動作 請問要修改什麼地方呢 我發現在最後一個字的後面不是空格的話 就會發生錯誤!! 又在"transkey VALUE="後面的值不是固定的話 這個方法是否適用 謝謝~~!!

我知道要怎麼弄了 AnsiString sz=Memo1->Text; //只要把這裡變成下載回來的原始檔 AnsiString sz1="VALUE="; int i=sz.Pos(sz1); i =sz1.Length(); int j=0; while(sz[i j]!='>') //再把這裡改成印到這個符號之前的文字 { j ; } Memo2->Lines->Add(sz.SubString(i, j)); 這樣就行了 原來這樣簡單 很笨，那麼久才想出來 QQ" 感謝RaynorPao大大的指教 謝謝 ^^

再請問各位大大 AnsiString sz=Memo1->Text; AnsiString sz1="VALUE="; int i=sz.Pos(sz1); i =sz1.Length(); int j=0; while(sz[i j]!='>') { j ; } Memo2->Lines->Add(sz.SubString(i, j)); sl->Add("transkey=" (sz.SubString(i,j))); 這樣弄得話好像沒有把抓下來的值給加到transkey的後面 我試了" "跟" ="都不可以說 請問要怎樣把抓下來的值加到sl->Add("transkey=");的後面呢

不好意思   附上我的原始碼    void __fastcall TForm1::Button1Click(TObject *Sender) { int k; Memo1->Clear(); Memo2->Clear(); Memo3->Clear(); NMHTTP1->Get("http://140.123.21.5/Webpac2/msearch.dll/"); Memo1->Lines->Add(NMHTTP1->Body); AnsiString sz=Memo1->Text; //Memo1->Lines->Strings[k],"VALUE="; AnsiString sz1="VALUE"; int i=sz.Pos(sz1); i+=sz1.Length(); int j=0; while(sz[i+j]!='>') { j++; }    Memo2->Lines->Add(sz.SubString(i,j)); Memo2->Lines->Strings[k],'=';       TStringList *sl= new TStringList;    sl->Add("KEYWORD=");    sl->Add("SELECTKEY=TITLE");    sl->Add("MTYPE=");    sl->Add("SortType=TITLE");    sl->Add("TITLE=Advance Linux Programming");    sl->Add("AUTHOR=");    sl->Add("SUBJECT=");    sl->Add("PUBLISHER=");    sl->Add("ACCNO=");    sl->Add("SERIES=");    sl->Add("ISBN=");    sl->Add("ISSN=");    sl->Add("CODEN=");    sl->Add("ENG=");    sl->Add("SSNO=");    sl->Add("DEF1=");    sl->Add("DEF2=");    sl->Add("DEF3=");    sl->Add("transkey=" 'k'); sl->Add("TY=ie"); Memo3->Lines->Text=IdHTTP1->Post("http://140.123.21.5/Webpac2/msearch.dll/BROWES", sl ); } 這樣弄得話好像沒有把抓下來的值給加到transkey的後面 我試了" "跟" ="都不可以說 請問要怎樣把抓下來的值加到sl->Add("transkey=");的後面呢 謝謝 發表人 - hennessy 於 2004/11/30 20:03:26

貼錯 發表人 - hennessy 於 2004/11/30 19:52:22

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.