求助：拆分网址字符 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：拆分网址字符

共有1552人关注过本帖树形打印复制链接主题：求助：拆分网址字符

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

求助：拆分网址字符 发帖心情

Post By：2016/5/12 17:39:00 [只看该作者]

http://www.gzlibo.jcy.gov.cn/gzdt/201604/t20160418_1779517.shtml

这样一个字符串我想从第五个 / 开始读取字符怎么操作呢？

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/12 17:42:00 [只看该作者]

dim str as string = “http://www.gzlibo.jcy.gov.cn/gzdt/201604/t20160418_1779517.shtml ”
str = FileSys.GetName(str)
msgbox(str)

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）dim str as string = “http://www.g... 发帖心情

Post By：2016/5/12 18:50:00 [只看该作者]

谢谢

现在想实现将 t20160418_ 这个字符进行拆解为时间格式 2016-04-18

下面的代码是参照帮助写的感觉有些繁琐

Dim ss As String = " 图片点击可在新窗口打开查看

http://www.gzlibo.jcy.gov.cn/gzdt/201604/t20160418_1779517.shtml"

Dim shijian As String = (FileSys.GetName(ss).Insert(5,"-")).Insert(8,"-")

Dim Parts() As String = shijian.Split("_")

dr("发布时间") =Parts(0).Remove(0,1)

不知道大红袍老师是否有更加简便的办法进行操作呢？

我学习一下

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/12 20:09:00 [只看该作者]

dim str as string = “http://www.gzlibo.jcy.gov.cn/gzdt/201604/t20160418_1779517.shtml”
str = FileSys.GetName(str)
str = str.SubString(1, 8).insert(4, "-").insert(7, "-")
msgbox(str)

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）dim str as string = “http://www.g... 发帖心情

Post By：2016/5/13 8:44:00 [只看该作者]

谢谢是要精简许多了代码也更直观易读

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

主题：求助：拆分网址字符