[求助]如何将字符串中表示时间的串转换为日期 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何将字符串中表示时间的串转换为日期

共有5313人关注过本帖树形打印复制链接主题：[求助]如何将字符串中表示时间的串转换为日期

cqlwsam

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

加好友

发短信

等级：五尾狐帖子：1022 积分：7598 威望：0 精华：0 注册：2010/4/12 12:23:00

[求助]如何将字符串中表示时间的串转换为日期 发帖心情

Post By：2013/12/19 15:56:00 [只看该作者]

如题，如何将下列的字符串中表示时间的串拆分后转换成日期。拼接时行与行间使用了两个换行符，字段间采用分号，而字段名与值间采用冒号。我弄了一下，感觉无从下手。谢谢各位大虾帮我看看。谢谢！

“登记时间:是;入院时间:否;开始时间: 2013/1/1;截止时间: 2013/10/10;患者种类: 预约患者(登记时间);统计项目: 性别.

登记时间:是;入院时间:否;开始时间: 2013/1/1;截止时间: 2013/10/10;患者种类: 住院患者(登记时间);统计项目: 性别.

登记时间:是;入院时间:否;开始时间: 2013/1/1;截止时间: 2013/10/10;患者种类: 失访患者(登记时间);统计项目: 性别.”

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/19 16:10:00 [只看该作者]

Dim str As String =Forms("窗口1").Controls("TextBox1").text

Dim strs As String()=str.Split(vbcrlf)

For Each s As String In strs

If s <> vbcrlf Then

Dim ss As String()=s.Split(";")

For Each s1 As String In ss

If s1.Contains("开始时间") OrElse s1.Contains("截止时间") Then

Dim d As Date = "#" & s1.Split(":")(1) & "#"

MessageBox.show(s1 & " 转为为时间格式:" & d)

End If

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/12/19 16:26:00 [只看该作者]

Dim strs As String
strs + = "登记时间:是;入院时间:否;开始时间: 2013/1/1;截止时间: 2013/10/10;患者种类: 预约患者(登记时间);统计项目: 性别." & vbcrlf & vbcrlf & vbcrlf
strs + = "登记时间:是;入院时间:否;开始时间: 2013/1/1;截止时间: 2013/10/10;患者种类: 住院患者(登记时间);统计项目: 性别." & vbcrlf & vbcrlf & vbcrlf
strs + = "登记时间:是;入院时间:否;开始时间: 2013/1/1;截止时间: 2013/10/10;患者种类: 失访患者(登记时间);统计项目: 性别."
Output.Show(strs)
strs = strs.Replace(vbcr,"")
For Each str As String In strs.Split(vblf)
    For Each s As String In str.Split(";")
        For i As Integer = 0 To s.Split(":").Length - 1
            If IsDate(s.Split(":")(i)) Then
                Output.Show(Format(Cdate(s.Split(":")(i)),"yyyy-MM-dd"))
            End If
        Next
    Next
Next