XIB XMLのidライクなランダム文字列を返す

macOSアプリや、iOSアプリで使うXIBファイルのXMLを生成しようとしている。XMLソースを見るとViewやWindowに次のような記述がある。

 id="AYu-sK-qS6"

この3桁-2桁-3桁のランダム文字列を作成するメソッドを作ってみた。まず文字列だけを返すメソッド。引数は文字数。

C_TEXT($letters)
$letters:=JCL_str_RandomAlphabets(3)
ALERT($letters)

次に、文字と数字を混ぜたもの。

C_TEXT($letters)
$letters:=JCL_str_RandomAlphaNumbers(3)
ALERT($letters)

次は本番。

C_TEXT($letters)
$letters:=JCL_str_RandomAlphaNumbers(3)+"-"+JCL_str_RandomAlphaNumbers(2)+"-"+JCL_str_RandomAlphaNumbers(3)
ALERT($letters)

実行すると、

ソースはJCLマニュアルサイトを参照。

JCL_str_RandomAlphabets

JCL_str_RandomAlphaNumbers