VPF::Символ конца строки - Форум программистов

Alexeis

Дата 20.2.2007, 14:17 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Код


var
  f   : TFileStream;
  mem : TMemoryStream;
  list: TStringList;
begin
  f   := TFileStream.Create('My.txt', fmOpenReadWrite);
  mem := TMemoryStream.create;
  list:= TStringList.Create;

  f.Position := 777; //позиция начиная с которой читать
  mem.copyFrom(f, 999); //999 байт

  List.LoadFromStream(mem);

  mem.free;
  f.Free;
end;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

MacTep

Дата 20.2.2007, 14:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

Ага, замечательно. И пример хороший. Только я не знаю позицию, с которой читать. smile

и сколько байт читать, тоже не знаю. smile

Я в обычном файле место это находил при помощи просмотра каждой строки. А тут как?

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

aktuba

Дата 20.2.2007, 14:40 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Если у тебя StringList формируется правильно, т.е. каждая запись в отдельной строке, то сделай так:

Код


Memo1.Lines.Add:=sl.Strings[ComboBox1.ItemIndex*3+2];

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

MacTep

Дата 20.2.2007, 14:45 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

aktuba, это мой код! Ты что хотел эти сказать??? smile

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

aktuba

Дата 20.2.2007, 14:46 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Цитата

aktuba, это мой код! Ты что хотел эти сказать???

Разве? Сравни...

P.S: Виноват. Хотел так написать:

Код


Memo1.Lines.Add(sl.Strings[ComboBox1.ItemIndex*3+2]);

Это сообщение отредактировал(а) aktuba - 20.2.2007, 14:48

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

Sunvas

Дата 20.2.2007, 15:59 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

MacTep, возьми за основу следующий код:

Код


memo1.Lines.Delimiter:=' ';
memo1.Lines.DelimitedText:='1 2 3 4 5';

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

W4FhLF

Дата 20.2.2007, 16:20 (ссылка)

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

Загрузка ...

found myself

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

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

Не знаю, если я правильно понял, то достаточно в твоём же примере исправить одну строку:

Код


     while not eof(f) do
        begin
          Readln(f,s);
          s:=copy(s,4,length(s)-6);
          sl.Add(s);
          Readln(f,s);
          sl.Add(s);
          // отсюда начинается то, что не работает
          text:='';
          while s<>'***end***' do
            begin
              Readln(f,s);
              if s='***end***' then
                break;
              text:=text+#13#10+s;
            end;
          sl.Add(text);
        end;

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

"Бог умер" © Ницше
"Ницше умер" © Бог

MetalFan

Дата 20.2.2007, 16:34 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

W4FhLF, ...или использовать вместо #13#10 делфевую константу sLineBreak ;)

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

There are always someone smarter than you...

Alexeis

Дата 20.2.2007, 16:50 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(MacTep @ 20.2.2007, 14:20

)

Я в обычном файле место это находил при помощи просмотра каждой строки. А тут как?

Нужно просто сразу использовать развитые средства делфи, а не возвращаться к паскалю. Если файл текстовый, то грузить его целиком в стринглист и искать в нем все. Гибрид тут неуместен.

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

Sunvas

Дата 20.2.2007, 18:34 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Alexeis @ 20.2.2007, 16:50

)

Если файл текстовый, то грузить его целиком в стринглист и искать в нем все.

А если этот текстовый файл более Эб?

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Alexeis

Дата 20.2.2007, 19:07 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(Sunvas @ 20.2.2007, 18:34

)

А если этот текстовый файл более Эб?

Зачем так много? 1Гб уже перегруз. Нестандартные задачи решаются нестандартными методами. Кстати как раз паскалевский метод и имеет ограничение на 4Гб. Да и, вообще, где найти такой носитель, чтобы разместить такой файл. А если разместить, то зачем же одним файлом? Кроме того работа с памятью имеет такое приемущество как возможность перехода на файлы отображаемые в память. Доступ к файлу, тем более побайтово на чтение и запись весьма медленный.

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

Sunvas

Дата 20.2.2007, 19:13 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Alexeis @ 20.2.2007, 19:07

)

Зачем так много?

Эт я навскидку сказал. smile

Просто всегда было интересно как работать с таакими большими файлами, ведь загрузки их в память едва-ли какой компьютер выдержит. Другое дело, что пока еще нет носителей позволяющих хранить настолько большие объемы. Ну а если взять реальный объем - 100Гб. Как тогда работать с таким файлом? Не загружать же его в память, или как?

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

MacTep

Дата 20.2.2007, 19:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

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

W4FhLF, MetalFan, мда, ребят. Я что-то совсем прогнал. Всего-то 6 символов недописал. smile

Реально горе от ума. Спасибо что наставили на путь истинный. smile

Всем остальным спасибо за участие в обсуждении. Реально понял, что нужно пересмотреть алгоритм. smile

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

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

W4FhLF

Дата 21.2.2007, 13:15 (ссылка)

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

Загрузка ...

found myself

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

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

Цитата(Sunvas @ 20.2.2007, 19:13

)

Эт я навскидку сказал. Просто всегда было интересно как работать с таакими большими файлами, ведь загрузки их в память едва-ли какой компьютер выдержит. Другое дело, что пока еще нет носителей позволяющих хранить настолько большие объемы. Ну а если взять реальный объем - 100Гб. Как тогда работать с таким файлом? Не загружать же его в память, или как?

Почему нет? NTFS позволяет хранить файлы и 100 гб и даже больше(теоретически до 16 экзабайт или 16 000 000 000 000 000 000 байт). Да и 1Гб для файла не такой уж большой объём, когда речь заходит, например, о БД smile

Работа с такими файлами стандартными средствами не может быть произведена. Стринглист грузит файл целиком в оперативную память, поэтому считай больше ~50 метров лучше не грузить. С Memory Mapped Files дело обстоит получше, ибо ты работаешь с файлом в памяти, но на самом деле он в свопе, однако размер свопа тоже не резиновый, я больше, чем 150Мб с помощью MMF не открывал, при этом размере с гигом оперативки и Athlon3500+ программа работала вполне сносно.
Когда речь о гигабайтах, то тут решений не так много, а точнее одно(которое кстати применяется во всех современных программах для работы с огромными файлами): поблочное чтение/запись. Читать/писать блоками можно и с помощзью стандартных API и посредствам прямого доступа, т.е. посекторное чтение/запись.

Это сообщение отредактировал(а) W4FhLF - 21.2.2007, 13:21

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

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