Funkce zjednodušující vkládání textů do řetězce.

Idea je jednoduchá. Máme nějaký text, jehož části se často mění.Vytvoříme si tedy jako konstantu pevnou část textu a místo jednotlivých částí změn vložíme zástupný znak a pořadové číslo zastoupeného textu.

Funkci pak voláme například takto: MsgBox StrReplace("Pokus o: %#1", "vtip") MsgBox StrReplace("Ahoj %#1 a %#2,"dámy","pánové")

A tady je kompletní testovací kód akce se provede po stisknutí tlačítka na formuláři.

'Konstanta se zastupnymi znaky
Const sDatum As String = _
               "Dnes je rok %#1 " & _
               "mìsíc %#2 den %#3, " & _
               "%#4 hodin %#5 minut"

'Znacka pro zastupny text
Const sSeparator As String = "%#"

'Akce na tlacitko zobrazi vyplneny
'   zastupny text
Private Sub Command1_Click()
   MsgBox StrReplace(sDatum, _
                CStr(Year(Now)), _
                CStr(MonthName(Month(Now))), _
                CStr(Day(Now)), _
                CStr(Hour(Now)), _
                CStr(Minute(Now)))
End Sub


Public Function StrReplace _
          (ByVal sText As String, _
           ParamArray vParams() As Variant _
          ) As String
  
  Dim sTemp As String
  Dim i As Long
  
  sTemp = sText
  
  For i = LBound(vParams) To UBound(vParams)
    sTemp = Replace(sTemp, _
            sSeparator & (i + 1), vParams(i))
  Next i
  StrReplace = sTemp
End Function