Help:各位大大請問如何取得網頁原始檔中的IP地址字符串

可能說的不太清楚，這裡說明一下： 因為我取時用的是innertext所以僅是文本。 內容大致如下： XXXXXXXhttp://XX.XX.XX.XX#13http://XX.XX.XX.XX.XX#13http://XX.XX.XX.XX#13XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXx 我只要其中的三段http://後面的IP地址部分。 請大家幫我想想辦法,Thanks!

var
  i, iPos: integer;
  sSource, sTmp: string;
begin
  Memo1.Lines.LoadFromFile('文本檔');
  sSource := Memo1.Lines.Text;
  for i := 1 to 3 do begin
    iPos := Pos('http://', sSource);
    Delete(sSource, 1, iPos - 1);
    iPos := Pos('#13', sSource);
    ListBox1.Items.Add(Copy(sSource, 1, iPos - 1));
    Delete(sSource, 1, iPos);
  end;
end;

--- 將進酒 杯莫停

多謝你的回復! 我自已也寫了一個，不過比較的煩。現在沒時間晚上帖上去!

function searchword(start:string;S:string):string; var all_str:string; temp:pchar; i,x,y:integer; begin all_str:=S; temp:=''; temp:=StrPos(Pchar(all_str),Pchar('https://')); i:=strlen(temp); dec_str1:=LeftStr(temp,i-StrLen(StrScan(temp,#13))); temp:=StrScan(temp,#13); temp:=StrPos(Pchar(temp),Pchar('https://')); x:=strlen(temp); dec_str2:=LeftStr(temp,x-StrLen(StrScan(temp,#13))); temp:=StrScan(temp,#13); temp:=StrPos(Pchar(temp),Pchar('https://')); y:=strlen(temp); dec_str3:=LeftStr(temp,y-StrLen(StrScan(temp,#13))); end; function cuthttp(a:string):string; var aa:string; temp:pchar; begin aa:=a; result:=copy(aa,9,16); // Copy(String,index,count); end; 這個是我自己寫的真的很煩使用時調用了下面的就得到了IP. searchword('https://',ss); dec_str1:=cuthttp(dec_str1); dec_str2:=cuthttp(dec_str2); dec_str3:=cuthttp(dec_str3);

提問者您好:


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


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


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

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