10.1.12 ElimChar
Function ElimChar(ByVal BigString as String, ElimArray() as String)

Mit dieser kann man ein Array aus Strings aus einem String löschen. Man hat ein Array strs() mit verschieden Einträgen und möchte diese alle aus einem String entfernen.
strs(0)="ab"
strs(1)="01"
strs(2)="wieder"
bigstring="ab Montag den 1.01 fahren die Züge wieder pünktlich"
Newstring=Elimchar(Bigstring,strs())
Ergibt: Newstring="Montag den 1. fahren die Züge pünktlich"


Diese Funktion ist leider fehlerhaft. Der korrigierte Code steht unten. Diesen muß man auch in seinem eigenen Modul einsetzen.

Function ElimChar(ByVal BigString as String, ElimArray() as String)
Dim i% ,n%
     For i = 0 to Ubound(ElimArray())-1
          BigString = DeleteStr(BigString,ElimArray(i))
     Next
     ElimChar = BigString
End Function
Seitenanfang