Foxtable(狐表)用户栏目专家坐堂 → 求助,如何获取字符串中日期部分?


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

主题:求助,如何获取字符串中日期部分?

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


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
求助,如何获取字符串中日期部分?  发帖心情 Post By:2012/8/20 15:31:00 [只看该作者]

如:会议时间2012-08-01开始。

如何只获取2012-08-01呢?

但有可能日期格式不一定固定的,谢指教!

[此贴子已经被作者于2012-8-20 15:31:59编辑过]

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/8/20 16:46:00 [只看该作者]

格式不确定好像不容易解决

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/8/21 8:15:00 [只看该作者]

这样就行了,你在命令窗口执行下面的代码:

 

Dim s As String  = "会议时间2012-8-1开始"
Dim d As Date
For i As Integer = 0 To s.Length - 10
    If Date.TryParse(s.SubString(i,10),d) OrElse Date.TryParse(s.SubString(i,9),d) OrElse Date.TryParse(s.SubString(i,8),d) Then
        output.show(d)
        Exit For
    End If
Next

[此贴子已经被作者于2012-8-21 8:22:05编辑过]

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/8/21 9:33:00 [只看该作者]

用这个非主流的吧,2012-8-1,2012-08-01,20120801,2012年08月01日 等格式都可以:

Dim s As String  = "会议时间2012-08-01开始"
Dim d As String
Dim nmb As String = "0123456789-年月日"   
For i As Integer = 0 To s.Length - 1
    If nmb.contains(s(i))
        d = d & s(i)
    End If
Next
output.show(d)


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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/8/21 9:37:00 [只看该作者]

用户已被锁定

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/8/21 10:03:00 [只看该作者]

呵呵,以为只是日期部分呢,还有x点xx分啊····  麻烦了·

 回到顶部