Re: [Coffeehouse] Zeichen umwandeln

[Hubert Daubmeier]

> anschlie�end in einem Textarea-Feld ausgeben lasse, werden ��� etc. auch
als
> solches angezeigt. Ich m�chte die Ausgabe aber in Ä &Uuml....


Dann schreib Dir eine Funktion, die das macht.  Ein Beispiel angeh�ngt.
Letztlich frage ich mich aber schon was soll die M�he - wir stehen auf der
Schwelle zu 16-bit Zeichens�tzen und wollen dann so tun als ob wir die 8-bit
Zeichen noch nicht mal geregelt kriegen???


Dim Fromarray
Dim Toarray
Fromarray = array("�","�","�","�","�","�","�")
Toarray =
array("Ä","Ö","Ü","ß","ä","ö","ü")

....

Response.write ToEntity("�������")
....

Function ToEntity(sString)
  Dim i
  For i = 0 to UBound(Fromarray)
    sString = Replace(sString, Fromarray(i), Toarray(i))
  Next
  ToEntity = sString
End Function



Viele Gr��e
Hubert Daubmeier

~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Kaffeepause im United Planet Communityserver ...
http://www.intrexx.com/communityserver                         
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse