strTypeEx = Text1.Text
strTypeEx = Split(strTypeEx, vbCrLf)
For i = LBound(strTypeEx) To UBound(strTypeEx)
n = InStr(strTypeEx(i), "、")
Text2 = Text2 & "|" & Mid(Trim(strTypeEx(i)), n + 1)
Next i
分隔符（清除一个字符前面所有字符）
猜你喜欢
转载自blog.csdn.net/polloo2012/article/details/81604889
今日推荐
周排行