Среда, 13.11.2024, 07:52 Приветствую вас Гость | Группа "Гости" 
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024  
Парсинг txt файла
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
 
  • Страница 1 из 1
  • 1
Поиск:

delphicode.ru © 2008 - 2024 Хостинг от uCoz