Skip to content

now you can update translations #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
denizsincar29 wants to merge 1 commit into
base: master
Choose a base branch
from
Open

now you can update translations #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 12 additions & 6 deletions Extract.au3
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8,18 +8,19 @@ Global Const $ECI = @ScriptDir & '\eci\build\eci.exe'
Main()

Func Main()
Local $sScript = FileOpenDialog("Select Script", @WorkingDir, 'AutoIt Script (*.au3)', $FD_FILEMUSTEXIST)
Global $sScript = FileOpenDialog("Select Script", @WorkingDir, 'AutoIt Script (*.au3)', $FD_FILEMUSTEXIST)
If @error Then Return
Local $aStrings = ExtractStrings($sScript)
If $aStrings[0] = 1 And $aStrings[1] = "" Then
MsgBox($MB_ICONWARNING, "No translatable strings", "There were no translatable strings found in your script, please make sure you use the underscore function to wrap your translatable strings!")
Return
EndIf

Global $sTableFile = FileSaveDialog("Save translation table", @WorkingDir, 'Tab Separated Values (*.tsv)|All (*.*)', 0, 'translations.tsv')
;i moved local sTablefile up because we must know what file we are updating.
Local $sTable = GenerateTranslationTable($aStrings)
Local $sTableFile = FileSaveDialog("Save translation table", @WorkingDir, 'Tab Separated Values (*.tsv)|All (*.*)', 0, 'translations.tsv')
If @error Then Return
Local $hTableFile = FileOpen($sTableFile, $FO_OVERWRITE + $FO_UTF8_NOBOM)
;removed $fo_overwrite because maybe we want to update the translation table with new strings.
Local $hTableFile = FileOpen($sTableFile, $FO_UTF8_NOBOM+$FO_APPEND)
FileWrite($hTableFile, $sTable)
FileClose($hTableFile)
EndFunc
Expand All @@ -35,10 +36,15 @@ Func ExtractStrings($sFile)
EndFunc

Func GenerateTranslationTable(ByRef $aStrings)
local $ss
if fileexists($stablefile) then
$ss=fileread($stablefile) ;this is made to update a translation file with not existing translated strings that were added to the translated program later
endif
Local $sTable
For $i = 1 To $aStrings[0]
If StringIsSpace($aStrings[$i]) Or StringLen($aStrings[$i]) = 0 Then ContinueLoop
;checking if a translation table have this string, as well as checking if a line is space or stringlen=0
If StringIsSpace($aStrings[$i]) Or StringLen($aStrings[$i]) = 0 or stringinstr($ss,$aStrings[$i]) Then ContinueLoop
$sTable &= $aStrings[$i] & @TAB & $aStrings[$i] & @LF
Next
Next
Return $sTable
EndFunc