i18n

別ファイルに分離する ロケールファイル(例: TXTED)

TXTED.JA

"Save As":"名前を付けて保存"
"New":"新規作成"
"Open":"開く"
"Save":"保存"

KEY$をデフォルト言語にするかそれとは分離するようにする

"SAVE":"Save"
"NEW":"New"
"SAVE_AS":"Save as"
"OPEN":"Open"

OpenLocalizeFile NAME$ OUT LOCALIZE,ERR

NAME$のロケールファイルを読み込む

ERROR CloseLocalizeFile(LOCALIZE)

ローカライズファイルを閉じる

GetLocalizeText(LANG, KEY$)

ロケールファイルからKEY$に対応するテキストを取得、もしロケールファイルが存在しなければKEY$をそのまま返す

Examples

VAR TXTED_NEW$
VAR TXTED_OPEN$
VAR TXTED_SAVE$
VAR TXTED_SAVEAS$
DEF I_TXTED
'...
 VAR ERROR
 VAR LOCALIZE
 LoadLocalizeFile "TXTED" OUT LOCALIZE, ERROR
 TXTED_NEW$ = GetLocalizeText(LOCALIZE, "New")
 TXTED_OPEN$ = GetLocalizeText(LOCALIZE, "Open")
 TXTED_SAVE$ = GetLocalizeText(LOCALIZE, "Save")
 TXTED_SAVEAS$ = GetLocalizeText(LOCALIZE, "Save as")
 ERROR = CloseLocalizeFile(LOCALIZE)
'...
END

このままだとメモリリークするので終了時に文字列の開放処理すべき