Удалить буквы из строки до и после символа

@denvers2019 · Регистрация: 01.02.2019

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

В текстовом файле список строк

User1 + User2 = 250 s\c
User3 + User4 = 228 s\c
User5 + User6 = 214 s\c

Вопрос \ который интересует:

Два варианта:
Как удалить из текстового файла, указанные в Memo, буквы или слова до знака "="
Как удалить из текстового файла, указанные в Memo, буквы или слова после знака "="

Мой код делает удаление по всей строке:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
Files_1,Files_2:TextFile;
s:string;
dl: TStringList;
i: integer;
begin
\\\\\\\\\\\\\ В цикле берутся (слова или буквы которые нужно удалить) из memo12
dl := TStringList.Create;
for i := 0 to Memo12.Lines.Count - 1 do
dl.Add(Memo12.Lines[i]);
 
\\\\\\\\\\\\\\\\
 
while not Eof(Files_1) do begin
      Readln(Files_1, s);
 
   // Тут проверяю строку целиком [Вот как удалять из строки до символа '=' и после символа '=']
      for i := 0 to dl.Count - 1 do begin
     s := StringReplace(s, dl[i], '', [rfReplaceAll, rfIgnoreCase]);
      end;
 
        Writeln(Files_2, s);
    end;

Как вариант, можно разделить строку на две по знаку =, потом в каждой полученной строке удалить то, что нужно, а потом почищенные строки склеить снова, не забыв знак = между ними. Но это очень неудобно.

Подскажите более правильный вариант ?

Verevkin · 02.02.2019, 13:47

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

Arcor, Все же просто без лишних алгоритмов

Ты только запутал чувака. Перестань.
Он нам нахрен не нужон, ini-файл ваш! ©

@Arcor · 02.02.2019, 13:49

Не по теме:

а если я буду писать математический анализатор и там будет "=", тоже через ини файл?)

@920403 · 02.02.2019, 13:50

Verevkin, Вероятно мы на разных языках говорим. Ему же требуется операция именно с TXT файлом. Ну допустим сделали все колдовство в TStringList но по любому ему придется сохранять результат в TXT файле, и он по любому будет полностью перезаписан при любом изменении файл TXT полностью будет перезаписан из за 1 строчки или буквы.

@denvers2019 · 02.02.2019, 13:51 **[ТС]**

Arcor, Verevkin, Спасибо что стараетесь мне помочь. Вот теперь я конкретно запутался из за этих INI настроек. Голова идет оборотом....

.

@Arcor · 02.02.2019, 13:59

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

Verevkin, Вероятно мы на разных языках говорим. Ему же требуется операция именно с TXT файлом. Ну допустим сделали все колдовство в TStringList но по любому ему придется сохранять результат в TXT файле, и он по любому будет полностью перезаписан при любом изменении файл TXT полностью будет перезаписан из за 1 строчки или буквы.

ну? И каким боком тут тогда ини файл?)

@920403 · 02.02.2019, 13:59

Arcor, Вы правы, но это с точки зрения профессионала. Для вас то раз плюнуть там создать новые классы или методы. Но всё дело в том, что к вам обращаются новички, для которых ваше элементарное это тёмный лес. А тут всё уже простенькое изобретено, для чего оно тогда нужно?

Verevkin · 02.02.2019, 14:04

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

Verevkin, Вероятно мы на разных языках говорим. Ему же требуется операция именно с TXT файлом. Ну допустим сделали все колдовство в TStringList но по любому ему придется сохранять результат в TXT файле, и он по любому будет полностью перезаписан при любом изменении файл TXT полностью будет перезаписан из за 1 строчки или буквы.

И чо?

Добавлено через 2 минуты

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

А тут всё уже простенькое изобретено, для чего оно тогда нужно?

У Ini-файлов другая цель. И к данной задаче она (цель) отношения не имеет.
Перестань дезинформировать чувака, ты реально задолбал.

@920403 · 02.02.2019, 14:04

Ну хорошо, тогда дайте человеку ваш вариант решения, ато получается слов много, а где решение?

@Arcor · 02.02.2019, 14:05

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

А тут всё уже простенькое изобретено, для чего оно тогда нужно?

чтобы использовать по назначению!

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

Arcor, Вы правы, но это с точки зрения профессионала. Для вас то раз плюнуть там создать новые классы или методы. Но всё дело в том, что к вам обращаются новички, для которых ваше элементарное это тёмный лес

ну так навреное и спрашивают, как сделать ПРАВИЛЬНО, то что это темный лес, это их проблемы

Verevkin · 02.02.2019, 14:10

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

Ну хорошо, тогда дайте человеку ваш вариант решения, ато получается слов много, а где решение?

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

@D1973 · 02.02.2019, 14:18

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

сделать мини-класс, один из методов будет разбивание строки на две части

Да ведь все уже ~~украдено~~придумано до нас: неоднократно предлагаемый Verevkin-ым StringList...

Verevkin · 02.02.2019, 15:24

Пример только для демонстрации.

Удалить буквы из строки до и после символа

Чуть позже может быть сделаю видео.

@denvers2019 · 02.02.2019, 15:48 **[ТС]**

Verevkin, Вот это именно то что нужно. На исходник, реализацию можно посмотреть ?

@D1973 · 02.02.2019, 16:32

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

Вот это именно то что нужно.

Странно, о замене речи нигде не шло, речь была о удалении... Но это частности, конечно...

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

На исходник, реализацию можно посмотреть

Запустите программу и нажмите Ctrl + Shift + F11

Verevkin · 02.02.2019, 16:43

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

Verevkin, Вот это именно то что нужно. На исходник, реализацию можно посмотреть ?

Исходник внутри.

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

Запустите программу и нажмите Ctrl + Shift + F11

Без Ctrl.

Ща будет видео. Прикольно выглядит, SpeedCoding

Уже рендерится...

@denvers2019 · 02.02.2019, 16:49 **[ТС]**

D1973, Ну, просто на что заменить можно оставить пустым и программа удалит ненужный текст (Вышел из ситуации я так). А за неимением других примеров, приходиться обходиться, мне, тем что есть.

Добавлено через 4 минуты
Verevkin, Однозначно спасибо за пример. Вытянул из твоего кода функцию и влепил её на новый проект теперь заработало. Буду теперь шаманить и переделывать под работу с текстовым файлом.

Verevkin · 02.02.2019, 17:03

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

днозначно спасибо за пример. Вытянул из твоего кода функцию и влепил её на новый проект теперь заработало. Буду теперь шаманить и переделывать под работу с текстовым файлом.

Тебе повезло, что:
а) у меня было хорошее настроение;
б) мне было нечем заняться;
в) мне понравилась задача.

Вот тебе видео, как бонус.

Смотреть в фулл-скрине.

@denvers2019 · 02.02.2019, 17:20 **[ТС]**

Verevkin, Как бы для моих целей и небольших размеров - код ОТЛИЧНЫЙ! Еще раз спасибо, напишу в твои контакты на днях, там за $ - попрошу у тебя помощи, по другим вопросам.

@D1973 · 02.02.2019, 17:20

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

за неимением других примеров, приходиться обходиться, мне, тем что есть

Аж слезу вышибло

Кстати, я задачу так понял, что значений для удаления, как до равно, так и после, может быть несколько... Вот из этой предпосылки я исходил... Вот, на скорую руку набросал, неоптимально, конечно, но...

@denvers2019 · 02.02.2019, 17:24 **[ТС]**

D1973, Спасибо!. Ребята спасибо всем кто поддержал и не оставил без ответа.

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@Arcor
	02.02.2019, 13:49
	Не по теме: а если я буду писать математический анализатор и там будет "=", тоже через ини файл?) 0

@920403 62 / 48 / 20 Регистрация: 01.09.2017 Сообщений: 381
	02.02.2019, 13:50
	Verevkin, Вероятно мы на разных языках говорим. Ему же требуется операция именно с TXT файлом. Ну допустим сделали все колдовство в TStringList но по любому ему придется сохранять результат в TXT файле, и он по любому будет полностью перезаписан при любом изменении файл TXT полностью будет перезаписан из за 1 строчки или буквы. 0

@denvers2019 0 / 0 / 0 Регистрация: 01.02.2019 Сообщений: 64
	02.02.2019, 13:51 [ТС]
	Arcor, Verevkin, Спасибо что стараетесь мне помочь. Вот теперь я конкретно запутался из за этих INI настроек. Голова идет оборотом..... 0

@920403 62 / 48 / 20 Регистрация: 01.09.2017 Сообщений: 381
	02.02.2019, 13:59
	Arcor, Вы правы, но это с точки зрения профессионала. Для вас то раз плюнуть там создать новые классы или методы. Но всё дело в том, что к вам обращаются новички, для которых ваше элементарное это тёмный лес. А тут всё уже простенькое изобретено, для чего оно тогда нужно? 0

@920403 62 / 48 / 20 Регистрация: 01.09.2017 Сообщений: 381
	02.02.2019, 14:04
	Ну хорошо, тогда дайте человеку ваш вариант решения, ато получается слов много, а где решение? 0

@denvers2019 0 / 0 / 0 Регистрация: 01.02.2019 Сообщений: 64
	02.02.2019, 15:48 [ТС]
	Verevkin, Вот это именно то что нужно. На исходник, реализацию можно посмотреть ? 0

@denvers2019 0 / 0 / 0 Регистрация: 01.02.2019 Сообщений: 64
	02.02.2019, 16:49 [ТС]
	D1973, Ну, просто на что заменить можно оставить пустым и программа удалит ненужный текст (Вышел из ситуации я так). А за неимением других примеров, приходиться обходиться, мне, тем что есть. Добавлено через 4 минуты Verevkin, Однозначно спасибо за пример. Вытянул из твоего кода функцию и влепил её на новый проект теперь заработало. Буду теперь шаманить и переделывать под работу с текстовым файлом. 0

@denvers2019 0 / 0 / 0 Регистрация: 01.02.2019 Сообщений: 64
	02.02.2019, 17:20 [ТС]
	Verevkin, Как бы для моих целей и небольших размеров - код ОТЛИЧНЫЙ! Еще раз спасибо, напишу в твои контакты на днях, там за $ - попрошу у тебя помощи, по другим вопросам. 0

@denvers2019 0 / 0 / 0 Регистрация: 01.02.2019 Сообщений: 64
	02.02.2019, 17:24 [ТС]
	D1973, Спасибо!. Ребята спасибо всем кто поддержал и не оставил без ответа. 0