|
#1
|
|||
|
|||
чтение из файла
привет всем
возникла такая проблема: например такой текст: 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. помогите плиз Последний раз редактировалось ghetto, 21.04.2013 в 20:24. |
#2
|
||||
|
||||
Читаешь строку, через pos находишь кавычки и конвертируешь через val.
jmp $ ; Happy End! The Cake Is A Lie. |
#3
|
|||
|
|||
можешь пример написать я не пойму как конвертировать
|
#4
|
||||
|
||||
Цитата:
Код:
... 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; ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 21.04.2013 в 23:46. |
#5
|
|||
|
|||
спасибо большое
|
#6
|
|||
|
|||
а как если не знаешь какой по счету символ?
|
#7
|
||||
|
||||
Цитата:
Код:
... s:= Copy(s, pos('="', s)+2, Length(s)); ... Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
ghetto (22.04.2013)
|
#8
|
|||
|
|||
вот пример:
<trkpt lat="52.483373880386353" lon="85.151697993278503"> нужно считать (52.483373880386353) но после и до может быть n количество символов как тогда? |
#9
|
||||
|
||||
РегЭкспы
Ссылка на книгу в подписи. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#10
|
|||
|
|||
вы дайте мне пожалуйста пример
мне очень срочно надо!! |
#11
|
|||
|
|||
Код:
s:= Copy(s, pos('lat="', s)+5, pos('"',copy(s, pos('lat="', s)+5,length(s)))-1); Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
Этот пользователь сказал Спасибо Black Raider за это полезное сообщение: | ||
ghetto (22.04.2013)
|