[HTTqp]

Подскажите как осуществить парсинг в txt файле на winapi. Необходимо выдернуть нужные данные из txt файла и передать в переменную.

[NumLock]

также как и на VCL

[HTTqp]

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

также как и на VCL

Вообщем поискав нашел вот такой код:

function ReadFirstLine(filename : String) : Boolean;
var
dFile, p : Integer;
buff : Pointer;
read : Cardinal;
buf : array[0..1023] of Char; //Объявляем буфер, в который будем производить чтение
str : String;
begin
Result := false;
dFile := CreateFile(PChar(filename), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);

if (dFile <> INVALID_HANDLE_VALUE) then begin
Str := "";
repeat
ReadFile(dFile, Buf, SizeOf(buf), read, nil);
Str := Str + Copy(buf, 1, read);
p := Pos(#13#10, Str);
until (p > 0) or (SizeOf(buf) <> read); //Если дошли до конца файла или найден признак конца строки, выходим

ShowMessage(Format("The first line of the file "%s" is the following: "#13#10#13#10"%s", [filename, Str]));
Result := true;
end;

CloseHandle(dFile);
end;

Текстовый файл выглядит вот так:

# update link:
#
# Url1 = "http://**********.ru"

# send link:
# Url1 = "http://**********.ru"

Мне нужно скопировать адрес указанный url1 иногда url2, без ковычек, причем количество пробелов не известно. Может один, а может 2.

[Bargest]

Тупейший вариант:
1) Зачитываем весь файл в буфер
2) Заменяем все #13#10 на 00 00 и сохраняем смещение концов этой фигни в динамический массивчик
3) Ставим указатели-PChar-ы на эти смещения
4) Сохраняем в массив строк, делфа умеет конвертировать pchar-ы в строки.
Получили массив строк. Далее обычным Pos со строкой находим урлы, копируем, делаем trim, убираем кавычки (если есть).