Hallo @Notes-Gemeinde,
Ich habe Probleme bei der Funktion 'Asc' , welche einen String (bzw. dessen einzelne Zeichen) zu Ihrem ASCII-Wert konvertieren soll . Mit Hilfe dieser Werte findet eine Überprüfung des Strings statt.
...
strContent = "ävsü"
length = Len(strContent)
For cnt = 0 To (length-1)
sign = Left$(Right$(strContent, length - cnt), 1)
tmpASC = Asc(sign)
Msgbox "ASCII-Wert : " + tmpASC
Next
...
Das ganze hat mir folgendes auf einem Windows-Server (2003) ausgegeben :
- "ASCII-Wert : 132"
- "ASCII-Wert : 118"
- "ASCII-Wert : 115"
- "ASCII-Wert : 129"
Nun mein Problem, die Ausgabe sieht auf einem Linux-Server (Suse Linux ES 11) wie folgt aus :
- "ASCII-Wert : 50084"
- "ASCII-Wert : 118"
- "ASCII-Wert : 115"
- "ASCII-Wert : 50108"
So wie ich sehe, gibt die Asc-Funktion mir einfach für die Umlaute den dezimalen UTF-8 Wert zurück.
Hat hier jemand ein paar Tipps/Lösungsansätze ?
Achja, wir verwenden 8.5.1 FP3
Vielen Dank schonmal!
LG
Patrick
Habe das ganze jetzt, über eine zusätzliche Prüfung über Unicode-Konvertierung ergänzt und die Umlaute funktionieren tadellos :
tmpUNI = Uni(sign)
If ((tmpUNI = 196) Or (tmpUNI = 214) Or (tmpUNI = 220) Or (tmpUNI = 228)_
Or (tmpUNI = 246) Or (tmpUNI = 252) Or (tmpUNI = 223)) Then
'Erlaube ä,ö,ü,Ä,Ö,Ü,ß
End If
Danke für Eure Hilfe