PureBoard

Verfasst: **05.06.2015 11:13**

Hey, irgendwie stehe ich total auf´n Schlauch.
Möchte gerne aus einem String die Steuerzeichen austauschen.
Wenn ich ein Sonderzeichen einer Variable zuordne und ausgebe dann erscheint nur "A?" anstatt " ÃŸ".
Gebe ich es direkt aus, wird das Zeichen richtig dargestellt.
Wie kann ich die Zeichen vergleichen in der Form if Findstring(Quellstring,"ÃŸ")
Das Problem sieht man erst, wenn man den untenstehenden Code in PB hineinkopiert.

Code: Alles auswählen

  eszet.s=" ÃŸ"
  ue.s=" Ã¼"
  oe.s=" Ã¶"
  ae.s=" Ã¤"

  UE.s=" Ãœ"
  OE.s=" Ã–"
  AE.s=" Ã„"

  Debug " Ã¼"
  Debug ue

  ;- ÃŸ - Ãœ - Ã¼ - Ã– - Ã¶ - Ã„ - Ã¤
 
 Debug Asc(" ÃŸ")
 Debug Asc(" Ãœ")
 Debug Asc(" Ã¼")
 Debug Asc(" Ã–")
 Debug Asc(" Ã¶")
 Debug Asc(" Ã„")
 Debug Asc(" Ã¤")
 
 Debug " ÃŸ" + " - " + eszet
 Debug " Ãœ" + " - " + UE
 Debug " Ã¼" + " - " + ue
 Debug " Ã–" + " - " + OE
 Debug " Ã¶" + " - " + oe
 Debug " Ã„" + " - " + AE
 Debug " Ã¤" + " - " + ae
 
 Debug "Anrede,Vorname,Nachname,E-Mail-Adresse,E-Mail 2: Adresse,StraÃŸe (privat),Postleitzahl (privat),Ort (privat),Bundesland (privat),Land (privat),Telefon (privat),Telefon privat 2,Mobiltelefon,Fax (privat),UM-Nr.,Webseite (privat),Titel,Position,Firma,E-Mail 3: Adresse,Webseite (geschÃ¤ftlich),StraÃŸe (geschÃ¤ftlich),Postleitzahl (geschÃ¤ftlich),Ort (geschÃ¤ftlich),Bundesland (geschÃ¤ftlich),Land (geschÃ¤ftlich),Telefon (geschÃ¤ftlich),Telefon geschÃ¤ftlich 2,Mobiltelefon 2,Fax (geschÃ¤ftlich),UM-Nr. (geschÃ¤ftlich)"

 quellstring.s="Anrede,Vorname,Nachname,E-Mail-Adresse,E-Mail 2: Adresse,StraÃŸe (privat),Postleitzahl (privat),Ort (privat),Bundesland (privat),Land (privat),Telefon (privat),Telefon privat 2,Mobiltelefon,Fax (privat),UM-Nr.,Webseite (privat),Titel,Position,Firma,E-Mail 3: Adresse,Webseite (geschÃ¤ftlich),StraÃŸe (geschÃ¤ftlich),Postleitzahl (geschÃ¤ftlich),Ort (geschÃ¤ftlich),Bundesland (geschÃ¤ftlich),Land (geschÃ¤ftlich),Telefon (geschÃ¤ftlich),Telefon geschÃ¤ftlich 2,Mobiltelefon 2,Fax (geschÃ¤ftlich),UM-Nr. (geschÃ¤ftlich)"
 
 Debug FindString(quellstring,"ÃŸ")
 Debug FindString(quellstring,"ÃŸ",65)
 
 Debug FindString(quellstring,eszet)
 Debug FindString(quellstring,eszet,65)

Verfasst: **05.06.2015 11:17**

Wo bekommst du diese Zeichenketten her? Ist es nicht sinnvoller, den Zeichensatz in der Quelle anzupassen, damit die Sonderzeichen/Umlaute korrekt zurückgegeben werden, so dass du diesen Workaround erst gar nicht machen musst?

PS: Du kannst unter Datei > Datei-Format festlegen, ob Reintext oder UTF8. Ansonsten kannst du von den einzelnen Zeichen den Characterwert ermitteln und mit Chr(CharValue) arbeiten.

Verfasst: **05.06.2015 11:41**

Ist es nicht sinnvoller, den Zeichensatz in der Quelle anzupassen

Geht leider nicht. Ich muß ihn so verarbeiten

Ansonsten kannst du von den einzelnen Zeichen den Characterwert ermitteln und mit Chr(CharValue) arbeiten.

Den Characterwert ermitteln habe ich probiert wenn du ASC() meinst. Hilft auch nicht weiter.

Chr(CharValue) arbeiten

Genau das möchte ich erreichen.

Komme trotz deines Hinweises auch nicht weiter.

Verfasst: **05.06.2015 11:58**

Versuchs mal damit: http://slayeroffice.com/tools/ascii/

Wobei folgender Code bei mir funktioniert:

Code: Alles auswählen

Debug ReplaceString("StraÃŸe", "ÃŸ", "ß")

\\Edit:
Die beste Lösung findest du unten, siehe Code von matbal.

Verfasst: **05.06.2015 12:05**

Wo kommen die Texte denn her?
Das sieht doch nach UTF-8 aus, da muss man doch nichts von Hand ersetzen?!

Verfasst: **05.06.2015 12:08**

Dein Text sieht aus, als hättest du UTF8 gespeicherten Text als ASCII eingelesen.
Das ließe sich auch im nachhinein rückgängig machen, indem du ihn als ASCII ließt und als UTF schreibst.

Code: Alles auswählen

Text$ = "Anrede,Vorname,Nachname,E-Mail-Adresse,E-Mail 2: Adresse,StraÃŸe (privat),Postleitzahl (privat),Ort (privat),Bundesland (privat),Land (privat),Telefon (privat),Telefon privat 2,Mobiltelefon,Fax (privat),UM-Nr.,Webseite (privat),Titel,Position,Firma,E-Mail 3: Adresse,Webseite (geschÃ¤ftlich),StraÃŸe (geschÃ¤ftlich),Postleitzahl (geschÃ¤ftlich),Ort (geschÃ¤ftlich),Bundesland (geschÃ¤ftlich),Land (geschÃ¤ftlich),Telefon (geschÃ¤ftlich),Telefon geschÃ¤ftlich 2,Mobiltelefon 2,Fax (geschÃ¤ftlich),UM-Nr. (geschÃ¤ftlich)"

*buf = AllocateMemory(StringByteLength(Text$, #PB_Ascii))

PokeS(*buf, Text$, -1, #PB_Ascii)   ; als ASCII in den Buffer schreiben
Text$ = PeekS(*buf, -1, #PB_UTF8)   ; als UTF8 wieder auslesen

FreeMemory(*buf)

Debug Text$

Verfasst: **05.06.2015 12:23**

@matbal, das scheint die einfachste Lösung zu sein.
Werde berichten, ob es so geht.
Es handelt sich, unschwer zuerkennen, um eine CSV-Datei.
Obiger ist der Steuersatz.

Verfasst: **05.06.2015 13:11**

Seit wann mach PB einen Unterschied zwischen Variablen mit Namen ue und UE

Verfasst: **05.06.2015 13:14**

dysti hat geschrieben: Es handelt sich, unschwer zuerkennen, um eine CSV-Datei.

Aber dann kannst du doch die Zeilen gleich als UTF8 einlesen:

Code: Alles auswählen

Text$ = ReadString(1, #PB_UTF8)

Verfasst: **05.06.2015 13:35**

Hier fehlt übrigens noch ein Byte:

Code: Alles auswählen

*buf = AllocateMemory(StringByteLength(Text$, #PB_Ascii))

Also:

Code: Alles auswählen

*buf = AllocateMemory(StringByteLength(Text$, #PB_Ascii) + 1)

PureBoard

Umwandlung und Vergleich von deutschen Sonderzeichen

Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen

Re: Umwandlung und Vergleich von deutschen Sonderzeichen