AutoHotkey Community

#NoEnv

; Global variables
language := "en" ; Default

langFilePrefix := "./language_"
langFileSuffix := ".ini"

messageArraySize := 0
errorArraySize   := 0
labelArraySize   := 0

; -----------------------------------------------------------------------------
/*
   Main program starts here
*/

langFile := langFilePrefix . language . langFileSuffix
Gosub, ReadLanguage

fmessage := StringF(message_1, "Two", 12, 7, 3)

MsgBox, , My message, %fmessage%

Loop, %errorArraySize%
{
   tmpErrorMsg := error_%A_Index%
   allErrors = %allErrors%%tmpErrorMsg%`n
}
MsgBox, , Errors, %allErrors%

Loop, %labelArraySize%
{
   tmpLabelMsg := label_%A_Index%
   allLabels = %allLabels%%tmpLabelMsg%`n
}
MsgBox, , Labels, %allLabels%

/*
   Main program ends here
*/
; -----------------------------------------------------------------------------
/*
   Reads the language file and creates the following arrays according to the
   content of the language file.
   - message_
   - error_
   - label_

   The numbering of the parameters in the sections need to be strictly subsequent.
   If there is no direct successor to a parameter like msg_3, the reading loop
   will quit reading the section
   
   The array index will start with 1, NOT with 0 !
*/
ReadLanguage:
{
   ; Read the Messages section
   Loop {
      IniRead, tmpMsg, %langFile%, Messages, msg_%A_Index%
      If (tmpMsg <> "ERROR")
      {
         message_%A_Index% := tmpMsg
      }
      Else
      {
         messageArraySize := A_Index - 1
         break
      }
   }
   ; Read the Errors section
   Loop {
      IniRead, tmpErr, %langFile%, Errors, err_%A_Index%
      If (tmpErr <> "ERROR")
      {
         error_%A_Index% := tmpErr
      }
      Else
      {
         errorArraySize := A_Index - 1
         break
      }
   }
   ; Read the Labels section
   Loop {
      IniRead, tmpLbl, %langFile%, Labels, lbl_%A_Index%
      If (tmpLbl <> "ERROR")
      {
         label_%A_Index% := tmpLbl
      }
      Else
      {
         labelArraySize := A_Index - 1
         break
      }
   }
}
Return

/*
   Poor man´s string format:
   If the given string contains variables like @@1, @@2, ... @@9, the function
   replaces them all with the given values.
   Note that the first value must be specified, all following are optional
*/
StringF(ByRef sourceStr, val_1, val_2 = "", val_3 = "", val_4 = "", val_5 = "", val_6 = "", val_7 = "", val_8 = "", val_9 = "")
{
   StringReplace, resultStr, sourceStr, @@1, %val_1%, All
   If (val_2 <> "")
      StringReplace, resultStr, resultStr, @@2, %val_2%, All
   If (val_3 <> "")
      StringReplace, resultStr, resultStr, @@3, %val_3%, All
   If (val_4 <> "")
      StringReplace, resultStr, resultStr, @@4, %val_4%, All
   If (val_5 <> "")
      StringReplace, resultStr, resultStr, @@5, %val_5%, All
   If (val_6 <> "")
      StringReplace, resultStr, resultStr, @@6, %val_6%, All
   If (val_7 <> "")
      StringReplace, resultStr, resultStr, @@7, %val_7%, All
   If (val_8 <> "")
      StringReplace, resultStr, resultStr, @@8, %val_8%, All
   If (val_9 <> "")
      StringReplace, resultStr, resultStr, @@9, %val_9%, All
   
   Return resultStr
}

[Messages]
msg_1  = @@1 months ago, after drinking @@2 beer I saw @@3 white mice and @@4 pink elephants

[Errors]
err_1  = 1st Error
err_3  = This error message will never be read since there is no err_2 parameter

[Labels]
lbl_1  = 1st Label
lbl_2  = 2nd Label