以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]一个字符串包含判断的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8234)
--  作者：飞鱼
--  发布时间：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"了.如何能不区别大小写?
--  作者：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
--  作者：飞鱼
--  发布时间：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
--  作者：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(","))