以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断字符串代码问题？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189267)
--  作者：13729935887
--  发布时间：2023/11/21 9:15:00
--  判断字符串代码问题？
老师你好：如何判断  “无+123+其他”（某个单元格的内容） 这种字符串（文字+数字）只要其中含有1个以上“文字”的字符串，执行某段代码 ，全是“数字”时执行某段代码，不知道条件咋判断代码咋写？  
--  作者：13729935887
--  发布时间：2023/11/21 9:21:00
--  
Dim t1 As Table = Tables("汇总表")
Dim s As String = t1.Current("修正单价组合")
s = s.Replace(" ", "").Trim("+")
Dim s1() As String
s1 = s.Split("+")
往下判断不知道咋谢了
--  作者：有点蓝
--  发布时间：2023/11/21 9:22:00
--  
Dim s As String = "无+123+其他"
Dim p As String = "[\\u4e00-\\u9fa5]"
Dim rgx = New System.Text.RegularExpressions.Regex(p)
If rgx.IsMatch(s) Then
    MsgBox("包含文字")
else
    MsgBox("不包含文字")
End If 
--  作者：13729935887
--  发布时间：2023/11/21 9:57:00
--  

解决了，谢谢老师，辛苦了！