HSP Tips / HSPモジュール

使用できない文字が含まれていた場合0を返す

説明

　ファイル名の名前の文字列で、使用できない文字が含まれていた場合0を返します。

HSPスクリプト

//Created by As(http://hp.vector.co.jp/authors/VA034028/)
#module
#uselib "user32"
#func GetWindowText "GetWindowTextA" int,var,int
//filenamecheck - 使用できない文字が含まれていた場合0を返す。
#defcfunc filenamecheck str _pass
	logsel =ginfo_sel
	gsel 0
	sdim titles,1024
	GetWindowText hwnd,titles,1024
	gsel logsel
stt=1
s1=_pass




s3={"
/
\\
:
*
?
\"
<
>
|
\#
{
}
%
&
~
.."}

notesel s3
repeat notemax
	noteget s2,cnt
	if instr(s1,0,s2)!-1{
		stt=0
	}
loop


if strmid(s1,0,1)=".":stt=0
if strmid(s1,-1,1)=".":stt=0
mes s3
if stt=0{

	dialog "ファイル名に使用できない文字が含まれています。",1,titles
}
if (_pass="")|(_pass=0):dialog "空白の箇所があります。",1,titles:stt=0
return stt

#global