| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 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 |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009