Seite 1 von 1
Re: Zeichen > 127 vergleichen
Verfasst: Do, 03.07.2008 15:00
von turtle47
Hallo Günter,
suchst Du vielleicht sowas?
Code: Alles auswählen
Sub My_asc
Dim ascCode as integer
Dim Ausgabe as string
sSuche= "ö"
ascCode = asc(sSuche)
Ausgabe = iif ( ascCode > 127 ,"grösser", "kleiner")
msgbox Ausgabe
End sub
ist leider falsch und muss heissen
Jürgen
Re: Zeichen > 127 vergleichen
Verfasst: Do, 03.07.2008 15:01
von komma4
Günter,
Du solltest uns ein Stück Deines Codes zeigen.
STRCOMP funktioniert hier wie erwartet - eine Dokumentation über IFF bei OOo Basic habe ich nicht gefunden.
Also: was funktioniert nicht, was erwartest Du an welcher Stelle...?
Re: Zeichen > 127 vergleichen
Verfasst: Fr, 04.07.2008 08:22
von turtle47
Hallo Günter,
Ich kann beim besten Willen keinen Fehler feststellen.
Das Ganze habe ich mit folgendem Code überprüft.
Code: Alles auswählen
Sub StringsSpeichern1
Dim sTemp AS String
Dim sTemp1 AS String
Dim sTemp2 AS String
Dim iTemp3 AS Integer
sbuffer = "Fr" + Chr(252) + "hlingsstr. 62"
'sbuffer = "Frühlingsstr. 62" 'funktioniert auch
'sbuffer = "Fruehlingsstr. 62" 'funktioniert auch
msgbox sbuffer 'String sbuffer prüfen
sTemp = RTrim(Mid(sBuffer, 1, 16))
ue = Chr(252)
For i=1 To len(sTemp)
sTemp1 = Mid(sTemp,i,1)
If sTemp1 > Chr(127) Then
iTemp3 = Asc(sTemp1)
If sTemp1 = ue Then
sTemp2 = "ü"
End If
sTemp3 = sTemp3 + sTemp2
Else
sTemp3 = sTemp3 + sTemp1
End If
Next i
msgbox stemp3 'String Ergebnis überprüfen
End Sub[/cod
Da liegt was anderes im Argen.
Sorry das ich Dir nicht mehr sagen kann oder habe ich das Problem immer noch nicht verstanden?
Jürgen
Re: Zeichen > 127 vergleichen
Verfasst: So, 06.07.2008 15:57
von turtle47
Hallo Günter,
was hälst Du hiervon:
Code: Alles auswählen
Sub ASCI_2_UNICODE
Dim AsciCode as variant
Dim UniCode as variant
'Bürger müssen in Ämtern immer öfter länger warten
myString = "B0xFCrger m0xFCssen in 0xC4mtern immer 0xF6fter l0xE4nger warten."
'myString = "Fr0xFClingsh0xF6he 69" 'Frühlingshöhe 69
AsciCode = array ("0xC4","0xE4","0xD6","0xF6","0xDC","0xFC")'ASCI
UniCode = array ("U+00C4","U+00E4","U+00D6","U+00F6","U+00DC","U+00FC") 'Unicode
for i = 0 to ubound(AsciCode())
AsciCode1= AsciCode(i)
UniCode1= UniCode(i)
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
aResult=FuncAcc.callFunction("SUBSTITUTE", array(myString ,AsciCode1,UniCode1))
mystring = aResult
next i
msgbox mystring
End Sub
Jürgen