Сохранение файлов

@ebable^ · Регистрация: 23.06.2011

Студворк — интернет-сервис помощи студентам

Все добрый день =) Скажите, как правильно использовать memo и SaveToFile, что бы взятый текст из memo, можно было поделить на определенный куски и сохранить в несколько файлов?

@arada · 23.06.2011, 13:53

ebable^, создаёте объект типа TStringList, скидываете туда нужные фрагменты текста по очереди и сохраняете (у StringList, как и у Memo, есть такой же метод SaveToFile).

@ebable^ · 23.06.2011, 14:05 **[ТС]**

В принципе я уже реализовал через мемо, методом нахождения фрагмента медлу определенными знаками и его выделением. Вот так

C
1
2
3
4
5
6
Memo2->SetFocus();
AnsiString Word1 = "--> ";
AnsiString Word2 = "</html>";
AnsiString SelText = Memo2->Lines->Text.SubString(Memo2->Lines->Text.AnsiPos(Word1)+2,Memo2->Lines->Text.AnsiPos(Word2)-Memo2->Lines->Text.AnsiPos(Word1)-1);
Memo2->SelStart = Memo2->Lines->Text.AnsiPos(SelText)-1;
Memo2->SelLength = SelText.Length();

Но таких фрагментов у меня может быть 5 и 10 а ищет оно только первый, как сделать что б при нажатии кнопки после первого поиска оно перешло ко второму фрагменту?

@QVO · 23.06.2011, 14:14

В принципе я уже реализовал через мемо

@ebable^ · 23.06.2011, 14:16 **[ТС]**

Так там тоже спрашивают как сделать так что бы при повторном клике оно продолжало искать далее, если теги или там где мы ищем текст, повторяются

@QVO · 23.06.2011, 14:18

ebable^, вам те тэги нужны? Вариант их сносить, потом обновлять мэмо и снова искать... и так до последнего тэга.
В точности опишите вашу задачу.

@ebable^ · 23.06.2011, 14:54 **[ТС]**

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

ebable^, вам те тэги нужны? Вариант их сносить, потом обновлять мэмо и снова искать... и так до последнего тэга.

Да, нужны. Так как потом я сохраняю файл с расширением html. Без них не будет работать страница. Мне нужно конкретно между <html> </html>. Но в этой куче текста, может быть несколько <html> </html>. Соответственно в итоге должно получится две, три, пять страниц. Там просто весь текст состоит из нескольких страниц html. Помогите плз (

Добавлено через 6 минут
Или расскажите как удалить выделенный текст, который получился, в принципе тоже вариант!

Добавлено через 16 минут
Нет удаление текста не выход, всеравно нужно както организовать что бы оно сохраняло выделенный текст, а я не могу понять как описать это действие - сохранение выделенного текста.

Добавлено через 9 минут
Очень прошу, помогите...

@arada · 23.06.2011, 15:10

ebable^, а если замутить что-нибудь вроде этого:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
  AnsiString SourceStr = Memo2->Text;
  TStringList* StrL = new TStringList;
  int start, end, i=0;
 
  while ((start = SourceStr.Pos("a")) && (end = SourceStr.Pos("b")) && (end > start))
  {
    StrL->Clear();
    StrL->Text = SourceStr.SubString(start, end-start+1);
    StrL->SaveToFile("D:\\temp\\"+IntToStr(i++) + ".txt");
    SourceStr = SourceStr.Delete(1,end-start+1);
  }
 
  delete StrL;

@ebable^ · 23.06.2011, 15:26 **[ТС]**

Да оно сохранило выделенный текст, но оно опять же сохранило только первый выделенный а второй не сохраняет. Создало 1 файл с названием 0.

@arada · 23.06.2011, 15:30

Кстати, если версия билдера старше 6-й версии, можно использовать PosEx.

Добавлено через 2 минуты
Второй не сохраняет? У меня аккуратно сохранилось четыре файла.

@ebable^ · 23.06.2011, 15:43 **[ТС]**

Сохранило текст из мемо? Не знаю... у меня отцепило первый кусочек из 3, сохранило и все.

@arada · 23.06.2011, 15:56

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  AnsiString SourceStr = Memo2->Text;
  TStringList* StrL = new TStringList;
  int start, end, i=0;
 
  while ((start = SourceStr.Pos("a")) && (end = SourceStr.Pos("b")))
  {
    if (end > start)
    {
      StrL->Clear();
      StrL->Text = SourceStr.SubString(start, end-start+1);
      StrL->SaveToFile("D:\\temp\\"+IntToStr(i++) + ".txt");
      SourceStr = SourceStr.Delete(1,end-start+1);
    }
    else break;
  }
 
  delete StrL;

?

Новые блоги и статьи Все статьи Все блоги /
Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Programma_Boinc 10.04.2026 Видеокарта простаивает ночами? Вот 4 проекта, которые загрузят её наукой Если на Windows стоит дискретная NVIDIA или AMD — можно отдать её вычислительную мощность реальным исследованиям. . . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@ebable^ 0 / 0 / 0 Регистрация: 23.06.2011 Сообщений: 6

	Сохранение файлов 23.06.2011, 11:14. Показов 1410. Ответов 11 Метки нет (Все метки) Все добрый день =) Скажите, как правильно использовать memo и SaveToFile, что бы взятый текст из memo, можно было поделить на определенный куски и сохранить в несколько файлов? 0

@arada 27 / 27 / 2 Регистрация: 25.01.2011 Сообщений: 45
	23.06.2011, 13:53
	ebable^, создаёте объект типа TStringList, скидываете туда нужные фрагменты текста по очереди и сохраняете (у StringList, как и у Memo, есть такой же метод SaveToFile). 0

@QVO 652 / 462 / 80 Регистрация: 26.10.2010 Сообщений: 1,263 Записей в блоге: 4
	23.06.2011, 14:14
	В принципе я уже реализовал через мемо 0

@ebable^ 0 / 0 / 0 Регистрация: 23.06.2011 Сообщений: 6
	23.06.2011, 14:16 [ТС]
	Так там тоже спрашивают как сделать так что бы при повторном клике оно продолжало искать далее, если теги или там где мы ищем текст, повторяются 0

@QVO 652 / 462 / 80 Регистрация: 26.10.2010 Сообщений: 1,263 Записей в блоге: 4
	23.06.2011, 14:18
	ebable^, вам те тэги нужны? Вариант их сносить, потом обновлять мэмо и снова искать... и так до последнего тэга. В точности опишите вашу задачу. 0

@ebable^ 0 / 0 / 0 Регистрация: 23.06.2011 Сообщений: 6
	23.06.2011, 15:26 [ТС]
	Да оно сохранило выделенный текст, но оно опять же сохранило только первый выделенный а второй не сохраняет. Создало 1 файл с названием 0. 0

@arada 27 / 27 / 2 Регистрация: 25.01.2011 Сообщений: 45
	23.06.2011, 15:30
	Кстати, если версия билдера старше 6-й версии, можно использовать PosEx. Добавлено через 2 минуты Второй не сохраняет? У меня аккуратно сохранилось четыре файла. 0

@ebable^ 0 / 0 / 0 Регистрация: 23.06.2011 Сообщений: 6
	23.06.2011, 15:43 [ТС]
	Сохранило текст из мемо? Не знаю... у меня отцепило первый кусочек из 3, сохранило и все. 0