- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关键字识别批量导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122425)
-- 发布时间：2018/7/25 11:40:00
-- [求助]关键字识别批量导入
VOLCOMSTYLE: G1351809COLOR: CAMSIZE: XLARGEROAN BIB OVERALL89623764052
上列文本信息（TXT）中如何批量导入狐表里
此主题相关图片如下：33333333333.png
[此贴子已经被作者于2018/7/25 11:43:04编辑过]
-- 发布时间：2018/7/25 11:51:00
--
Dim str As String = "VOLCOMSTYLE: G1351809COLOR: CAMSIZE: XLARGEROAN BIB OVERALL89623764052"
str = str.replace("STYLE: ", "@").replace("COLOR: ", "@").replace("SIZE: ", "@")
Dim ary() = str.split("@")
msgbox(ary(0))
msgbox(ary(1))
msgbox(ary(2))