掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイル名に<>:*?/等の文字が使われてないかのチェック (ID：34511)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 演算子inで判定できるのかと思っていたのですが AntiVBさんの方法でいけると思いますが・・・ 私はDelphi5 なので以下のような関数で間に合わせています。必要に応じて ExtractFileName と抱き合わせて使います。 ホントは文字コード 0 〜 31 番の文字の対策も必要なんだろうけど。 function CheckFileName(const S: String): Boolean; var i,L: Integer; begin Result := False; L := Length(S); i := 1; if (S = '') or (L > 255) then Exit; while i <= L do begin if S[i] in [#$81..#$9F, #$E0..#$FC] then Inc(i) else if S[i] in ['\', '/', ':', '*', '?', '"', '<', '>', '|'] then Exit; Inc(i); end; Result := True; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.