Jawab sendiri aaaah. Semoga bermanfaat bagi teman-teman:)
<script language=vbscript runat=server>
main
'ini untuk mengetes program
sub main
strHarusAda = "abcdefghijklmnopqrstuvwxyz1234567890_"
strCek = "aa_haq": response.write strCek & ": " & _
boleh(strCek, strHarusAda) & "<br>"
strCek = "aa-haq": response.write strCek & ": " & _
boleh(strCek, strHarusAda) & "<br>"
strCek = "aa haq": response.write strCek & ": " & _
boleh(strCek, strHarusAda) & "<br>"
strCek = "451584": response.write strCek & ": " & _
boleh(strCek, strHarusAda) & "<br>"
end sub
'ini untuk mengecek boleh atau tidaknya
function boleh(strKata,strBolehAda)
boleh = true
for i = 1 to len(strKata)
if not ereg(strBolehAda, mid(strKata,i,1), true) then
boleh=false
end if
next
end function
'ini untuk regular expression-nya
function ereg(strOriginalString, strPattern, varIgnoreCase)
' Function matches pattern, returns true or false
' varIgnoreCase must be TRUE (match is case insensitive) or FALSE
' (match is case sensitive)
if strPattern = "*" or strPattern = "+" then
ereg=false
exit function
end if
dim objRegExp : set objRegExp = new RegExp
with objRegExp
.Pattern = strPattern
.IgnoreCase = varIgnoreCase
.Global = True
end with
ereg = objRegExp.test(strOriginalString)
set objRegExp = nothing
end function
</script>
--- In [email protected], "Ahmad Abdul Haq" <[EMAIL PROTECTED]>
wrote:
>
> Permisi.
>
> Saya programmer ASP. Saya sudah mencoba search di miiis Programmer-VB
> ini kata-kata "regular expression" dan "validasi user." Sedangkan
> search di google sudah berkali-kali saya lakukan, namun saya belum
> juga menemukan solusi.
>
> Begini. Saya ingin membatasi user ID calon member saya, hanya
> diperbolehkan huruf A-Z, angka 0-9, dan underscore (_). Tolong,
> bagaimana membuat program validasi user dengan kriteria tersebut dalam
> VB? Contoh:
> "aa_haq" -> true
> "aa-haq" -> false
> "aa haq" -> false
> "451584" -> true
>
> Atas bantuan teman-teman saya ucapkan terima kasih.
>
>
>
> Ahmad Abdul Haq
> http://www.danarrapbn.org/monitor/asp/about.asp
>
