|
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
|
加好友 
发短信
Post By：2013/12/19 16:26:00 [显示全部帖子]
