以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码取条件值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18251)

--  作者:ddlzq
--  发布时间: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


--  作者:hhbb
--  发布时间: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)

--  作者:ddlzq
--  发布时间:2012/4/7 13:16:00
--  
图片点击可在新窗口打开查看非常感谢!厉害
--  作者:小猪鑫鑫
--  发布时间:2012/4/8 20:52:00
--  
谢谢,学习了
--  作者:ddlzq
--  发布时间: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编辑过]