VPF::считать строку из файла и отпарсить

Archon7th

Дата 22.2.2006, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 22.4.2005
Где: Витебск Белорусия

Репутация: нет
Всего: нет

1. кто как читает строки ?
интерисуют методы и ваше мнение по быстродействию

предположим я делаю так, читаю побитно методом seek и закрываю строку если бит = chr(10)|chr(13)
есть еще предложения как это можно делать ?
есть предложения как запрос строки можно делать по индексу ?

2. как определить количество тестовых строк в файле ?
интерисуют как можно более быстрые методы

3. кто как парсит полученную строку ?
например в строке находяться пречисленные через пробел слова (если первый символ строки пробел, то первый элемент равен 0)
нужно делать запрос по № слова

--------------------

CPU not found. Running software emulation.

ne0n

Дата 22.2.2006, 13:17 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: нет
Всего: 11

Один пост - один вопрос. могу ответить на второй когда приду домой(извините за коломбур)

--------------------

http://sa-sec.org
как я вам? smile

Denic

Дата 22.2.2006, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 7.10.2005

Репутация: нет
Всего: нет

1
Строки читаются стандартно read или readln
2
Процедура FileSize возвращает размер файла, а если нужно число строк то я думаю где-то так

Код


repeat
readln(f, a);
if Length(a)<>0 then 
  str := true;
until str = false;

Только я сам незнаю будет это работать smile

ne0n

Дата 22.2.2006, 13:41 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: нет
Всего: 11

Насчет третьего вопроса смотри этот топик http://forum.vingrad.ru/index.php?showtopic=68690&hl=

--------------------

http://sa-sec.org
как я вам? smile

Akella

Дата 22.2.2006, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 3
Всего: 329

Код


sl:TStringGrid;
line:String;
i:integer;
...

sl := TStringGrid.Create;
sl.LoadFromFile('c:\11.txt');

//sl.Count - кол-во строк в файле
For i := 0 to sl.Count do
begin
  line := sl[i];
  Parse(Line);//обрабатываем в цикле каждую строку
end;
FreeAndNil(sl);

можно добавить try finally end

обрабатываем слова

Код


words:TStringGrid;
line:String;
i:integer;
...

words := TStringGrid.Create;
words.text :=   StringReplace(line,' ',#13,[rfReplaceAll]);//заменяем пробелы на символы концы строки

//words.Count - кол-во слов
For i := 0 to words.Count do
begin
  ShowMessage(words[i]);//показываем по одному слову
end;
FreeAndNil(words);

можно добавить try finally end

я думаю, что принцип понятен

Это сообщение отредактировал(а) Akella - 22.2.2006, 13:50

ne0n

Дата 22.2.2006, 16:54 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: нет
Всего: 11

Вот еще один способ:

Код


function LinesCount(const Filename: string): Integer;
var
  HFile: THandle;
  FSize, WasRead, i: Cardinal;
  Buf: array[1..4096] of byte;
begin
  Result := 0;
  HFile := CreateFile(Pchar(FileName), GENERIC_READ, FILE_SHARE_READ, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if HFile <> INVALID_HANDLE_VALUE then
  begin
    FSize := GetFileSize(HFile, nil);
    if FSize > 0 then
    begin
      Inc(Result);
      ReadFile(HFile, Buf, 4096, WasRead, nil);
      repeat
        for i := WasRead downto 1 do
          if Buf[i] = 10 then
            Inc(Result);
        ReadFile(HFile, Buf, 4096, WasRead, nil);
      until WasRead = 0;
    end;
  end;
  CloseHandle(HFile);
end;

--------------------

http://sa-sec.org
как я вам? smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »