- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码取条件值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18251)
-- 发布时间：2012/4/7 13:01:00
-- [求助]代码取条件值
各位老师：
我们公司用通讯工具发送来的信息是这样格式zsf(张三丰) 12:49:41
能不能用代码取出括号内的姓名？我只会用下面这个 取出结果是: 张三丰)12:49:41
If e.DataCol.name = "任务记录" Then
Dim Multi As String = e.DataRow("任务记录")
Dim Values() As String
Values = Multi.split("(")
For Index As Integer = 0 To Values.Length - 1
messagebox.Show(Values(Index))
Next
End If
-- 发布时间：2012/4/7 13:09:00
--
Dim Multi As String = "zsf(张三丰) 12:49:41"
Dim XM As String
XM = Multi.split("(")(1).split(")")(0)
Output.Show(XM)
-- 发布时间：2012/4/7 13:16:00
--
非常感谢！厉害
-- 发布时间：2012/4/8 20:52:00
--
谢谢，学习了
-- 发布时间：2012/4/17 11:27:00
--
Dim Multi As String = "zsf(张三丰) 12:49:41"
Dim XM As String
XM = Multi.split("(")(1).split(")")(0)
Output.Show(XM)
-----------------------
补充问一个问题，如果贴入的信息里不含()括号，那么会发生“索引超出了数组界限”错误提示，请问如何能解决这个问题？
Dim Str1 As String = "I like foxtable"
If Str1.Contains("like") Then
Output.Show("Me too")
End If
是不是利用这个？ notcontains("(")?
--------已解决，利用contains判断是否包括括号即可
[此贴子已经被作者于2012-4-17 12:03:20编辑过]