Tel: 0203-2814763

 
Home


Access-Entwickler
Referenzen


Access-Forum
Access-Downloads
Access-Suchmaschine
knowhow.mdb
Artikel
Access-Links
Access-Codebeispiele
Access-FAQ
Access-Lernvideos
Verschiedenes
Autoren-Login

 

newsletter
Kontakt/Impressum
Haftungsausschluß
English

 

 

Ziffern aus Text extrahieren


Diese Funktion extrahiert aus einem beliebigen String die enthaltenen Ziffern:

Public Function GetZiffern(ByVal mywert As String) As String

If Len(mywert) < 1 Or IsNull(mywert) = True Then GetZiffern = "": Exit Function

For i = 1 To Len(mywert)
  x = Mid$(mywert, i, 1)
  If IsNumeric(x) Then
     GetZiffern = GetZiffern & x
  End If
 Next i

End Function

zurück

 

 

 

______________________