<html>
<body>
<script language="vbscript">
<!--
Sub click_sub
Dim i
i = Instr(document.all.txt1.value,"X")
If i > 0 Then
msgbox i & "文字目です"
Else
msgbox "検索できません"
End If
End Sub
-->
</script>
<input type="text" id=txt1 value="abcXYZ">
<input type="button" value="Xを検索" onclick="click_sub">
</body>
</html>
|