Zeichen > 127 vergleichen

[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

Code: Alles auswählen

iff

ist leider falsch und muss heissen

Code: Alles auswählen

iif

Jürgen

[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...?

[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

[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