---

Hallo,
ich hab hier schon so viel Gutes erfahren und hab gedacht vielleicht kann ich auch jemanden etwas Gutes tun.
Mit dem folgenden Code kann eine z.B. XML UTF-16 in eine UTF-8 oder ISO-8859-1 umcodiert werden.
Vielleicht geht das alles eleganter aber ich bin in meinen Möglichkeiten geblieben.
Für Tipps/Verbesserungen bin ich immer offen.

Code:

---

(defun vk_WriteTextStream (Stream FileName Charset / ADODBStreamObj Result)
  (if (setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))
    (progn (setq Result (vl-catch-all-apply
  (function
    (lambda ()
      (vlax-put ADODBStreamObj "Charset" Charset)
      (vlax-invoke ADODBStreamObj "Open")
      (vlax-invoke-method ADODBStreamObj "WriteText" Stream 0)
      (vlax-invoke ADODBStreamObj "SaveToFile" FileName 2)
    )
  )
)
  )
  (vlax-release-object ADODBStreamObj)
  (if (not (vl-catch-all-error-p Result))
    FileName
  )
    )
  )
)
;;;(vk_WriteTextStream "??????? ??????? ?? ??????" "C:\\Temp\\test.txt" "utf-8")
(defun vk_ReadTextStream (FileName Charset / ADODBStreamObj Result)
(if (and (setq FileName (findfile FileName))
(setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))
)
    (progn (setq Result (vl-catch-all-apply
  (function
    (lambda ()
      (vlax-put ADODBStreamObj "Charset" Charset)
      (vlax-invoke ADODBStreamObj "Open")
      (vlax-invoke ADODBStreamObj "LoadFromFile" FileName)
      (vlax-invoke-method ADODBStreamObj "ReadText" -1)
    )
  )
)
  )
  (vlax-release-object ADODBStreamObj)
  (if (not (vl-catch-all-error-p Result))
    Result
  )
    )
  )
)
;;;(vk_ReadTextStream "C:\\Temp\\test.txt" "utf-8")

(defun UTF_Convert (FileName1 Codek1 FileName2  Codek2 / SuchenErsetzen StringOrg StringNew f Inhalt)
(setq Codek1 (strcase Codek1)
Codek2 (strcase Codek2)
)
(if (= Codek1 "ANSI")
(progn
(setq f (open FileName1 "r"))
(setq StringOrg (read-line f))
(while (setq Inhalt (read-line f ))
(princ Inhalt )
(setq StringOrg (strcat StringOrg "\n" Inhalt  ))
)
(close f)
)
(setq StringOrg (vk_ReadTextStream FileName1 Codek1 ))
)

(if (or (vl-string-search Codek1 StringOrg )(vl-string-search "WINDOWS-1252" StringOrg )(vl-string-search "windows-1252" StringOrg ))
(progn
(cond ((vl-string-search "WINDOWS-1252" StringOrg ) (setq StringNew (vl-string-subst Codek2 "WINDOWS-1252" StringOrg )))
((vl-string-search "windows-1252" StringOrg ) (setq StringNew (vl-string-subst Codek2 "windows-1252" StringOrg )))
((= Codek2 "ANSI" ) (setq StringNew (vl-string-subst "WINDOWS-1252" Codek1 StringOrg )))
((vl-string-search Codek1 StringOrg ) (setq StringNew (vl-string-subst Codek2 Codek1 StringOrg )))
(t nil)
)
)
(progn
(princ "\n Codek nicht in datei gefunden! " )
(setq StringNew StringOrg )
)
)
(if (= Codek2 "ANSI")
(progn
(setq f (open FileName2 "w"))
(write-line StringNew f)
(close f)
)
(vk_WriteTextStream StringNew FileName2 Codek2 )
)
)

;;;;(UTF_Convert "C:\\Temp\\AllElements.xml" "utf-16" "C:\\Temp\\AllElementsNew.xml" "utf-8" )

(defun C:UTF-Conv (/ FileName1 Codek1 FileName2 Codek2 )
(setq FileName1 (getfiled "Zu konvertierende Datei wählen" (getvar "dwgprefix") "" 8 ))
(setq Codek1 (getstring "\nGeben Sie den aktuellen Codak ein [UTF-16/UTF-16LE/UTF-16BE/UTF-8/ANSI/ISO-8859-1]: "))
(setq FileName2 (getfiled "Zieldatei angeben" FileName1 "" 1 ))
(setq Codek2 (getstring "\nGeben Sie den gewünschten Codak ein [UTF-16/UTF-16LE/UTF-16BE/UTF-8/ANSI/ISO-8859-1]: "))
(UTF_Convert FileName1 Codek1 FileName2  Codek2)
)

---

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

---

Hallo zusammen,
gibt es auch einen Code wie untem im Beitrag der Texte die mit der Codepage 850, aus DOS Zeiten, erstellt wurden in UTF-8 zu konvertieren?
Meine Kentnisse mit vlax.... sind leider sehr bescheiden.
Gruß
Niggemann

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

---

Wenn du den DOS-850 codec installiert hast, dann sollte das darüber funktionieren
HKEY_CLASSES_ROOT\MIME\Database\

Würde mich auch interessieren, bei mir ist dieser aber nicht installiert, auch nicht der ÄHNLICHE US 473.

Wie ich andere installieren und woher ich die beziehen kann:
Da mir 30min Recherche nicht ausreichte, bin ich raus - lese aber weiter mit, falls du erfolgreich warst.

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

---

Die Idee mit HKEY_CLASSES_ROOT\MIME\Database\ war nicht schlecht habe aber alles in der REG nur das nicht. Einzige Möglichkeit die ich noch sehe ist eine Konvertierung von oem850 auf ansi1252, gibt es hier im Forum auch einen Beitrag,
https://ww3.cad.de/foren/ubb/Forum145/HTML/002524.shtml#000001
und dann auf UTF-8 konvertieren. Dieses doppelte konvertieren wollte ich mir eigentlich ersparen.

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

---

Nach langen vergeblichen suchen hab ich mich entschlossen die Texte
zu konvertieren und dann in UTF-8 zu konvertieren. Hat den Vorteil das ich auf anderen Rechnern mein Lisp benutzen kann ohne etwas nach zu instalieren und kann damit auch die Codepage 437 und 850 bearbeiten.
Gruß
Niggemann

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