Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
6 / 6 / 2
Регистрация: 22.10.2011
Сообщений: 164
1

И опять поиск в тексте

23.12.2013, 19:28. Показов 1207. Ответов 1
Метки нет (Все метки)

Есть файл: test.txt
В файле есть два слова: Слово1 и Слово2

1) Нужно сохранить в другой файл текст между этими словами
2) Нужно сохранить в другой файл текст после Слово1 до конца документа
3) Нужно сохранить в другой файл текст после Слово1 до конца строки в которой это слово

Я запутался ((
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2013, 19:28
Ответы с готовыми решениями:

Опять про поиск в ListBox
В листбокс заносятся пути к папкам. Предварительно надо проверить, нету ли уже такого пути в...

Опять про поиск файлов
Всем привет. Скажите пожалуйста. У меня есть поиск файлов для вывода ссылок на страницы. Разбито...

Опять про поиск в VBA
Здравствуйте! Помогите чайнику) Вопрос в следующем, есть книга Excel в которой для простоты поиска...

Поиск в тексте DOC-файлов последовательностей символов по шаблону и поиск найденных в TXT-файле (с логом)
Уважаемые программисты! Очень нужен bat-файл или скрипт, который решает такую задачу: ...

__________________

Записывайтесь на профессиональные курсы C++ разработчиков
1
случайный прохожий
1503 / 1000 / 373
Регистрация: 20.07.2013
Сообщений: 2,900
23.12.2013, 21:19 2
Лучший ответ Сообщение было отмечено magistr011 как решение

Решение

Исходный файл test.txt - в папке с ехе-шником (как и результаты)
1) test1.txt
2) test2.txt
3) test3.txt
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
  String fname = "test.txt", word1 = "Слово1", word2 = "Слово2";
  int i, j, k, pos, pos2;
  if (FileExists(fname))
    Memo1->Lines->LoadFromFile(fname);
 
  for (i = 0; i < Memo1->Lines->Count; i++)
  {
    pos = Memo1->Lines->Strings[i].Pos(word1);
    if (pos)
      break;
  }
  for (j = 0; j < Memo1->Lines->Count; j++)
  {
    pos2 = Memo1->Lines->Strings[j].Pos(word2);
    if (pos2)
      break;
  }
 
  if (pos > 0)
  {
    Memo2->Text = RightStr(Memo1->Lines->Strings[i], Memo1->Lines->Strings[i].Length()+1-word1.Length()-pos);
    Memo2->Lines->SaveToFile("test3.txt");
  }
 
  for (k = i+1; k < j; k++)
    Memo2->Lines->Add(Memo1->Lines->Strings[k]);
  if (pos2 > 0)
  {
    Memo2->Lines->Add(LeftStr(Memo1->Lines->Strings[j], pos2-1));
    Memo2->Lines->SaveToFile("test1.txt");
    Memo2->Lines->Delete(Memo2->Lines->Count-1);
  }
 
  for (k = j; k < Memo1->Lines->Count; k++)
    Memo2->Lines->Add(Memo1->Lines->Strings[k]);
  Memo2->Lines->SaveToFile("test2.txt");
2
Миниатюры
И опять поиск в тексте  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2013, 21:19

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

Опять MDI и опять нет активной формы
В общем, перед тем, как налетать на меня за эту тему, скажу, что я потратил более 6 часов на...

Опять БАН опять Яндекс...
Вообщем ситуация такая, был сайт, написаный на дримвевере, отлично индексируемый и имеющий 400-500...

Поиск в тексте
Доброго времени суток уважаемые форумчане !!! Подскажите как на питоне сделать скрипт задача...

Поиск в тексте.
надо отделить числы вместе знаками... написал эту, но не помогло procedure...


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

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

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