Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige