JCL_str_RandomAlphaNumbers

/ JCL_str, 未分類 / By

指定した文字数のランダムなアルファベットを返す。大文字小文字に数字が混じる。

使い方
$letters:=JCL_str_RandomAlphaNumbers (3)

引数
$1: 文字数（整数）
$0: 文字列（文字数で指定した桁）

最初のランダムコマンドで大文字か小文字を決定し、あとは大文字２６文字、小文字２６文字、数字１０文字のいずれかを採用。

//JCL_str_RandomAlphaNumbers
//20250208 wat@KUALA LUMPUR
//id生成ロジックが必要になり、ランダムにアルファベットまたは数字を返すメソッドを作成
//A:65 - Z:90, a:97 - z:122, 0:48 - 9:57
C_LONGINT($1; $numOfLetters)
$numOfLetters:=$1
C_TEXT($0; $randoms)
$randoms:=""C_LONGINT($i)
C_TEXT($letter)
C_LONGINT($tmpNum)

For ($i; 1; $numOfLetters)
	//指定された文字数だけ連続
		$tmpNum:=Random%62

		If ($tmpNum<10)
		//数字: Number letter
		$letter:=Char($tmpNum+48)
	
		End if

 		If ((10<=$tmpNum) & ($tmpNum<36))
		//大文字、Capital letter
		$letter:=Char($tmpNum+(65-10))
	
		End if
 
		If (36<=$tmpNum)
		//小文字、Small letter
		$letter:=Char($tmpNum+(97-36))
	
		End if
 		$randoms:=$randoms+$letter
	
End for

 $0:=$randoms

macOSアプリやiOSアプリで使うXibファイルのXMLオブジェクトのidを生成したかったら、次のように使う。

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

大文字、小文字だけのタイプはこちら。→　JCL_str_RandomAlphabets