2
Codierungsproblem bei ini-Bearbeitung per VBS
Ich möchte eine von einem Programm erstelle ini-Datei per VBScript bearbeiten. Doch scheinbar kommt mir die Zeichenkodierung in die Quere.
Welche Zeichenkodierungen unterstützt VBScript denn?
Servus Leute,
wenn ich mich nicht täusche ist die Standardzeichenkodierung unter Windows doch wohl ANSI. Damit funktioniert die Editiernug auch wunderbar.
Nun speichert das Programm, dass die ini-Datei erstellt, seine Einstellungen jedoch im UTF-16 LE Format. Damit kommt mein VBScript wohl nicht klar. Das auslesen der ini-Datei per FileSystemObject liefert nur Schrott, einen TextStream per MsgBox nur "ÿþ[" ausgibt (unabhängig vom ini-Inhalt) und ab ca. 130 (ANSI / = 260 UDF-16 LE) Zeichen einen Error beim schreiben in eine Datei erzeugt
Wenn ich den Text per Editor manuell in eine andere ini-Datei kopiere (per Windows erstellt = ANSI Codierung), funktioniert alles, vom Textauslesen bis zum Textschreiben.
Meine Frage ist nun ob jemandem Einschränkungen oder Probleme von VBS mit verschiedenen Zeichenkodierungen bekannt sind und ob es dafür einen Workaround o.ä. gibt.
ini-Datei (Ausschnitt, gibt aber auch schon einen Schreib-Error):
VBScript Beispiel:
Gruß,
halo7one
wenn ich mich nicht täusche ist die Standardzeichenkodierung unter Windows doch wohl ANSI. Damit funktioniert die Editiernug auch wunderbar.
Nun speichert das Programm, dass die ini-Datei erstellt, seine Einstellungen jedoch im UTF-16 LE Format. Damit kommt mein VBScript wohl nicht klar. Das auslesen der ini-Datei per FileSystemObject liefert nur Schrott, einen TextStream per MsgBox nur "ÿþ[" ausgibt (unabhängig vom ini-Inhalt) und ab ca. 130 (ANSI / = 260 UDF-16 LE) Zeichen einen Error beim schreiben in eine Datei erzeugt
Wenn ich den Text per Editor manuell in eine andere ini-Datei kopiere (per Windows erstellt = ANSI Codierung), funktioniert alles, vom Textauslesen bis zum Textschreiben.
Meine Frage ist nun ob jemandem Einschränkungen oder Probleme von VBS mit verschiedenen Zeichenkodierungen bekannt sind und ob es dafür einen Workaround o.ä. gibt.
ini-Datei (Ausschnitt, gibt aber auch schon einen Schreib-Error):
[\Software\PROGRAMX\AlbumArt]
LastAlbumName=str:test
JPG_Quality=int:80
ExtractType=int:0
ExtractTimeSec1=int:60
ExtractTimeSec2=int:300VBScript Beispiel:
Dim FSO, FileName, File, FileText
Const ForReading = 1, ForWriting = 2
Set FSO = CreateObject("Scripting.FileSystemObject")
FileName = "New.ini"
Set File = FSO.OpenTextFile(FileName, ForReading, False)
FileText = File.ReadAll
File.Close
MsgBox FileText
MsgBox Len(FileText)
Text = FileText & "sonstwas"
Set File = FSO.OpenTextFile(FileName, ForWriting, True)
File.Write Text
File.CloseGruß,
halo7one
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 133093
Url: https://administrator.de/contentid/133093
Printed on: April 23, 2024 at 09:04 o'clock
2 Comments
Latest comment
Hallo halo7one!
Versuche es mal mit:
4. Parameter Tristate = True (Unicode)
Gruß Dieter
Versuche es mal mit:
Set File = FSO.OpenTextFile(FileName, ForReading, False, True)Gruß Dieter
also bei mir funktioniert obige ini-Datei zusammen mit dem VBS-Script ohne irgendwelche Zusätze (WIN XP Prof ENG,SP2)
Aber didi1954 hat natürlich auch Recht.
Gruss
Tsuki
Aber didi1954 hat natürlich auch Recht.
Gruss
Tsuki
