Как можно заменить имя переменной в тексте шаблона?

Как можно заменить имя переменной в тексте шаблона?
У меня есть текстовый шаблон, в котором размещены метки с именами переменных, Эти метки должны заменяться значениями переменных. Переменные глобальные, и имена их известны. Однако как вставить в функцию замены имя переменной, а не её значение? Для поиска и замены я использую следующую функцию:

Function ReplaceAll(SourceString As String, ReplaceThis As String, WithThis As String)As String
Dim Temp As Variant
Temp = Split(SourceString, ReplaceThis)
ReplaceAll = Join(Temp, WithThis)
End Function

SourceString - исходная строка с метками, ReplaceThis - имя заменяемой переменной, WithThis - значение переменной. Все просто.Но Вот как можно использовать именно ИМЯ переменной, чтобы не вставлялось её значение?

0

Надеюсь, что правильно всё понял...
Когда-то я делал что-то подобное, по-моему, не суперзаумно, но - работало...
Суть - есть файл типа
так?

Если да, то делается следующим образом:

созадётся глобальный массивчик с UDT-типом вроде
далее создаётся динамический массивчик после чего пишется набор простеньких функций для добавления, удаления, чтения переменных из массива типа и т.п. - это просто шарить по массиву, находить и возвращать/изменять/удалять.
Можно с помощью этих функций и внутри кода их исползовать, эти переменные.

а вот в парсере будешь просто вычленять имена переменных (тот самый ^variable1^) и искать соответствующее имя в массиве. И - заменять.

Можно тоже самое и с помощью коллекции, наверное, забабашить

Ну я надеюсь идея понятна, там ничего сложного, дальше сам домыслишь.

Спасибо за совет, мне понравилась идея с семейством. Я сделал процедуру для добавления и удаления переменных и их меток в семействе VariantMarker.

Public VariantMarker As New Collection

Перед заменой маркера в процедуру VarChange передается значение переменной Var и имя метки, связанной с этой переменной.

Public Sub VarChange(Var As String, VarName As String)
On Error GoTo AddItem 'Если элемента для удаления не находим
Dim m As Integer
VariantMarker.Remove (VarName)
AddItem:
VariantMarker.Add Var, VarName
End Sub

После этого я передаю функции, заменяющей маркеры, текст с маркерами и коллекцию VariantMarker

Text = RemoveMark(Text,VariantMarker)

Public Function RemoveMark(ByVal Text As String, VariantCollection As Collection) As String
.........
Функция находит метки в тексте, (которые одновременно - и ключи в семействе) и заменяет их соответствующими значеними из семейства.Все очень просто, нужно только следить за свежестью значений переменных в коллекции.

0

рад, что помогло