'----------------------------------------------------------------------												
' 機能         ：  VBS版共通入力チェック                               												
' 修正履歴     ：   												
'                                                                      												
'----------------------------------------------------------------------												
'												
'----------------------------------------------------------------------												
' @summary  ：  ３バイト文字チェック												
' @param    ：  対象文字列  :  チェック対象文字列（省略不可）												
' @return   ：  "0"         :  チェックＯＫ												
'               "1"         :  ３バイト文字を含む												
' 65536 - 十進に戻す(SJIS)												
'----------------------------------------------------------------------												
Function characterCodeChk( TaishoMojiretsu )												
	Dim I											'ループカウンタ
	Dim MyNumber									'文字コード領域(ワーク)		
	Dim TheString									'対象文字領域(ワーク)		
	Dim MyLen										'対象文字列の長さ	
	Dim returnCode									'リターンコード		
												
	'MyVar = MsgBox ("入力文字列=[" & TaishoMojiretsu & "]", 0, "デバッグ")		'デバック用表示									
												
	returnCode = "0"											
	MyLen = Len(TaishoMojiretsu)											
	'MyVar = MsgBox ("入力文字列の長さ=" & MyLen, 0, "デバッグ")		'デバック用表示									
												
	'対象文字列分以下の処理を繰り返す											
	For I = 1 To MyLen											
		TheString = Mid(TaishoMojiretsu,I,1)										
		MyNumber = Asc(TheString)										
		'MyVar = MsgBox ("文字コード=" & MyNumber, 0, "デバッグ")		'デバック用表示								
												
		'３バイトの範囲かどうかを判定										
		If ( 0 => MyNumber And MyNumber >= -4865) Then										
			'MyVar = MsgBox ("エラー！(" & TheString & ")", 0, "デバッグ")		'デバック用表示							
			MyVar = MsgBox ("入力禁止文字 = 「 " & TheString & " 」", 0, "入力禁止文字エラー")									
			'エラーリターン									
			returnCode = "1"									
			Exit For									
		End If										
	Next											
												
	characterCodeChk = returnCode											
												
END Function