gronod/OpenTTD
1
0
Fork 0
mirror of https://github.com/OpenTTD/OpenTTD.git synced 2025-01-31 03:12:41 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix #8161, e31def197: Lang files may have LF EOL (#8163)

Browse Source
This commit is contained in:
glx22 2020-05-19 17:42:29 +02:00 committed by GitHub
parent b8a896d52c
commit f6223f8ac2
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
media/baseset/translations.vbs
View File

@ -65,11 +65,12 @@ Sub Lookup(ini_key, str_id, outfile)
Dim f Dim f
Set f = CreateObject("ADODB.Stream") Set f = CreateObject("ADODB.Stream")
f.Charset = "utf-8" f.Charset = "utf-8"
f.LineSeparator = 10 ' Assume lines end with \n even for \r\n files
f.Open f.Open
f.LoadFromFile(file.Path) f.LoadFromFile(file.Path)
Do Until f.EOS 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 If InStr(1, line, "##isocode ") = 1 Then
p = Split(line) p = Split(line)