function isDigit(s) { var patrn=/^[0-9]{1,20}$/; if (!patrn.exec(s)) return false return true } //校验登录名:只能输入5-20个以字母开头、可带数字、“_”、“.”的字串 function isRegisterUserName(s) { var patrn=/^[a-zA-Z]{1}([a-zA-Z0-9]|[._]){4,19}$/; if (!patrn.exec(s)) return fal
查找与替换程序(VB6.0源代码编写),替换区分大小写等功能. Private Sub Command1_Click() Dim st, te As String Dim i As Integer te = Text1.Text For i = 1 To Len(Text1.Text) st = Mid(Text1.Text, i, 1) If st = Text2.Text Then Mid(te, i, 1) = Text3.Text Next i Text1.Text = te End