Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text einlesen

Forumthread: Text einlesen

Text einlesen
20.12.2006 09:38:33
haw
Hallo Excelfreunde
ich lese Textdateien mit Open Datei For Input As #1 ein.
Es funktioniert auch alles wunderbar, nur die Sonderzeichen (Umlaute und ß) werden falsch gelesen. Kann man das ändern, wenn ja, wie?
Gruß Heinz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text einlesen
20.12.2006 10:23:37
Matthias
Hallo Heinz,
wenn du die Textdatei mit dem Editor öffnest, sind die Umlaute also korrekt?
Ich denke nämlich, es liegt an der Zeichentabelle (z.B. DOS-Zeichensatz).
Gruß Matthias
AW: Text einlesen
20.12.2006 10:30:15
haw
Hallo Matthias,
danke für deine Antwort.
Nein, sie sind auch im Editor nicht korrekt. Anstatt der Umlaute steht ein schwarzer Block.
Gruß Heinz
Anzeige
AW: Text einlesen
20.12.2006 10:35:50
Matthias
Hallo Heinz,
woher bekommst du denn die Textdatei? Die einfachste Lösung wäre nämlich, den Export entsprechend anzupassen. Wenn das nicht geht, verwende die Replace-Funktion.
Gruß Matthias
AW: Text einlesen
20.12.2006 10:39:07
haw
Hallo Matthias,
der Export erfolgt aus einem großen Lohnprogramm, da habe ich leider keine Möglichkeit.
Dann werde ich es mit REplace korrigieren.
Vielen Dank.
Gruß Heinz
Anzeige
AW: Text einlesen
20.12.2006 11:18:32
haw
Hallo Matthias,
hier "meine" Lösung, für den Fall, dass das sonst noch jemand interessiert:
Option Explicit
Private Declare 

Function OemToCharA Lib "user32.dll" (ByVal _
lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare 


Function CharToOemA Lib "user32.dll" (ByVal _
lpszSrc As String, ByVal lpszDst As String) As Long
Public 


Function ASCII2ANSI(ByVal Text As String) As String
Call OemToCharA(Text, Text)
ASCII2ANSI = Text
End Function



Public 


Function ANSI2ASCII(ByVal Text As String) As String
Call CharToOemA(Text, Text)
ANSI2ASCII = Text
End Function



Mit diesen Funktionen kann man Texte von ASCII zu ANSI und umgekehrt umwandeln.

Den Code habe ich aus diesem Forum. Nochmals herzlichen Dank dem Autor.

Auch dir ein Frohes Fest und ein besseres Jahr als es das vergangene war!

Gruß Heinz
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige