在VB6中验证

Question

我需要VB6中的验证帮助，它会检查用户是否键入www。在文本框上，因为我想制作www。静态

Dim Text As String
Text = Text1.Text
If Text1.Text = "www." Then
MsgBox "www. is already present", vbExclamation + vbOKOnly, "Opps!..."
ElseIf Text1.Text = "WWW." Then
MsgBox "www. is already present", vbExclamation + vbOKOnly, "Opps!..."
Else
Open ("C:\Windows\System32\drivers\etc\hosts") For Append As #1
Print #1, "127.0.0.1     " + "www." + Text
Close #1
End If

这似乎无效，因为msgbox只会在用户输入＆＃34; www。＆＃34;但我希望像用户输入www时那样。将出现消息框。

Answer 1

您可能想要使用Left$()功能。

If StrComp(Left(Text1.Text, 4), "www.", vbTextCompare) = 0 Then
  ...

StrComp() vbTextCompare使其不区分大小写。

Answer 2

不要打扰用户检查数据，只需删除www即可。像这样：replace（text1.text，＆＃34; www。＆＃34;，＆＃34;＆＃34; ,,, vbTextCompare）无论测试是大写还是小写都无关紧要。