diff options
| -rw-r--r-- | media/baseset/translations.vbs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/media/baseset/translations.vbs b/media/baseset/translations.vbs index 8632ef069..c16788693 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) |