Парсинг txt (WINAPI)

[HTTqp]

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

[Аватар]

Так прямо WINAPI? Читать файл CreateFile, ReadFile, CloseHandle. Работа с текстовыми строками - ну допустим Shell String Handling Functions. Ток не видел еще, чтобы делфисты парсили текст чисто винайпишными средствами

[Alex11223]

Причем тут винапи? В ВинАпи есть функция для открытия файла (CreateFile с соотв. флагами) и для чтения байт из него (ReadFile).

В Дельфи есть гораздо более удобные обертки для чтения текста из файла.

Ну а каким уж алгоритмом доставать оттуда данные вам надо придумывать самому, волшебной функции для этого нигде нет. Если файл какого-то определенного текстового формата (XML, JSON, ini, ...), то для облегчения их парсинга есть библиотеки, в т.ч. и в стандартных Дельфи.

[Stilet]

HTTqp

А как файл выглядит?

[HTTqp]

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

А как файл выглядит?

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

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.

[Stilet]

Похоже тебе нужно что-то типа:

var s,s2:ansistring;
      h:THandle; z,i,b,e:Cardinal;
begin
 h:=CreateFile('d:\1\q.txt', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
 if h=0 then exit;
 z:=GetFileSize(h,@i);
 SetLength(s,z);
 ReadFile(h, s[1], Length(s), i, nil);
 //CloseHandle(h);
 b:=1;
 while b<>0 do begin
   b:=pos(#13#10,s); s2:=copy(s,1,b); delete(s,1,b+1);
   s2:=StringReplace(s2,' ','',[rfReplaceAll]);
 end;
 SetLength(s,0);
end;

Но почему WinAPI действиетльно...

[Alex11223]

Зачем париться с WinApi, когда в Дельфи есть либо TStringList с LoadFromFile, либо TFileStream?

А про данные, ну используйте Pos для нахождения Url1 и потом копируйте от после = и до конца строки. И Trim.

[HTTqp]

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

Похоже тебе нужно что-то типа:

var s,s2:ansistring;
      h:THandle; z,i,b,e:Cardinal;
begin
 h:=CreateFile('d:\1\q.txt', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
 if h=0 then exit;
 z:=GetFileSize(h,@i);
 SetLength(s,z);
 ReadFile(h, s[1], Length(s), i, nil);
 //CloseHandle(h);
 b:=1;
 while b<>0 do begin
   b:=pos(#13#10,s); s2:=copy(s,1,b); delete(s,1,b+1);
   s2:=StringReplace(s2,' ','',[rfReplaceAll]);
 end;
 SetLength(s,0);
end;

Но почему WinAPI действиетльно...

что то не понимаю что то не так, как выдернуть url1?

Winapi? потому что учусь на 4 курсе, препод поклоник полного описания всего руками, формы, процедур обработки сообщений и т.п.

[Alex11223]

что то не понимаю что то не так, как выдернуть url1?

Может лучше сразу процедуру MakeEverythingOK()?

Это чтение содержимого файла, вроде по строкам. Данные сами доставайте как выше написано.

[Stilet]

Данные сами доставайте как выше написано.

Дак я ему достал данные
Просто потом проверять

if copy(s2,1,4)='url1' then чет делаем.

препод поклоник полного описания всего руками

Тогда мой пример можешь выкинуть фтопку, он не подойдет.