Когда-то себе писал подобную штуку для поддержки нескольких языков в программе. Номер строк добавил для удобства, чтобы не запутаться.
Вот код:
Dim msg$(999)
Function LoadLanguage()
file=ReadFile("language.ini")
While Not Eof(file)
a$=ReadLine$(file)
i=0
Repeat
i=i+1
Until (Mid(a$,i,1)=":") Or (i>Len(a$))
If i<Len(a$)
index=Left(a$,i-1)
msg(index)=Right(a$,Len(a$)-i)
End If
Wend
CloseFile file
End Function
Файл можешь любой прикрутить, естественно) Но только соблюдай структутру!
Структура файла с текстом должна быть такой:
[Номер строки]:[Текст строки]
Например:
1:Заголовок окна
2:Текстовая строка
Строки могут идти не по порядку, если что
В своём коде сначала запускаешь эту функцию, а потом уже можешь обращаться к любой строке через msg([Номер строки]).
Ну например:
LoadLanguage()
AppTitle msg$(1)
Print msg$(2)
Как-то так о_О