[求助]粘贴数据如何保持格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2578人关注过本帖树形打印复制链接主题：[求助]粘贴数据如何保持格式

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))

上面单条订单运行没有问题，多条如上就出现错误字符常量应该以“结束

[此贴子已经被作者于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))

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

下一主题 >> << 上一主题

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