Foxtable(狐表)用户栏目专家坐堂 → [求助]一个字符串包含判断的问题


  共有10106人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
飞鱼
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:176 积分:1535 威望:0 精华:0 注册:2010/8/23 14:57:00
[求助]一个字符串包含判断的问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 F6
等级:狐精 帖子:3030 积分:19188 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:176 积分:1535 威望:0 精华:0 注册:2010/8/23 14:57:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By: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(","))

 回到顶部