---

Hallo,
wenn ich eine txt-datei über Read-Line einlese erhalte ich anstatt einer "0" folgendes Zeichen : "0".
Kurioserweise tritt dieses Verhalten nicht immer auf.
Aus einem "Ä" wird auch ein "À".
Hat jemand ne Idee woher dies Verhalten kommt und wie man es evt. beheben kann ?

DANKE

Gruß CADMATIC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo CADMATIC,

klingt irgendwie nach Codepage Geschichten, oder so. Wenn Du mal die TXT Datei oder zumindest ein Stückchen davon zur Verfügung stellen könntest, könnten sich auch andere mal dieser Sache annehmen.

Gruß
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

TEST.txt

Hallo,

es handelt sich um das sogenannte "UTF-8" Format und kommt aus einer Webapplikation.

Gruß CADMATIC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also ich konnte das Verhalten nachvollziehen.
Habe die Textdatei mit einen Texteditor umkonvertiert (im Test von UTF8 nach ASCII) und konnte damit zumindest das Problem mit der "0" beheben. Aber aus "Ä" wurde dabei "{".

Code:

---

_$ (setq ifile (getfiled "x" "" "txt" 4))
"C:\\Daten\\temp\\TEST.txt"
_$ (setq ifh (open  ifile "r"))
#<file "C:\\Daten\\temp\\TEST.txt">
_$ (setq xz (read-line ifh))
"0;Edelstahl;24;U116;24;U116;11577006;vertikal;60;60;HÀttrich;1;1;60;140;"
_$ (close ifh)
nil
_$ (setq ifile (getfiled "x" "" "txt" 4))
"C:\\Daten\\temp\\TESTa.txt"
_$ (setq ifh (open  ifile "r"))
#<file "C:\\Daten\\temp\\TESTa.txt">
_$ (setq xz (read-line ifh))
"0;Edelstahl;24;U116;24;U116;11577006;vertikal;60;60;H{ttrich;1;1;60;140;"
_$ (close ifh)
nil

---

Also in der Richtung weitersehen.

HTH
Gruß
Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nicht UTF-8 sondern UTF-8 BOM
Als Suchbegriff zum einlesen und ggf. Lösungsfindung

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Durch manuelles konvertieren auf ANSI habe ich auch das gewünschte Ergebnis bekommen.
Läßt sich das beim Einlesen im Lisp nicht regeln ? Jede Datei manuell zu konvertieren ist irgendwie nicht so prickelnd.

Gruß CADMATIC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

probier das mal

Code:

---

(defun test (server / xml ret)
  (vl-catch-all-apply
    (function
      (lambda ()
        (setq xml (vlax-get-or-create-object "MSXML2.XMLHTTP.3.0"))
        (vlax-invoke-method xml 'open "GET" server :vlax-false)
        (vlax-invoke-method xml 'send)
        (setq ret (vlax-get-property xml 'responsetext))
      )
    )
  )
  (if xml (vlax-release-object xml))
  ret
)

---

(test "c:\\test.txt")

rueckgabe bei mir:
"0;Edelstahl;24;U116;24;U116;11577006;vertikal;60;60;Hättrich;1;1;60;140;\r\n1;Metall;14;F04/015;14;F04/015;11577006;vertikal;60;60;Hättrich;1;1;60;140;"

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, das klappt auch bei mir !
Gruß CADMATIC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

test.txt

Hallo Forum!

Da mein aktuelles Problem eigentlich sehr gut dazu passt greif diesen älteren Thread nochmal auf.

Ich muss einen TXT-File mit UTF-8-Kodierung einlesen. Da in dem TXT-File unter anderem cyrillische Schriftzeichen vorhanden sind bekomm ich bei der Konvertierung zur ANSI-Kodierung natürlich nur Kauderwelsch raus.

Wie kann ich den UTF-8-Textfile mit Lisp einlesen sodass die cyrillischen Texte auch ankommen? 

Anbei ein Beispiel...
Z.B. aus UTF-8-Kodierung "ИЗДАНИЕ" wird in ANSCI-Kodierung "ИЗДАНИЕ"

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Siegfried,
ich habe in Lisp dazu auch keine Lösung gefunden.
Ich habe mir in .Net einen UTF-8-Converter geschrieben, der mir den Dateiinhalt in eine Abfolge von HEX-Codes zurück gibt. Diese können dann ja auch in Lisp in die Texte eingefügt werden.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger,

Danke für deine Antwort. Sowas in der Art hab ich leider schon befürchtet - und das übersteigt dann meine laienhaften Programmierkentnisse  .

Wir werdens jetzt anders rum angehen:

Bereits im einzulesenden Textfile werden die cyrillischen Schriftzeichen werden durch irgedwelche ANSI-Zeichen (z.B."Ï" anstelle von "И") ersetzt. Somit brauch ich nicht mehr mit UTF-8-Codierung arbeiten.
Beim Einlesen der TXT-Datei mit Lisp ersetzte ich die entsprechenden Zeichen wieder zurück auf cyrillische Zeichen.

Ich schaffe quasi ein Dummy-Alphabet...

Ist zwar nicht wirklich elegant - aber das bekomm ich halt mit meinem Lisp-Halbwissen noch hin 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Siegfried,

dann kannst du auch auf der Erstellerseite gleich eine Abfolge von ASCI-Nummern rausschreiben lassen und brauchst dann keine Alphabet-Datei.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

UTF82ANSICODE.zip

Hallo Siegfried,

ich habe eben mal ein Tool geschrieben, welches dir eine UTF-8 kodierte Datei in Ansi-Hex-Codes konvertiert. Darin wird gleich das \\U+ mit eingefügt, so dass du den aus der konvertierten Datei eingelesenen String gleich in ein AutoCAD-Textobjekt einsetzen kannst.

Die UTF82ANSICODE.exe erwartet einen Startparameter, den Dateinamen der UTF-8 Datei (vollständige Pfadangabe).
Im Ergebnis wird dann an den Speicherort eine um ein _UC erweiterte txt-Datei geschrieben.
Diese kannst du dann in Lisp direkt verwenden.

Anbei ebenfalls ein Beispiel, wie man das in Lisp umsetzen könnte.
(Ich habe mit findfile gearbeitet, du kannst aber auch den vollständigen Pfad zur exe eingeben.)

Bei Fragen ...

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger,

Wow starkes Tool!

In der Zwischenzeit haben wir die erste Idee mit dem "Dummy-Aphabet" schon mal umgesetzt - damit wir zumindest mal Arbeiten können  .

Sobald wieder etwas Zeit bleibt möcht ichs dann umstellen dass wir auf dein Tool aufbauen.

Grundsätzlich funktioniert meine Lisp-Programm mit den von deinem Tool erstellten Ansi-Files. Einzig der Tabstopp wird innerhalb meines Lisp's nicht mehr als Tabstopp erkannt. Aber das wird dann auch keine große Sache mehr sein. 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Schachinger:
... Sobald wieder etwas Zeit bleibt möcht ichs dann umstellen dass wir auf dein Tool aufbauen.

---

Bekommst du das AutoCAD Magazin? Ich habe das Tool so erweitert, dass es direkt als Lisp-Funktion genutzt werden kann. Das Tool wird in einem der nächsten Hefte veröffentlicht, dann kannst du auch solange warten, und hast es bei der Überarbeitung noch einfacher.

Grüße!
Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Holger,

AutoCAD-Magazin bin ich mir nicht sicher - da muss ich mal bei der GF nachfragen (wenn dann beziehen die das).

Wir werdens jetzt aber in Zukunft gleich so ändern das beim Erstellen der TXT-Datei (die kommt aus AVEVA-E3D) cyrillische Schriftzeichen gleich in HEX-Codes umgewandelt werden und wir keine UTF-8-Kodierung mehr brauchen. 

------------------
mfg Siegfried Schachinger
http://www.tbschatz.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP