OpenOffice.info

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

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

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

Code: Alles auswählen

iif