以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]粘贴数据如何保持格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122107)
--  作者：jeffic
--  发布时间：2018/7/19 1:23:00
--  [求助]粘贴数据如何保持格式
各位大神好，小弟这厢有礼了。
遇到一个问题，希望有高手指点下。
就是有时候接到一条订单信息（从微信里），就是普通的文本信息，想要快速录入到foxtable表格中，信息格式固定，如下：

aa。18000250000。江西省宜春市宜丰县站前路8号米兰婚纱。泰国面膜2盒。2
bb。18296940000。江西省宜春市宜丰县新昌镇沿山大道福隆花苑2汽车生活馆。泰国面膜2盒。2
ccc。18609330000。甘肃省平凉市庄浪县东关联通营业厅县医院对面。泰国面膜2盒。2
dd。15995570000。江苏省苏州市吴江区 松陵镇沃尔玛（正翔广场）一楼正生活。泰国面膜2盒。2
eee。13479530000。江西省宜春市宜丰县新昌镇飞若路73号。泰国面膜2盒。2

以上算是一整条信息，因为随时有订单过来，不想通过excel处理后再导入。求提供思路，方法。  小弟谢谢了
[此贴子已经被作者于2018/7/19 1:30:35编辑过]
--  作者：有点甜
--  发布时间：2018/7/19 9:10:00
--  

参考代码

 

\'\'\'
Dim str As String = ClipBoard.GetText
For Each s As String In str.split(chr(13))
    msgbox(s)
    Dim ary = s.split("。")
    msgbox(ary(0))
    msgbox(ary(1))
    msgbox(ary(2))
Next
--  作者：jeffic
--  发布时间：2018/7/19 10:17:00
--  万分感谢，只是还有点点问题
Dim str As String = "aa。18000250000。江西省宜春市宜丰县站前路8号米兰婚纱。泰国面膜2盒。2
bb。18296940000。江西省宜春市宜丰县新昌镇沿山大道福隆花苑2汽车生活馆。泰国面膜2盒。2
ccc。18609330000。甘肃省平凉市庄浪县东关联通营业厅县医院对面。泰国面膜2盒。2
dd。15995570000。江苏省苏州市吴江区 松陵镇沃尔玛（正翔广场）一楼正生活。泰国面膜2盒。2
eee。13479530000。江西省宜春市宜丰县新昌镇飞若路73号。泰国面膜2盒。2
"
For Each s As String In str.split(chr(13))
    msgbox(s)
    Dim ary = s.split(".")
    msgbox(ary(0))
    msgbox(ary(1))
    msgbox(ary(2))
Next

上面单条订单运行没有问题，多条  如上  就出现错误   字符常量应该以“结束
[此贴子已经被作者于2018/7/19 10:21:45编辑过]
--  作者：有点甜
--  发布时间：2018/7/19 10:27:00
--  

1、拷贝这段代码到你的命令窗口

 

\'\'\'
Dim str As String = ClipBoard.GetText
For Each s As String In str.split(chr(13))
    msgbox(s)
    Dim ary = s.split("。")
    msgbox(ary(0))
    msgbox(ary(1))
    msgbox(ary(2))
Next

 

2、拷贝一下下面的数据，然后执行上面的代码，即可

 

aa。18000250000。江西省宜春市宜丰县站前路8号米兰婚纱。泰国面膜2盒。2
bb。18296940000。江西省宜春市宜丰县新昌镇沿山大道福隆花苑2汽车生活馆。泰国面膜2盒。2
ccc。18609330000。甘肃省平凉市庄浪县东关联通营业厅县医院对面。泰国面膜2盒。2
dd。15995570000。江苏省苏州市吴江区 松陵镇沃尔玛（正翔广场）一楼正生活。泰国面膜2盒。2
eee。13479530000。江西省宜春市宜丰县新昌镇飞若路73号。泰国面膜2盒。2
--  作者：jeffic
--  发布时间：2018/7/19 10:36:00
--  重新测试了下
可以了 谢谢
加了一句代码 完善了
Dim str As String = ClipBoard.GetText
For Each s As String In str.split(chr(13))
    msgbox(s)
    s= StrToNarrow(s) \'全角字符句号转换成了?
    Dim ary = s.split("?")
    msgbox(ary(0))
    msgbox(ary(1))
    msgbox(ary(2))
Next

[此贴子已经被作者于2018/7/19 11:19:02编辑过]