以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有无比较两个字符串是否一致的函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=29792)
--  作者：baoxyang
--  发布时间：2013/3/13 18:06:00
--  有无比较两个字符串是否一致的函数
如题.
--  作者：unverse
--  发布时间：2013/3/13 18:11:00
--  

如果只是简单的判断二个字符串相等不相等，没有必要用函数啊。。

 

 

Dim a As String = "aaa"
Dim b As String ="bbb"
If a<>b Then
    MessageBox.Show("a不等于b")
Else
    MessageBox.Show("a和b相等")
End If

 

直接这样判断就可以了。
--  作者：baoxyang
--  发布时间：2013/3/13 18:16:00
--  
Dim s1 As String
Dim s2 As String = "洗衣机"
Dim s3 As String = " = "
Dim s4 As String = "洗衣机"
s1 = s2 &  s3 &  s4 
messagebox.show(TryEval(s1))
结果显示是False,如何转变成True?
--  作者：don
--  发布时间：2013/3/13 18:21:00
--  
Dim s1 As String
Dim s2 As String = """洗衣机"""
Dim s3 As String = " = "
Dim s4 As String = """洗衣机"""
s1 = s2 &  s3 &  s4 
messagebox.show(TryEval(s1))
--  作者：don
--  发布时间：2013/3/13 18:26:00
--  
Dim s1 As String
Dim s2 As String = "洗衣机"
Dim s3 As String = " = "
Dim s4 As String = "洗衣机"
s1 = s2 &  s3 &  s4   \' 洗衣机 = 洗衣机(實際應是: "洗衣机"  =  "洗衣机" ) , 違反了字符串要用["]引起來的原理
messagebox.show(TryEval(s1))  \'结果當然显示是False
--  作者：baoxyang
--  发布时间：2013/3/13 19:30:00
--  

修复
--  作者：程兴刚
--  发布时间：2013/3/13 19:34:00
--  
为什么不走直路却偏偏要绕弯子？
--  作者：baoxyang
--  发布时间：2013/3/13 19:39:00
--  
有需要进行判断的.因为我在做一个判断函数来计算值的.
--  作者：baoxyang
--  发布时间：2013/3/13 20:27:00
--  
String.Compare(s1, s2, False))只能用这个过渡哦.麻烦很多. 
--  作者：程兴刚
--  发布时间：2013/3/13 22:56:00
--  
您能定义：s1,s2,s3,s4……为何不能直接比较？