• Замена слов в текстовом файле с помощью VBA (Microsoft Excel)

Текст задания 

В текстовом файле поменять все слова "Дима" на "Петров Д. М.".

Решение

Рядом с книгой Excel необходимо расположить файл 2.18.txt (это номер задания и методички). После запуска макроса все вхождения слова "Дима" в этом файле будут заменены. Ниже представлен код самого макроса, если же Вам нужно готовое решение, то добавляйте эту задачу в корзину и оформляйте заказ. Сразу же после оплаты работы Вы сможете скачать готовое решение.

Код макроса:

Sub Кнопка8_Щелчок()
Open ActiveWorkbook.Path & "\2-18.txt" For Input As #1
   Dim S As String
   Dim s1(100) As String
   Dim i As Integer
   i = 0
   While Not EOF(1)
     Input #1, S
     i = i + 1
     s1(i) = Replace(S, "Дима", "Петров Д.М.")
    Wend
   Close #1
   Open ActiveWorkbook.Path & "\2-18.txt" For Output As #1
   For j = 1 To i
      Print #1, s1(j)
   Next j
   Close #1
End Sub

Написать отзыв

Внимание: HTML не поддерживается! Используйте обычный текст!
    Плохо           Хорошо

Замена слов в текстовом файле с помощью VBA (Microsoft Excel)

  • 100.00 р.




Смотрите также

Удаление лишних пробелов в выделенном тексте в Microsoft Word с помощью VBA

Удаление лишних пробелов в выделенном тексте в Microsoft Word с помощью VBA

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

40.00 р.

Работа с массивами в VBA (Microsoft Excel)

Работа с массивами в VBA (Microsoft Excel)

 При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное..

20.00 р.

Работа с массивами в VBA (Microsoft Excel)

Работа с массивами в VBA (Microsoft Excel)

 В одномерный массив A размерности N при помощи датчика случайных чисел вводятся целые чис..

40.00 р.

Теги: Microsoft Excel, VBA

Не подошла работа?

Узнайте стоимость написания работы по Вашему заданию

(это быстро и бесплатно)

Узнать стоимость

Спасибо, не надо