From f6223f8ac266f75fdc55f2d9daf0f8574235844a Mon Sep 17 00:00:00 2001 From: glx22 Date: Tue, 19 May 2020 17:42:29 +0200 Subject: [PATCH] Fix #8161, e31def197: Lang files may have LF EOL (#8163) --- media/baseset/translations.vbs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/media/baseset/translations.vbs b/media/baseset/translations.vbs index 8632ef0697..c167886930 100644 --- a/media/baseset/translations.vbs +++ b/media/baseset/translations.vbs @@ -65,11 +65,12 @@ Sub Lookup(ini_key, str_id, outfile) Dim f Set f = CreateObject("ADODB.Stream") f.Charset = "utf-8" + f.LineSeparator = 10 ' Assume lines end with \n even for \r\n files f.Open f.LoadFromFile(file.Path) Do Until f.EOS - line = f.ReadText(-2) + line = Replace(f.ReadText(-2), Chr(13), "") ' Read a line and remove any \r If InStr(1, line, "##isocode ") = 1 Then p = Split(line)