Локализация текста в строке

Str$ = ReplaceString(Str$, "Convert ", "Конвертируем ")
Str$ = ReplaceString(Str$, "Extraction from ", "Извлечение из ")
Str$ = ReplaceString(Str$, " to ", " в ")
Str$ = ReplaceString(Str$, "Creating filesystem with parameters:", "Создание файловой системы с параметрами:")

Procedure SetLanguage(UserLang$="")
    Protected PathLang$, i=0, tmp$, count 
    If UserLang$ <> "" : st\Lang = UserLang$ : EndIf
    PathLang$ = ExePath$+"language\"+st\Lang+".lng"
    count=ArraySize(Lng())
    If FileSize(PathLang$) > 1 And ReadFile(9, PathLang$)
        While Eof(9) = 0
            tmp$ = ReadString(9) 
            If tmp$ And Left(tmp$, 1) <> ";"
                i+1
                If i > count : Break : EndIf ;Прерываем цикл, если в файле больше строк, чем в таблице.
                Lng(i) = tmp$
            EndIf
        Wend
        CloseFile(9)
    EndIf
EndProcedure

If tmp$ And Left(tmp$, 1) <> ";"

If Asc(tmp$) And Asc(tmp$) <> ';'

Asc(tmp$) <> 59

DataSection
    ini:
    IncludeBinary "sample.ini"
    iniend:
EndDataSection

Procedure SaveFile_Buff(File.s, *Buff, Size)
    Protected Result = #False
    Protected ID = CreateFile(#PB_Any, File)
    If ID
        If WriteData(ID, *Buff, Size) = Size
            Result = #True
        EndIf
        CloseFile(ID)
    EndIf
    ProcedureReturn Result
EndProcedure

ini:

Text.s=PeekS(?ini)

FreeMemory(?ini)

PeekS(?lang, ?end_lang-?lang, #PB_UTF8)

text$ = PeekS(?lang, (?end_lang-?lang)-3, #PB_UTF8)