主题：去除隐藏字符

老师好。

是偶尔出现的，有可能是苹果手机下的单

找不到了，极少情况出现这种情况。老师麻烦了，哪天再出现了，我再上传。 谢谢！！

 比如 这个 微信里面显示的是这个      谢。1352230。广东省广州市。菲诺蒙洗护1套。1。第二批 

复制到这边变成                             谢。？?1352230。？?广东省广州市。菲诺蒙洗护1套。1。第二批

 

执行代码后是  

谢 -12101

。 -24157
? 63
1 49
3 51
5 53
2 50
2 50
3 51
0 48
。 -24157
? 63
广 -17949
东 -18773
省 -13663
广 -17949
州 -10531
市 -13616

。 -24157
菲 -18490
诺 -14923
蒙 -15415
洗 -12364
护 -17500
1 49
套 -13097
。 -24157
1 49
。 -24157
第 -18982
二 -18690
批 -14854
多出来的字符编号是 63 

 

我现在处理方法是先转为半角字符串，隐藏字符会变成？  然后句号也会变成？      用？代替？？      然后用？当分割符号 录入数据。老师这样可以吗？   这条这样测试正常

老师今天录的单基本没出错了，我估计那些隐藏字符转换为半角后就变成？了  全角下的句号也变成？    根据昨天我那样写的代码就好提取分割符了      有问题的字段复制过来都是多出来几个  ？昨天那个就是有问题的字符串。

老师，打扰了。上次这个问题出现了 客户发给我的订单是用微信传给我 是截图那样的，复制到记事本内后多了几个符号。？

我用的分割符号是  先将订单信息转换为半角，然后句号变为？  然后用？作为分割符号

现在多了几个？ 导致代码出错 之前很少出现这样的情况

如果我不转换为半角直接用句号作为分割符号，又分割不了

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文本文档 (2).txt

此主题相关图片如下：1542251361(1).png

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

 

。。。

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