Konvertieren von UTF-8-string in ISO-8859-1

Meine Klassische ASP-Anwendung ruft eine UTF-8-string aus der Datenbank, aber ich brauche, um zu konvertieren, um ISO-8859-1. Ich kann nicht ändern Sie die HTML-Seite-Codierung;

Ich wirklich brauchen, um zu konvertieren nur die abgerufene Zeichenfolge. Wie kann ich es tun?

Wie über die Suche in der Website diese wurde beantwortet, von meiner Wenigkeit und anderen zig mal schon! Nur durchsuchen Sie die Verwandte - Sektion auf der rechten Seite dieser Frage zum Beispiel.
mögliche Duplikate von konvertieren von utf-8 auf iso-8859-1 in der klassischen asp
Ich habe gesehen, dass die Frage, aber seine Antwort befasst sich mit dem gesamten script-Datei. Ich möchte zum konvertieren einer Zeichenfolge, die Ihren Ursprung in einer Datenbank, so ist es nicht auch deutlich gesagt, die in dieser Datei. Ich brauche zum konvertieren von nur einer einzigen saite, und halten Sie den rest der Datei, wie es ist (ISO-8859-1). Aber ich bin neu in classic ASP, und ich kann nicht greifen, ist die Antwort richtig. Angesichts dieser Klarstellung, glauben Sie, dass es so ist? Wenn ich falsch bin, werde ich die Anfrage in Bezug auf die Kommentare, die Antwort.
Ich habe die Suche nach dieser Antwort für TAGE, und versucht es auch hier. Die Fragen sind nicht hilfreich, da Sie sich vor allem mit anderen Sprachen. Ich vermeiden, dass er genau die Leute sind da extrem wählerisch, was neue. Es wurde zu viele Male, die ich fragte, eine Frage an die StackExchange-Seiten, die ich Besuche, und musste kämpfen, um meine Frage offen. Sorry für die rant.
Hast du diese ein - ASP: I cant decode einige Zeichen aus utf-8 in iso-8859-1?
Nein, habe ich nicht. Es nicht zeigen, bis in meine Suche. Die Antwort, die ich geschrieben scheint ähnlich, aber ich weiß nicht genug, um sicher sagen
Ich Neige zu finden, erhalten Sie bessere Ergebnisse bei der Suche über Google.
Ich nutze google ohne die site:stackoverflow.com zu ge breitere Ergebnisse. Aber es scheint wirklich besser funktioniert, als SO zu suchen. Vielen Dank,

InformationsquelleAutor Metalcoder | 2015-03-03

9

Fand ich die Antwort hier:
```
Const adTypeBinary = 1
Const adTypeText = 2

' accept a string and convert it to Bytes array in the selected Charset
Function StringToBytes(Str,Charset)
  Dim Stream : Set Stream = Server.CreateObject("ADODB.Stream")
  Stream.Type = adTypeText
  Stream.Charset = Charset
  Stream.Open
  Stream.WriteText Str
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read Bytes
  Stream.Type = adTypeBinary
  StringToBytes= Stream.Read
  Stream.Close
  Set Stream = Nothing
End Function

' accept Bytes array and convert it to a string using the selected charset
Function BytesToString(Bytes, Charset)
  Dim Stream : Set Stream = Server.CreateObject("ADODB.Stream")
  Stream.Charset = Charset
  Stream.Type = adTypeBinary
  Stream.Open
  Stream.Write Bytes
  Stream.Flush
  Stream.Position = 0
  ' rewind stream and read text
  Stream.Type = adTypeText
  BytesToString= Stream.ReadText
  Stream.Close
  Set Stream = Nothing
End Function

' This will alter charset of a string from 1-byte charset(as windows-1252)
' to another 1-byte charset(as windows-1251)
Function AlterCharset(Str, FromCharset, ToCharset)
  Dim Bytes
  Bytes = StringToBytes(Str, FromCharset)
  AlterCharset = BytesToString(Bytes, ToCharset)
End Function
```
So habe ich nur dieses:
```
AlterCharset(str, "ISO-8859-1", "UTF-8")
```
Und es funktionierte gut.
- Das wird funktionieren, aber Bedenken Sie, wenn Ihr Quell-Codierung ist UTF-8 und konvertieren Sie zu ISO-8859-1 Sie wird je nach den Zeichen im UTF-8-Zeichensatz Treffer Diskrepanzen, wo Sie nicht existieren in ISO-8859-1.
- Da UTF-8 hat einen größeren Zeichensatz als ISO-8859-1, die mapping-Probleme sind etwas, das ich erwarte. Oder gibt es einen anderen Weg das zu umgehen?
- Nicht wirklich, wenn Sie sich dessen bewusst sind, das ist die Hälfte der Schlacht. Sie wären überrascht, wie viele Leute einfach erwarten, dass es funktioniert.
- Ich denke, was ich immer gefragt, wenn es um die Codierung von Fragen wie dieser ist der Grund, warum Sie brauchen, um zu konvertieren UTF-8 Daten zu ISO-8859-1? In der Regel kommt es zu einem legacy-system mit vielen Seiten gespeichert Windows-1252 zum Beispiel und es sieht aus wie eine schnelle Lösung, die langfristig eine angemessene UTF-8 Unterstützung von server-zu-client ist der Weg zu gehen.
- In meinem Fall, da die Datenbank in UTF-8, und die Skript-Dateien sind gespeichert in ISO-8859-1. Da das Skript, das ich arbeite, ist Teil eines größeren Systems und kann ich nicht ändern, das Datenbank encoding, ich habe zu Holen, die Schnur und dann konvertieren. Wenn Sie nicht brauchen, akzentuierte Zeichen zu arbeiten (wie ist der Fall, wenn die app sich nur mit Englisch), dann können Sie nicht brauchen, um dies zu tun, aber hier in Brasilien verwenden wir Akzente die ganze Zeit.
- Ich habe mit mehrsprachig Systeme in der Klassischen ASP-seit Jahren und glaub mir wenn ich sage, mit einer Methode, wie diese werden Sie auf Probleme stoßen, die nur "echtes" Update ist eine Korrektur der Kodierung in der Anwendung (Codierung von Dateien und Antwort von Classic ASP), um Internationalisierung durch die Unterstützung UTF-8 zu wahren Lokalisierung.
- Ich Stimme mit Ihnen überein. Leider kann ich nicht die Kodierung ändern, jetzt, da es machen würde, das Projekt zu spät, und ich bin unter einer Menge Druck auf den finnischen bald. Ich habe die Absicht, es zu ändern bei der nächsten iteration.
- Je früher Sie können das besser...viel Glück obwohl.
- Danke.
InformationsquelleAutor Metalcoder

Erweitern die OP selbst beantworten, bei der Umwandlung von single-byte-Zeichensätze (wie ISO-8859-1, Windows-1251, Windows-1252, etc...) UTF-8 gibt es einige unnötige Redundanz bei der Umwandlung zu und zurück ADODB's byte-array. Der Aufwand für mehrere Funktionsaufrufe und Umbauten beseitigt werden können als solche:

Const adTypeText = 2

Private Function AsciiStringToUTF8(AsciiString)
    Dim objStream: Set objStream = CreateObject("ADODB.Stream")
    Call objStream.Open()
    objStream.Type = adTypeText
    'Any single-byte charset should work in theory
    objStream.Charset = "Windows-1252"
    Call objStream.WriteText(AsciiString)
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    objStream.Position = 0
    objStream.Charset = "UTF-8"
    AsciiStringToUTF8 = objStream.ReadText()
    Call objStream.Close(): Set objStream = Nothing
End Function

InformationsquelleAutor Makaveli84

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.