[ghetto]

привет всем
возникла такая проблема:
например такой текст:
lon="54.897645"

думал так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
p:integer;
e:integer;
s:string;
a:textfile;

begin
assignfile(a,'D:\test.gpx');
reset(a);
while not EOF(a) do
begin
readln(a,s);
if Pos('lon="', s) > 0 then
begin
read(a,p);

end;
end;
end;
end.

нужно считать в переменную цифры в ковычках
помогите плиз

[Bargest]

Читаешь строку, через pos находишь кавычки и конвертируешь через val.

[ghetto]

можешь пример написать я не пойму как конвертировать

[Alegun]

Сообщение от ghetto

можешь пример написать...

Примерно так

Код:

...

assignfile(a,'D:\test.gpx');
reset(a);
while not EOF(a) do
begin
readln(a,s);
if Pos('lon="', s) > 0 then
begin
SetLength(s, Length(s)-1);
s:= Copy(s, 6, Length(s));
end;

...

[ghetto]

спасибо большое

[ghetto]

а как если не знаешь какой по счету символ?

[Alegun]

Сообщение от ghetto

а как если не знаешь какой по счету символ?

Код:

...
s:= Copy(s, pos('="', s)+2, Length(s));
...

[ghetto]

вот пример:
<trkpt lat="52.483373880386353" lon="85.151697993278503">
нужно считать (52.483373880386353) но после и до может быть n количество символов
как тогда?

[M.A.D.M.A.N.]

РегЭкспы
Ссылка на книгу в подписи.

[ghetto]

вы дайте мне пожалуйста пример
мне очень срочно надо!!

[Black Raider]

Код:

 s:= Copy(s, pos('lat="', s)+5, pos('"',copy(s, pos('lat="', s)+5,length(s)))-1);