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: properly support utf-8 in baseset translation vbscript (#8154)

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

39
media/baseset/translations.vbs
View File

@ -63,10 +63,13 @@ Sub Lookup(ini_key, str_id, outfile)
For Each file In folder.Files For Each file In folder.Files
If UCase(FSO.GetExtensionName(file.Name)) = "TXT" Then If UCase(FSO.GetExtensionName(file.Name)) = "TXT" Then
Dim f Dim f
Set f = FSO.OpenTextFile(file.Path) Set f = CreateObject("ADODB.Stream")
f.Charset = "utf-8"
f.Open
f.LoadFromFile(file.Path)
Do Until f.atEndOfStream Do Until f.EOS
line = f.ReadLine() line = f.ReadText(-2)
If InStr(1, line, "##isocode ") = 1 Then If InStr(1, line, "##isocode ") = 1 Then
p = Split(line) p = Split(line)
@ -80,8 +83,9 @@ Sub Lookup(ini_key, str_id, outfile)
End If End If
i = i + 1 i = i + 1
End If End If
Loop Loop
f.Close
End If End If
Next Next
@ -89,7 +93,7 @@ Sub Lookup(ini_key, str_id, outfile)
ISort output ISort output
For Each line In output For Each line In output
outfile.Write line & vbCrLf outfile.WriteText line, 1
Next Next
End Sub End Sub
@ -100,7 +104,9 @@ Dim infile
Set infile = FSO.OpenTextFile(inputfile) Set infile = FSO.OpenTextFile(inputfile)
Dim outfile Dim outfile
Set outfile = FSO.CreateTextFile(outputfile, True) Set outfile = CreateObject("ADODB.Stream")
outfile.Charset = "utf-8"
outfile.Open
Do Until infile.atEndOfStream Do Until infile.atEndOfStream
@ -109,15 +115,30 @@ Do Until infile.atEndOfStream
If InStr(1, line, "ORIG_EXTRA.GRF ") = 1 Then If InStr(1, line, "ORIG_EXTRA.GRF ") = 1 Then
p = Split(line, "=") p = Split(line, "=")
If Trim(p(1)) = "" Then If Trim(p(1)) = "" Then
outfile.Write("ORIG_EXTRA.GRF = " & GetExtraGrfHash() & vbCrLf) outfile.WriteText "ORIG_EXTRA.GRF = " & GetExtraGrfHash(), 1
Else Else
outfile.Write(line & vbCrLf) outfile.WriteText line, 1
End If End If
ElseIf InStr(1, line, "!! ") = 1 Then ElseIf InStr(1, line, "!! ") = 1 Then
p = Split(line) p = Split(line)
Lookup p(1), p(2), outfile Lookup p(1), p(2), outfile
Else Else
outfile.Write(line & vbCrLf) outfile.WriteText line, 1
End If End If
Loop Loop
' UTF-8 Text ADO Stream includes BOM, so we need to remove it
Dim outfile_noBOM
Set outfile_noBOM = CreateObject("ADODB.Stream")
outfile_noBOM.Type = 1
outfile_noBOM.Open
' Copy Text stream to Binary stream, skiping the BOM
outfile.Position = 3
outfile.CopyTo outfile_noBOM
outfile.Close
' Write the Binary stream
outfile_noBOM.SaveToFile outputfile, 2
outfile_noBOM.Close