TKSoft-Online

Nur Zahlen aus einem String ermitteln 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 nur alle Zahlen ermitteln? 


Public Function nurZahlen(Argument)
Dim i
    For i = 1 To Len(Argument)
     If Not InStr(1, "1234567890", Mid(Argument, i, 1)) = 0 Then
      nurZahlen = nurZahlen & Mid(Argument, i, 1)
         End If
    Next i
End Function

Aufruf:


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

Das Ergebnis von x wäre "1963"
DatumKlicks
Total1768
Di. 221
Mo. 213
So. 203
Sa. 191
Fr. 183
Mi. 163
Di. 153
< Zurück   Weiter >
Aktualisiert ( Freitag, den 02. Juli 2010 um 07:11 Uhr )
 

Kommentare  

 
0 # datenwerkstatt.com 2011-07-25 16:10
Vielen Dank für die Infos.
hier noch eine vereinfachte Form, um links beginnend, Ziffernkolonnen zurückzugeben, und beim ersten Zeichen, welches keine Ziffer ist, abzubrechen.

Function Numeric(Text)
Dim i
For i = 1 To Len(Text)
Select Case Mid(Text, i, 1)
Case 0 To 9
Numeric = Numeric & Mid(Text, i, 1)
Case Else
Exit Function
End Select
Next i
End Function

Schönen Urlaub noch.
Antworten | Antworten mit Zitat | Zitieren
 

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