 Buchstaben
aus einem Sting entfernen
In der heutigen Kolumne beschreibt der Autor Bernd Held wie Sie mit der Funktion
BuchstabenRaus alle Buchstaben aus einer alphanumerischen Zeichenfolge entfernen
können, sodass nur noch gültige Zahlenwerte vorliegen.
Nähere
Informationen zu Bernd Helds erfolgreichen Buch mit Tipps und Lösungen
rund
um
die VBA-Programmierung in Access, finden Sie hier
(Das Access-VBA Codebook).
Oft liegen Daten nicht so vor, wie man sie gebrauchen kann. Daher stellt
Ihnen VBA diverse Konvertierungsfunktionen zur Verfügung, über die
Sie schnell Daten in die gewünschte Form bringen können. In der
heutigen Kolumne wird gezeigt, wie Sie aus einer alphanumerischen Zeichenfolge
alle Buchstaben entfernen können, sodass nur noch gültige Zahlenwerte
vorliegen.
Um diese Aufgabe zu lösen, erfassen Sie in der Entwicklungsumgebung
von Access die folgende Funktion und rufen diese danach über ein Makro
auf:
| Code: | Function BuchstabenRaus(s As String) As String
Dim intz As Integer
For intz = 1 To Len(s)
Select Case Mid(s, intz, 1)
Case 0 To 9
BuchstabenRaus = BuchstabenRaus & Mid(s, intz, 1)
Case Else
End Select
Next intz
End Function
Sub TextBereinigen()
Dim swert As String
swert = "KU8976TZ4"
MsgBox BuchstabenRaus(swert)
End Sub
|
Ü bergeben Sie der Funktion BuchstabenRaus die komplette Zeichenfolge. Danach
wird die Zeichenfolge von links nach rechts in einer Schleife abgearbeitet. Innerhalb
der Schleife übertragen Sie nur gültige Zahlen im Bereich von 0 bis
9 und geben diese neue Zeichenfolge an die aufrufende Prozedur zurück.
Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden
Sie auf unserer AP-Access-Tools
 Vol.1
| | | | 
 |
Auf der AP-Access-Tools Vol.1 finden Sie weitere 320
Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode!
Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler
256 Access-Beispiele mit offenem Code
45 Add-Ins und ActiveX-Komponenten (Freeware)
16 VB-Projekt inkl. Source
321 Tipps & Tricks für Access und VB
Plus 11 Entwicklerversionen (9 davon mit Source!)
Plus 3 Vollversionen und
Plus riesiger Datenpool
Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95! |
| | | |
|
| 
» Newsletter
