Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как сделать цикл сохранения файлов, с разбивкой в каждый файл по 200 строк 
:(
    Опции темы
Serhik_z
  Дата 6.4.2005, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет
Как сделать цикл сохранения файлов
с разбивкой в каждый файл по 200 строк
из Memo с большим колличеством строк 8500
0001.txt следующий 0002.txt и тд.

Код

procedure TForm2.Button2Click(Sender: TObject);
var
  i: Integer;
  s: Integer;
  b: Real;
begin
 b:= StrToInt(Edit1.Text); // по 200 строк
 for i:= 0001 to s do // от номера файла
 s:= s + 1; // в следующий файл
 b:= b + b;// следующие 200 строк
 s:= Form1.Memo1.Lines.SaveToFile('C:\0001.txt');
end;


smile smile smile
PM MAIL   Вверх
_hunter
Дата 6.4.2005, 15:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
а в чем проблема? прочитать определенное число строк?
создаеш объект типа TStringList и в цикле добавляеш ему Memo->Lines[i]...


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Serhik_z
Дата 6.4.2005, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет
Не правильный код.
Компилятор выдает ошибку.
PM MAIL   Вверх
_hunter
Дата 6.4.2005, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
ну это то понятно...
SaveToFile() ничего не возвращает. поэтому пытаться приравнять ее ииту...
причем сохраняет она все строки.
да и код какой-то странный...
цикл только одну строку затарагивает и изменяет свой же верхний порог... зачем?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Serhik_z
Дата 6.4.2005, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет
Подскажите как правильно написать цикл сохранения файлов.
smile smile smile
PM MAIL   Вверх
_hunter
Дата 6.4.2005, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
делиш число строк в Memo нацело на 200 ( или сколько нужно )

это первый цикл
в нем создаеш TStringList и вторым циклом построчно читаеш строки из Memo ( со смещения значение первого цикла* 200 ) и добавляеш их к списку
потом пишеш этот список в файл.
( не забываем про остаток )


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Serhik_z
Дата 6.4.2005, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет
А можно пример...
smile
PM MAIL   Вверх
Rennigth
Дата 6.4.2005, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 49
Всего: 76
что нибудь вроде этого
Код

function SaveStringsToFiles(const AList: TStrings; ACountLines: Integer): Boolean;
var
  i, j: Integer;
  lList: TStrings;
  lCountFiles: Integer;
begin
  if Assigned(AList) and (ACountLines > 0) and (AList.Count > ACountLines) then
  begin
    lList := TStringList.Create;
    lCountFiles := Ceil((AList.Count)/ACountLines);
    for i := 0 to lCountFiles - 1 do
    begin
      lList.Clear;
      for j := 1 to ACountLines do
        lList.Add(AList[i * j]);
      lList.SaveToFile('c:\TestFile'+ IntToStr(i) + '.txt');
    end;
    lList.Free;
  end;
end;


если что доправишь, негде проверить
Добавлено @ 18:16
вызов
SaveStringsToFiles(Memo1.Lines, 200);


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
Poseidon
Дата 6.4.2005, 19:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Цитата(Rennigth @ 6.4.2005, 18:14)
если что доправишь, негде проверить
Я доправлю. В коде ошибка. Точнее не в самом коде (он то компилируется, если не забыть указать Math. Ведь именно там функция Ceil), а в алгоритме. В чем ошибка не разбирался, но возвращает совсем не то, что ожидается, особенно в первый файл (проверишь, когда будет возможность): Вот моя версия этой функции:
Код
function SaveStringsToFiles(const AList: TStrings; ACountLines: Integer): Boolean;
var
i, x: integer;
List: TStrings;
begin
List:= TStringList.Create;
x:= 0;
for i:= 0 to Alist.Count-1 do
  begin
  List.Add(AList.Strings[i]);
  if (i mod ACountLines = 0)and(i<>0)
  then
    begin
    List.SaveToFile('C:\000'+IntToStr(x)+'.txt');
    x:= x+1;
    List.Clear;
    end;
  end;
List.SaveToFile('C:\000'+IntToStr(x)+'.txt');
List.Free;
Result:= True;
end;
Вызывается так же:
Код
SaveStringsToFiles(Memo1.Lines, 200);




--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0772 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.