| |
| In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.
Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden! | Fragen zu Tipps & Tricks und Workshops im vb@rchivTipp 1933: IsLetter-Funktion für Strings | | | Autor: beagle | Tipp anzeigenDatum: 16.12.08 10:25 |
| Hallo, die Funktion hat mich veranlasst mal zwei vb6-Version zu schreiben.
Wer Lust hat kann ja mal die Verarbeitungszeit unter die Lupe nehmen.
''' <summary>
''' Prüft, ob der übergebene String ausschließlich aus Buchstaben besteht
''' </summary>
''' <param name="Text">String</param>
''' <returns>True, wenn String nur Buchstaben enthält, andernfalls False</returns>
'Version I
Public Function IsLetter(ByVal Text As String) As Boolean
Dim lngCount As Long, ASCII%
If Text = vbnullsting Then GoTo IsLetter_False
For lngCount = 1 To Len(Text)
ASCII = Asc(Mid(Text, lngCount, 1))
MsgBox ASCII
If Not ((65 <= ASCII And ASCII <= 90) Or _
(97 <= ASCII And ASCII <= 122) Or _
(223 = ASCII) Or _
(228 = ASCII) Or _
(232 = ASCII) Or _
(233 = ASCII) Or _
(246 = ASCII) Or _
(252 = ASCII) Or _
(228 = ASCII)) Then 'A-Z, a-z, oder ßäèéöü
GoTo IsLetter_False
End If
Next
IsLetter = True
Exit Function
IsLetter_False:
IsLetter = False
End Function
'Version II
Public Function IsLetter(ByVal Text As String) As Boolean
Dim lngCount As Long
Const strAllowedChar As String = _
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZßäèéöü"
If Text = vbnullsting Then GoTo IsLetter_False
For lngCount = 1 To Len(Text)
If 0 = InStr(strAllowedChar, Mid(Text, lngCount, 1)) Then
GoTo IsLetter_False
End If
Next
IsLetter = True
Exit Function
IsLetter_False:
IsLetter = False
End Function
'Version II+
'erlaubte Zeichen als Parameter übergeben
Public Function IsLetter(ByVal Text As String, _
Optional strAllowedChar As String = _
"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZßäèéöü") As Boolean
Dim lngCount As Long
'....
End Function Was genau die Char.IsLetter()-Funktion als Letter erkennt kann ich nicht sagen da ich kein VB.Net habe. Vermutlich noch diverse andere Buchstaben anderer Sprachen.
Kritik wird ernst genommen und ist erwünscht.
vb6
immer auf der Jagt nach Codeschnippseln. | |
Tipp 1933: IsLetter-Funktion für Strings | 3.650 | beagle | 16.12.08 10:25 |
| Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|