主题：[求助]如何将字符串中表示时间的串转换为日期

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

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

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

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

如果字符串中：开始日期：无，我舍弃它不同，如果开始日期：2013-01-01，我就用它。我也用contains。

我是这样写的：

 If txt1>"" AndAlso txt1.contains("开始时间:无") Then

        d1=""

    Else If txt1>"" AndAlso txt1.contains("开始时间:####-##-##") Then

        d1="####-##-##"

    End If

我得意思是：如果开始时间无，d1为空，如果开始时间存在，就取开始时间冒号后面的时间。想用通配符来表示，好像有点问题。

按bin及lsy的思路已经搞定。但有一个问题， 如：“登记时间:是;入院时间:否;开始时间: 2013/1/1;截止时间: 2013/10/10;患者种类: 预约患者(登记时间);统计项目: 性别.

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

按道理，通过分组统计将形成三个统计表，我想将此嵌入拆开的语句中，统计表用“统计表n”来表示，由1开始，每循环一次，添加1，直到完成循环。然后跳出循环，进行统计表的合并。如何写。如果是固定的组合固定的表我会做，但这种带有循环，表个数不定的我不会弄。点点思路。谢谢！

由使用者选择统计条件后拼接成字符串，保存着text2中，每个统计条件由“换行符”隔开，点击“统计按钮”（统计条件多少条不知道），统计表的sql语句由text2中的字符串根据"换行符"拆分后形成（已完成），每条统计条件获得一个“统计表”（具体数目不知道），所有统计条件循环完成后然后将不知道个数的统计表进行合并。关键的问题是统计表个数不详，需要根据统计条件来决定，带循环。就搞不定了。

Dim strs() As String

strs =str.Split(vbcrlf)

For n As Integer = 0 To strs.Length - 1

代码如上，提示错误。提示如下图：

此主题相关图片如下：360软件截图.jpg