TKSoft-Online

Nur Zeichen aus einem String ermitteln PDF Drucken E-Mail
( 0 Votes )
MS-Access Codes - Codeschnipsel Strings
  
Donnerstag, den 27. Dezember 2007 um 01:00 Uhr

Problemstellung:

Wie kann ich aus einem String nur alle Buchstaben ermitteln? 


Public Function nurZeichen(Argument)
Dim 
i
    
For i = 1 To 
Len(Argument)
     
If Not InStr(1, "abcdefghijklmnopqrstuvwxyzüöä", Mid(Argument, i, 1)) = 0 Then
       nurZeichen = nurZeichen & Mid(Argument, i, 1)
     
End If
    Next 
i
End Function

Aufruf:


Dim x As String
x = nurZeichen("Geburtstag: 1963")

Das Ergebnis von x wäre "Geburtstag"

DatumKlicks
Total1307
Mi. 232
Di. 222
Mo. 215
Sa. 191
Fr. 182
Do. 171
Di. 151
Aktualisiert ( Freitag, den 02. Juli 2010 um 07:11 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173460 Downloads