标题：[求助]一个字符串包含判断的问题

1楼

飞鱼发表于：2010/9/20 16:47:00

帮助文件中有个例子:

Dim Str1 As String = "I like foxtable"
If Str1.Contains("like") Then
Output.Show("Me too")
End If

我把Contains("like") 改成Contains("Like") ,"L"大小写换了一下,结果就不能输出"Me too"了.如何能不区别大小写?

2楼

kylin 发表于：2010/9/20 17:08:00

换个思路，先全部转换，然后再判断，就会万无一失了

Dim Str1 As String = "I like foxtable"

Str1 = Str1.ToLower()

If Str1.Contains("like") Then
Output.Show("Me too")
End If

3楼

飞鱼发表于：2010/9/20 17:33:00

我设计了一个窗口,窗口中只有一个按钮和一个文本框,写了一段代码,希望能够把搜索到的字符串输出到窗口的TextBox1中,运行倒是成功了,可是输出的是找到的最后一个字符串,而我是希望能把找到的所有字符串全部输出到Textbox1中,并且用","隔开,不晓得怎样加代码.

希望高手指点,谢谢!

Dim s1 AS String=Currenttable.Current("兼容电池")

s1=s1.ToLower()
Dim s2 As String=Currenttable.Current("查找型号")
s2=s2.ToLower()
Dim s3 AS String=Currenttable.Current("兼容电脑")
s3=s3.ToLower()
Dim s4 AS String=s1 & "," & s3
Dim values1() As String

values1=s4.split(",")
For Index As Integer = 0 To Values1.Length - 1
    If values1(Index).Contains(s2) Then
       e.Form.Controls("TextBox1").Value =values1(Index)
     End If
Next

4楼

mr725 发表于：2010/9/20 17:59:00

这样？：
Dim x AS String
Dim x1 AS String = "AA,AA"
x1 = x1.ToLower()
Dim x2 As String = "BB"
x2 = x2.ToLower()
Dim x3 AS String = "CC,BB,AA,BB,CC"
x3 = x3.ToLower()
Dim x4 AS String = x1 & "," & x3
Dim values1() As String
values1 = x4.split(",")
For Index As Integer = 0 To Values1.Length - 1
    If values1(Index).Contains(x2) Then
       x = x & values1(Index) & ","
     End If
Next
output.show(x.trim(","))

共4 条记录, 每页显示 10 条, 页签: [1]