Поиск и замена в текстовом файле

Страница 1 из 1 1
Модератор форума: as-master

Форум MMB » Всё о программе Multimedia Builder » Сценарии в MMB » Поиск и замена в текстовом файле

dronet

Дата: Воскресенье, 19 Августа 2007, 17:03 | Сообщение # 1

Любопытный

Группа: Проверенные

Сообщений: 38

Репутация: 0

Награды: 0

Статус: Offline

Может кто предложить вариант другого типа?
Найти в Text.txt - слово "Пень" и заменить его на слово "Пенёк"
Очень нужно. Но не как не могу зделать.

Andress

Сообщение отредактировал dronet - Воскресенье, 19 Августа 2007, 17:05

as-master

Дата: Воскресенье, 19 Августа 2007, 17:32 | Сообщение # 2

Разводящий

Группа: Модераторы

Сообщений: 2337

Репутация: 101

Награды: 5

Статус: Offline

Как нефиг делать :) Отвечу чуть позже, если Юрик с Димой не опередят :)
Кстати, dronet, для нового вопроса надо создавать новую тему!!!
Предупреждение тебе :)

Да пребудет с вами ММВ!

as-master

Дата: Воскресенье, 19 Августа 2007, 19:33 | Сообщение # 3

Разводящий

Группа: Модераторы

Сообщений: 2337

Репутация: 101

Награды: 5

Статус: Offline

Вот простейший вариант сценария, который тебе нужен:

Code

OpenFile("Текстовые файлы (*.txt) |*.txt|","*.txt")
OpenFile$=CBK_OpenFile
If (OpenFile$='') Then
       Return()
End
file$=<File>
For i=1 To NOL(file$)
       string$=StrFromFile(file$,i,1)
       find$='пень'
       replace$='пенёк'
       string$=StrChange(string$,find$,replace$)
       RV=StrToLine(file$,string$,i,TRUE)
Next i
Message("Готово!","")

Находит в указанном текстовом файле слово "пень" и заменяет его на "пенёк".
Недостатки:

1. Не будет находить слово "Пень", так как оно с большой буквы, а в скрипте
заменяется только слово "пень"с маленькой буквы.

2. Такие слова, как "степень", "жарпень", "пеньюар" превратятся соответственно
в слова "степенёк", "жарпенёк", "пенёкюар" smile

С этими недостатками можно бороться. С первым так: просто повторить
сценарий для слова "Пень" с большой буквы.

Со вторым недостатком сложнее, но тоже можно. Но я не стану этого делать -
слишком геморройно.

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

Всё.

Прикрепления: 02068905.zip (0.9 Kb)

Да пребудет с вами ММВ!

dronet

Дата: Понедельник, 20 Августа 2007, 01:25 | Сообщение # 4

Любопытный

Группа: Проверенные

Сообщений: 38

Репутация: 0

Награды: 0

Статус: Offline

Quote (as-master)