出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ）

YasNet（管理人）さん [01/03/20 11:58:47] [84]
　　

かおりさん [01/03/20 13:30:40] [85]
　　　

YasNet（管理人）さん [01/03/20 19:18:26] [86]
　　　　

かおりさん [01/03/21 9:34:37] [87]
　　　　　

管理者により削除されました!! あさん [01/04/02 15:02:28] [93]
　　　

NOIZEさん [01/04/30 7:22:33] [149]

[83] 特定の文字の検索？

投稿者：かおりさん 01/03/20 9:19:28

初めまして。
私は、プログラムに関しての知識は皆無に等い者です。
今回どうしても会社でやらなければならなくて、本を読んで調べてみたもののやはりわからずに、どなたか教えて頂けないかと思い書き込みしました。

E-mail入力欄に半角英数、ハイフン、アンダースコア、ドット、＠以外のものが入力されたときにエラー画面に飛ばしたいのですが、どのようにすればいいのかわかりません。
どなたか教えてください。
宜しくお願いします。

[84] Re:特定の文字の検索？

投稿者：YasNet（管理人）さんの <ホームページ> 01/03/20 11:58:47

こんにちは　YasNetです。

> E-mail入力欄に半角英数、ハイフン、アンダースコア、ドット、＠以外のものが入力されたときにエラー画面に飛ばしたいのですが、どのようにすればいいのかわかりません。
　
mid 関数や　instr 関数を使って一文字づつ確認する方法しかないと思いますよ。
　
お使いのVBScriptが5.0以降であれば、正規表現を使う事も可能ですね。
　　
それでは　頑張ってくださいね。

[85] Re:特定の文字の検索？

投稿者：かおりさん 01/03/20 13:30:40

ご回答ありがとうございました。
先程テストがてら↓をつくってみましたがやっぱりおかしいみたいです。

Dim Input
Input = InputBox("名前を入力してください。")
If InStr(Input,[^a-zA-Z0-9_\@\-\.]) = True then

MsgBox ("不正な入力です。")
Else
MsgBox (Input & "を入力しました。")
End If

プログラムの事全然わからないので、本を見ながら作ってみたのですが…。
どんなもんでしょう…。

[86] Re:特定の文字の検索？

投稿者：YasNet（管理人）さんの <ホームページ> 01/03/20 19:18:26

こんにちは　YasNet　です。
　
> Dim Input
> Input = InputBox("名前を入力してください。")
> If InStr(Input,[^a-zA-Z0-9_\@\-\.]) = True then
> プログラムの事全然わからないので、本を見ながら作ってみたのですが…。
　
う～ん、記述から訳がわからないって事が伝わってきます。
いや、ひょっとしてPERLプログラム経験者？
　
regExp でマニュアルを探してみて下さい。
下記サイトにオンラインマニュアル（VBScript）があります
http://www.microsoft.com/japan/developer/scripting/?/japan/developer/scripting/jscript/doc/jstoc.htm
　
では　頑張って下さいね。

[87] Re:特定の文字の検索？

投稿者：かおりさん 01/03/21 9:34:37

> う～ん、記述から訳がわからないって事が伝わってきます。
> いや、ひょっとしてPERLプログラム経験者？

いえいえ。
全くプログラムはやったことがないんですよ～。
HTMLしかわかりません。（笑）

> regExp でマニュアルを探してみて下さい。
> 下記サイトにオンラインマニュアル（VBScript）があります
> では　頑張って下さいね。

ありがとうございます。
がんばってやってみます！

[93] Re:特定の文字の検索？

投稿者：あさん 01/04/02 15:02:28

管理者により削除されました!!

[149] Re:特定の文字の検索？

投稿者：NOIZEさん 01/04/30 7:22:33

それは正規表現といってプログラミングをある程度理解してから使うようにした方が
いいですね。初心者ですと混乱するだけです。
下記にかおりさんの書いたソースが動くように修正しましたので、参考にしてください。
<html>
<head>
<script language="vbScript">
sub InpCheck()
Set wd = New RegExp
wd.Pattern = "([^a-zA-Z0-9_\@\-\.])"
strs=wd.Test(t1.value)
if strs then
MsgBox ("不正な入力です。")
else
MsgBox (t1.value & "を入力しました。")
end if
end sub
</script>
<title></title>
</head>
<body>
<input type=text name=t1><input type=button value="CLICK" onclick=InpCheck()>
</body>
</html>

なお　前述しましたようにこのような正規表現を理解する前に基本的な文法を
おぼえることをお勧めします。Scriptなどは簡単ですので、すぐにおぼえることが
できますよ。