VB 字符串 忽略大小写

来源：百度知道 编辑：UC知道 时间：2024/06/07 14:22:29
例如 If InStr(TextBox1.Text, "Rss.aspx") <= 0 Then
MsgBox("请输入正确的RSS地址")
Else......

可是那个Rss.aspx要是全大写或者全小写也不错啊，所以请高人指点怎么写，我看别人都说用转换大小写，现在我还没研究出来。。。。

If InStr(ucase(TextBox1.Text), "RSS.ASPX") = 0 Then

我原来写的大小写装换器 你看看 应该有启发的
Private Sub Command1_Click()
Dim n, k As Integer
Dim ch, a As String
n = Len(Text1.Text)
ch = ""
For k = 1 To n
a = Mid$(Text1.Text, k, 1)
If Option1.Value = True Then
If a >= "a" And a <= "z" Then
ch = ch + UCase(a)
ElseIf a >= "A" And a <= "Z" Then
ch = ch + LCase(a)
Else
ch = ch + a
End If
ElseIf Option2.Value = True Then
ch = ch + UCase(a)
ElseIf Option3.Value = True Then
ch = ch + LCase(a)
End If
Text2 = ch
Next k
End Sub

两种方法都可以:
If InStr(UCase(TextBox1.Text), UCase("Rss.aspx")) <= 0 Then

另一种是
If InStr(LCase(TextBox1.Text), LCase("Rss.aspx")) <= 0 Then

前者是将两个都转换成大写后查找,后者是将两个都变成小写后查找,效果一样