Option Compare Database

Function change_word_1(pia_string As String, pia_zeichen_org As String, pia_zeichen_rep As String) As String
'Author: Heiko Hommes
'Create:
'Funktion: ersetzt ein Zeichen durch ein beliebiges
'Übergabe: pia_sting => komplettes Feld in dem ersetzt werden soll
'          pia_zeichen_org => das Zeichen, was ersetzt werden soll
'           pia_zeichen_rep => das neue Zeichen
'Aufruf: change_word_1([FELD],"-","H") => oder ""  für nix


'Deklar. Variablen

    Dim i As Integer
    Dim feld(500) As String
    Dim pt As Integer
    Dim zeich As String
    Dim länge_feld As Integer
    Dim tabelle As String
    Dim var1 As String
    Dim var2 As String
    Dim rep1 As String
    Dim rep2 As String
   

  var1 = pia_zeichen_org
  rep1 = pia_zeichen_rep

  pt = 1
  i = 1
  länge_feld = Len(pia_string)
  For pt = 1 To länge_feld Step 1
    feld(pt) = Mid(pia_string, pt, 1)
  Next pt
  zeich = ""
  For pt = 1 To länge_feld Step 1
        If feld(pt) = var1 Then 
            feld(pt) = rep1
        End If
        zeich = zeich + feld(pt)
  Next pt
  change_word_1 = zeich

End Function