主题：求助，如何获取字符串中日期部分？

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

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