Автор Алик Мираев задал вопрос в разделе Другие языки и технологии
Вопрос по VBA и получил лучший ответ
Ответ от Максим[гуру]
Вот пример:
Sub Desicion()
Dim handleFile, beg, fin As Integer
Dim contentFile, filePath, selection As String
filePath = "C:Example.txt"
handleFile = FreeFile
Open filePath For Input As #handleFile
contentFile = Input$(LOF(handleFile), handleFile)
Close #handleFile
beg = InStr(1, contentFile, "~C") + 2
fin = InStr(beg, contentFile, "~A")
selection = Mid(contentFile, beg, fin - beg)
MsgBox (selection)
End Sub
Программа открывает файл с именем, хранящимся в переменной "filePath". С помощью функции "InStr" определяются границы участка выделения "beg" и "fin". Далее с помощью функции "Mid", производится запись содержимого участка выделения в переменную "selection" и ее вывод в "MsgBox".
Максим
Мастер
(2024)
У меня был курс по прикладному программированию VBA в университете. Писали небольшие программы для "Microsoft Excel" и "Microsoft Word". Информация в основом давалась на лекциях из пару русскоязычных книг. В составе пакета Microsoft Office в справочной информации очень подробное описание языка и его функций на английском языке. Основную часть почерпнул оттуда.