読み込みについて

解決

HY57 2007-12-29 08:30:49 No: 29113 IP: 192.*.*.*

おはようございます。  ＨＹ57です。
以下のデータがファイル名：JXC.TXTに存在しており、
ch  の後の " 以降の文字  730 Ax-9 +1185 読み込みたいのですが
if Pos('ch',S)=1 then begin
          Split('"',S,SL1);
          ch:=Copy(SL1[1],0,255);

+1185  しか読み込みが出来ません。
730 Ax-9 +1185  を順番に読み込み方法を教えてください。お願い致します。

hp1ch
ch -80.3838835944219 -79.7306044428698  "730
hp2ch
ch -114.133883594425 -279.734610611429  "Ax-9
hp3ch
ch -149.939283022914 -478.301069120502  "+1185

編集削除

KHE00221 2007-12-29 09:32:21 No: 29114 IP: 192.*.*.*

こんな感じ？

var
    I,J : Integer;
    S : String;
begin
    for I:=0 to Memo1.Lines.Count -1 do
    begin
      S := Memo1.Lines[I];
      J := Pos('ch',S);
      if J<>0 then
      begin
        J := Pos('"',S);
        if J<>0 then
        begin
          Memo2.Lines.Add(Copy(S,J+1,Length(S)-J));
        end;
      end;
    end;
end;

編集削除

HY57 2007-12-31 18:14:15 No: 29115 IP: 192.*.*.*

KHE00221さん、ご回答ありがとうございました。
返事が、遅くなって申し訳有りません。
今後も宜しくお願いします。

編集削除