Замена символьной последовательности в текстовом файле

05.03.2008, 12:27. **Показов** 896. **Ответов** 4

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

Можно ли каким-то образом, без построчной обработки, заменить в текстовом файле все вхождения последовальности символов на другую последовательность, скажем ABC на DEF.

@ma3ai · 05.03.2008, 13:34

1. Получаем строку из файла
2. Применяем Replace
3. Записываем строку в файл

Параметры:
Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String

P.S. Если нужно поподробнее - пиши

05.03.2008, 13:45

Спасибо за ответ. Только меня интересует, можно ли без построчного считывания сделать подбный риплейс по всему файлу.

@ma3ai · 05.03.2008, 14:08

Что значит 'построчного' ??
Открывай файл как Binary. Оттуда всё в строку. И делай что хочешь.
Примерчик: за корректность не отвечаю - но суть ясна надеюсь. На скорую руку набросал.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function ReplaceEx(FileName As String, str1 As String, str2 As String) As String
    Dim ID As Long
    Dim Count As Long
    Dim Value As String
    ID = FreeFile
    Open FileName For Binary As ID
    Count = LOF(ID)
    Value = Space(Count)
    Get ID, , Value
    'tvori s Value 4to ho4esh - tam ves' fail (bait k baitu)
    ReplaceEx = Replace(Value, str1, str2, , , vbBinaryCompare)
    'Argumenti funkcii Replace sam vistavljaesh - ja ne znaju 4to nado
End Function

Если я чего-то недопонял - разъясни.

05.03.2008, 17:43

Спасибо. Извини, стормозил.

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

@ma3ai 0 / 0 / 0 Регистрация: 20.02.2008 Сообщений: 181
	05.03.2008, 13:34
	1. Получаем строку из файла 2. Применяем Replace 3. Записываем строку в файл Параметры: Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String P.S. Если нужно поподробнее - пиши 0

Vip
	05.03.2008, 13:45
	Спасибо за ответ. Только меня интересует, можно ли без построчного считывания сделать подбный риплейс по всему файлу.

Vip
	05.03.2008, 17:43
	Спасибо. Извини, стормозил.