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