Hallöchen erstmal!
Ich möchte einen UNICODE-Textfile einlesen,
im Programm etwas manipulieren, bzw nach bestimmten Wörtern suchen und als UNICODE-Textfile wieder abspeichern.
Hier ein Programmfragment:
Set oFSO = CreateObject _(„Scripting.FileSystemObject“)
Set fsoOutput = oFSO.CreateTextFile _(FileOutputName, True, False)
Set fsoInput = oFSO.OpenTextFile _(FileInputName, ForReading, 0)
Do While fsoInput.AtEndOfStream True
TextZeile = fsoInput.ReadLine
Rem Text1 ist ein Textelement im Dialog
Rem hier nur erstmal um überhaupt was zu sehen
Text1.Text = StrConv(TextZeile, _ vbFromUnicode)
fsoOutput.WriteLine (TextZeile)
Loop
fsoInput.Close
fsoOutput.Close
In Text1 erscheinen dann nur jede Menges ???
Wenn ich nach Textpassagen suche, dann wird natürlich nichts gefunden, obwohl die gesuchten Texte auf jedenfall enthalten sein müssen.
Die Ausgabedatei wird scheinbar richtig geschrieben. Jedenfalss ist sie nur etwas größer als vorher. (1.023kb 1.043kb)
Kennt jemand einen Texteditor, der unicode anzeigt unter W95? Dateigröße bis zu zig MB!
mit freundlichen Grüßen
Michael Krispin