|
HTTqp
|
Дата: Четверг, 17.09.2015, 12:08 | Сообщение # 1
|
Частый гость
Зарегистрирован: 08.10.2014
Группа: Пользователи
Сообщений: 57
Статус: Offline
|
Подскажите как спарсить файл txt при помощи winapi Delphi. Пример, есть файл со следующими данными
Код
Nickname{ "d4rkzy" }
Pass { "hgfh456uh" }
url { "https://******.net/****.html" }
как получить строчку строчку url, а точнее https://******.net/****.html адрес? С использованием только Uses Windows;
|
| |
|
|
|
ramzeswr
|
Дата: Четверг, 17.09.2015, 17:52 | Сообщение # 2
|
Участник
Зарегистрирован: 17.04.2013
Группа: Пользователи
Сообщений: 61
Статус: Offline
|
function Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;
////////////
url:=Pars('url { "', TEXT, '" } ') |
| |
|
|
|
HTTqp
|
Дата: Четверг, 17.09.2015, 21:39 | Сообщение # 3
|
|
Частый гость
Зарегистрирован: 08.10.2014
Группа: Пользователи
Сообщений: 57
Статус: Offline
|
Цитата
function Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;
////////////
url:=Pars('url { "', TEXT, '" } ')
а как это выполнить с использобавние файла, то есть берется файл и парсится в нем нужная информация, при этом не загоняя его в memo и подобные компоненты?
|
| |
|
|
|
ramzeswr
|
Дата: Пятница, 18.09.2015, 12:55 | Сообщение # 4
|
|
Участник
Зарегистрирован: 17.04.2013
Группа: Пользователи
Сообщений: 61
Статус: Offline
|
Цитата HTTqp ( )
а как это выполнить с использобавние файла, то есть берется файл и парсится в нем нужная информация, при этом не загоняя его в memo и подобные компоненты?
Прочитать файл в переменную TEXT
|
| |
|
|
