以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于条件取字符串中特定字符  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88249)
--  作者：2900819580
--  发布时间：2016/7/29 21:34:00
--  [求助]关于条件取字符串中特定字符

物料表_DataColChanged

dim st as string = "产成品_自主品牌_无线麦克风系列_VHF无线麦克风_SG-866头戴式无线麦克风"

如果前面三个字是产成品的话，则取“SG-866头戴式无线麦克风"

如果不是，则取”产成品_自主品牌“

代码怎么写。
--  作者：狐狸爸爸
--  发布时间：2016/7/30 9:06:00
--  
Dim st As String = "产成品_自主品牌_无线麦克风系列_VHF无线麦克风_SG-866头戴式无线麦克风"
Dim sts() As String = st.Split("_")
If sts(0) = "产成品" Then
    Return sts(0) & "_" & sts(1)
Else
   Return sts(sts.length-1)
End If