RB: Encoding

[Stefan Mettenbrink]

Da ich scheinbar noch immer Probleme mit der deutschen RB-Liste habe und
von dort immer noch keine Antwort durchkam, hier nochmal:

Ist 8-Bit ANSEL (American National Standard for Extended Latin Alphabet
Coded Character Set for Bibliographic Use, Z39.47, 1985 copyright) das,
was in RB unter WindowsANSI (&h0500) angegeben ist?

Wenn nicht, welches Encoding wäre denn ANSEL?


Auch auf folgende Frage (eigentlich ein Antwotposting in besagter Liste)
Voodoo? ;-)

Ich habe es mal ausprobiert und es sah sehr vielversperchend aus.

Ich habe Deinen Code mal etwas abgewandelt und in DropObjekt gelegt.
Wenn ich dann eine Datei droppe, funktioniert es aber leider nicht wie
erwünscht.

dim s as string
dim t as TextConverter
dim f as FolderItem

If obj.folderItemAvailable then

if obj.folderItem<>nil then

f=obj.folderItem

s=f.name

MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"

t=GetTextConverter(GetTextEncoding(0),GetTextEncoding(256,0,2))

s=t.convert(s)

MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"

t=GetTextConverter(GetTextEncoding(256,0,2),GetTextEncoding(0))

s=t.convert(s)

MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"

end if

end


Hast Du dazu auch eine Idee?
(alles unter OS X)

MfG, Metti.

[Christian Schmitz]

Post by Stefan Mettenbrink
s=f.name
MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"
t=GetTextConverter(GetTextEncoding(0),GetTextEncoding(256,0,2))

Du nimmst einen UTF8 String, sagst RB es sein ein MacRoman und lässt es
dann nach UTF8 konvertieren.

Das funktioniert nicht.

Mfg
Christian

[Stefan Mettenbrink]

Post by Christian Schmitz
Du nimmst einen UTF8 String, sagst RB es sein ein MacRoman und lässt es
dann nach UTF8 konvertieren.
Das funktioniert nicht.

Gut, sehe ich ein. Ich habe aber verschiedene Varianten durchprobiert
und bei keiner ein brauchbares Ergebnis bekommen. Egal wie ich
konvertiert habe, die Datie wurde nicht gefunden :-(

Any hints?

MfG, Metti.

[Christian Schmitz]

Post by Stefan Mettenbrink
Gut, sehe ich ein. Ich habe aber verschiedene Varianten durchprobiert
und bei keiner ein brauchbares Ergebnis bekommen. Egal wie ich
konvertiert habe, die Datie wurde nicht gefunden :-(

Code?

Mfg
Christian

[Stefan Mettenbrink]

Was ist an dem vom Anfang auszusetzen?

dim s as string
dim t as TextConverter
dim f as FolderItem
If obj.folderItemAvailable then
if obj.folderItem<>nil then
f=obj.folderItem
s=f.name
MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"

t=GetTextConverter(GetTextEncoding(0),GetTextEncoding(256,0,2))
s=t.convert(s)
MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"

t=GetTextConverter(GetTextEncoding(256,0,2),GetTextEncoding(0))
s=t.convert(s)
MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"
end if
end

Da UTF-8 reinkommt, sollte ich wohl GetTextEncoding(0) durch
GetTextEncoding(&h0100) ersetzen. Ich werde das mal testen.

MfG, Metti.

[Christian Schmitz]

Post by Stefan Mettenbrink
Was ist an dem vom Anfang auszusetzen?

Das es Unsinn ist. DU konvertierst von UTF8 Text als MacRoman nach UTF8.

Post by Stefan Mettenbrink
Da UTF-8 reinkommt, sollte ich wohl GetTextEncoding(0) durch
GetTextEncoding(&h0100) ersetzen. Ich werde das mal testen.

UTF8 ist GetTextEncoding(256,0,2).

Für eine msgbox wäre es so besser:

dim s as string
dim t as TextConverter
dim f as FolderItem

If obj.folderItemAvailable then
if obj.folderItem<>nil then
f=obj.folderItem
s=f.name
t=GetTextConverter(GetTextEncoding(256,0,2),GetTextEncoding(0))
s=t.convert(s)
MsgBox s+", "+str(len(s))+" Zeichen, "+str(lenb(S))+" bytes"
end if
end if

das sollte den Namen wengistens richtig anzeigen.

Mfg
Christian

[Stefan Mettenbrink]

Post by Christian Schmitz
das sollte den Namen wengistens richtig anzeigen.

Ich werde damit noch ein wenig rumprobieren.

Wenn ich nicht zurecht komme, werde ich mein Problem ausführlicher
schildern.

Danke erst einmal.

MfG, Metti.