Foxtable(狐表)用户栏目专家坐堂 → [求助]粘贴数据如何保持格式


  共有2727人关注过本帖树形打印复制链接

主题:[求助]粘贴数据如何保持格式

帅哥哟,离线,有人找我吗?
jeffic
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:79 积分:602 威望:0 精华:0 注册:2016/11/15 22:12:00
[求助]粘贴数据如何保持格式  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:79 积分:602 威望:0 精华:0 注册:2016/11/15 22:12:00
万分感谢,只是还有点点问题  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:79 积分:602 威望:0 精华:0 注册:2016/11/15 22:12:00
重新测试了下  发帖心情 Post By: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编辑过]

 回到顶部