主题：去除隐藏字符

'''
Dim str = "黄胜平。?15200203456。湖南省岳阳市平江县开发区广电文苑一栋2005。?泰国黄金眼膜3盒。3"
For Each s As String In str.split("。")
    msgbox(s)
Next

老师，我是把订单复制到这边的，显示也跟微信里的一样，用你的方法还不能分割

 

。。。

Dim str As String = TXT1.Text
For Each m As String In str.split(vbcrlf)   
    M= StrToNarrow(M) '全角字符句号转换成了?
    Dim ary = M.split("?")
    msgbox(ary.length)
Next
。。。

之前没有多余？  使用正常

直接用复制你的代码

Dim ary = M.split("。")   变成 Dim ary = M.split(".")

 msg提示框显示1

此主题相关图片如下：捕获.png

看看这里

 

http://www.foxtable.com/webhelp/scr/1273.htm