TKSoft-Online

Löschen von beliebigen Zeichen aus einem String PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Strings
Geschrieben von: TommyK   
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr
Tags:

Problemstellung:

Wie kann ich aus einem String eins oder mehrere beliebigen Zeichen löschen?

 


Public Function loescheZeichen(strString As String, strArg As String)
Dim I
For I = 1 To Len(strString)
 If InStr(1, Chr(13) + Chr(10) + strArg, Mid(strString, I, 1)) = 0 Then
  loescheZeichen = loescheZeichen & Mid(strString, I, 1)
     End If
Next I
End Function

Aufruf:


Dim x As String
x = loescheZeichen("Das ist ein Text. mit einigen. Punkten.",".")

Das Ergebnis von x wäre "Das ist ein Text mit einigen Punkten"
DatumKlicks
Total1840
Di. 221
Mo. 211
So. 203
Sa. 194
Fr. 181
Do. 171
Mi. 161
< Zurück   Weiter >
Aktualisiert ( Freitag, den 02. Juli 2010 um 07:09 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173415 Downloads