Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
trest
0 / 0 / 0
Регистрация: 25.06.2011
Сообщений: 100
#1

Сохранить из Memo по 20 строк в каждый файл

25.10.2016, 17:33. Просмотров 266. Ответов 6
Метки нет (Все метки)

здравствуйте!

подскажите пожалуйста, есть memo в нем какое-то количество строк (всегда разное) например 110, необходимо сохранить данные из этого memo по 20 строк в файл.

спасибо

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.10.2016, 17:33
Ответы с готовыми решениями:

Сохранить файл из memo
Как сохранить текст из поля Memo в файл, используя системный диалог SaveDialog

Сохранить текст из memo в текстовый файл
Мне нужна текст каторий есть в мемо сохранить в txt файле. Как ето зделать:?

Сохранить содержимое Memo через SaveDialog в текстовый файл
как сохранить содержание memo через savedialog в текстовый файл *.txt

Сохранить в файл текст того Memo, что был в фокусе
Здравствуйте есть вопрос: на форме имееться 2 компонента скажем memo. Как...

Как сохранить в текстовый файл строки со второй по последнюю из memo?
Как сохранить в текстовый файл строки со второй по последнюю из memo? т.е. все,...

6
qwertehok
2201 / 2191 / 598
Регистрация: 29.08.2013
Сообщений: 14,629
25.10.2016, 17:48 #2
по 20 строк в разные файлы?
в текстовые?
строки по порядку?

Добавлено через 5 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sl:TStringList;
i,c:integer;
 
begin
sl:=TstringList.Create;
i:=0;
c:=1;
while memo1.lines.count>=20 begin
  sl.add(memo1.lines[i]);
  i:=c*(i+1);
  if i=20 then begin
    sl.saveToFile(inttostr(c)+'.txt');
    sl.clear;
    c:=c+1;
  end;
end;
 
sl.free;
end;
так?
не тестил

PS неправильно. последние хх строк останутся не выгруженные

Добавлено через 3 минуты
можно последние посчитать так
Delphi
1
2
for i:=Memo1.lines.Count-c*20 to Memo1.lines.Count-1 do sl.add(Memo1.lines[i])
sl.savetofile(inttostr(c+1)+'.txt');
это на 17 строку вставить
1
trest
0 / 0 / 0
Регистрация: 25.06.2011
Сообщений: 100
25.10.2016, 18:31  [ТС] #3
Цитата Сообщение от qwertehok Посмотреть сообщение
по 20 строк в разные файлы?
в текстовые?
строки по порядку?
по 20 строк в разные текстовые.
т.е. в первом будут строки с 0 по 19, во втором с 20 по 39 и тд. ну а в последнем что осталось)

Добавлено через 26 минут
с твоим кодом что-то не сложилось...
но натолкнул на правильную мысль) спасибоб
0
qwertehok
2201 / 2191 / 598
Регистрация: 29.08.2013
Сообщений: 14,629
25.10.2016, 19:49 #4
Цитата Сообщение от trest Посмотреть сообщение
с твоим кодом что-то не сложилось...
на коленке набросал
если не получится - пиши. завтра оттестирую
0
D1973
Модератор
3333 / 2381 / 1182
Регистрация: 21.01.2014
Сообщений: 9,828
Записей в блоге: 3
Завершенные тесты: 1
26.10.2016, 08:17 #5
Проверено
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var i, j, k : integer;
    L : TStringList;
begin
 L := TStringList.Create;
 k := 20; //количество строк в одном файле
 j := 1;
 for i:= 0 to Memo1.Lines.Count - 1 do
  begin
   L.Add(Memo1.Lines[i]);
   if (i + 1) mod k = 0
    then begin
          L.SaveToFile(Format('d:\tmp\File_%d.txt', [j]));
          L.Clear;
          inc(j);
          if (Memo1.Lines.Count - i - 1) < k then k := Memo1.Lines.Count - i - 1;
         end;
  end;
 L.Free;
end;
1
trest
0 / 0 / 0
Регистрация: 25.06.2011
Сообщений: 100
26.10.2016, 08:28  [ТС] #6
спасибо. сегодня гляну как этот вариант работает)
0
D1973
Модератор
3333 / 2381 / 1182
Регистрация: 21.01.2014
Сообщений: 9,828
Записей в блоге: 3
Завершенные тесты: 1
26.10.2016, 08:31 #7
trest, в строке 13 не забудь путь к создаваемым файлам на свой поправить...
0
26.10.2016, 08:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.10.2016, 08:31

Как сохранить содержимое окон memo и надписи на форме в один файл?
Пытался сохранить содержимое формы в виде таблицы, но получается нагромождение....

Memo, запись в файл определенных строк
В мемо выводятся результаты типа: 1223ds23564 --&gt;верно lo8888885 --&gt;не...

Создайте в программном режиме компонент Memo, введите в него несколько строк текста и выведите данный текст в текстовый файл.
помогите решить) Создайте в программном режиме компонент Memo, введите в него...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru