✔ Falsche Darstellung von eingelesenen Text

[dobermant]

nabend,

Beim Einlesen einer Textdatei werden ständig Sonderzeichen umgewandelt
und in meinem Programm später falsch dargestellt. Beispiel:
Aus
ºUçк
wird
ºUç�º

Ich habe gelesen, dass VB einen Ansitext beim Einlesen von Dateien in Unicode umwandelt und nehme daher an, das daher mein Problem rührt.
Weiss einer vielelicht Abhilfe? Hiermit lese ich den Text ein.

Open Environ$("HOMEPATH") & "\session.log" For Binary As #1
sInhalt = Space$(LOF(f))
Get #f, , sInhalt
 Close #f

Besten Dank

 

[Jacka]

Mit was hast du denn die Datei abgespeichert?
Mit dem Notepad (Editor) oder WordPad?

Ich habe gerade mal folgenden Test ausprobiert:

Private Sub Command1_Click()
Dim datei As String
Dim text As String

datei = "C:\temp\test.txt"

Open datei For Input As #1
    Input #1, text
Close #1

Text1.text = text

End Sub

Dabei habe ich die Dateien unterschiedlich gespeichert.
(Ergebnis siehe Bild im Anhang)

Bin mir nicht sicher, aber ich würde sagen VB liest (als Microsoft-Produkt) ebenfalls als ANSII ein und es liegt an dem Format in dem die Text-Datei gespeichert ist.
Ist aber nur eine Vermutung!

Vielleicht hilft dir dieser Link:
ANSII to ASCII

Kannst ja mal posten, ob es geklappt hat!

Viele Grüße,
Jacka

 

[dobermant]

sorry thema is durch...habs genauso gemacht wie du sagtest...jetzt gehts...danke