_info.PostCreatedAt = DateTime.ParseExact(xdoc.SelectSingleNode("/status/created_at").InnerText, "ddd MMM dd HH:mm:ss zzzz yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, System.Globalization.DateTimeStyles.None)
_info.PostSource = xdoc.SelectSingleNode("/status/source").InnerText
End If
+ If Not _info.PostSource.Contains("</a>") Then
+ _info.PostSource += "</a>"
+ End If
Catch ex As Exception
_info.RecentPost = Nothing
_info.PostCreatedAt = Nothing
'Source整形
If post.Source.StartsWith("<") Then
'Dim rgS As New Regex(">(?<source>.+)<")
+ If Not post.Source.Contains("</a>") Then
+ post.Source += "</a>"
+ End If
Dim mS As Match = Regex.Match(post.Source, ">(?<source>.+)<")
If mS.Success Then
post.Source = HttpUtility.HtmlDecode(mS.Result("${source}"))
'Source整形
If post.Source.StartsWith("<") Then
'Dim rgS As New Regex(">(?<source>.+)<")
+ If Not post.Source.Contains("</a>") Then
+ post.Source += "</a>"
+ End If
Dim mS As Match = Regex.Match(post.Source, ">(?<source>.+)<")
If mS.Success Then
post.Source = HttpUtility.HtmlDecode(mS.Result("${source}"))
'Source整形
If post.Source.StartsWith("<") Then
'Dim rgS As New Regex(">(?<source>.+)<")
+ If Not post.Source.Contains("</a>") Then
+ post.Source += "</a>"
+ End If
Dim mS As Match = Regex.Match(post.Source, ">(?<source>.+)<")
If mS.Success Then
post.Source = HttpUtility.HtmlDecode(mS.Result("${source}"))
post.Data = post.Data.Replace("<3", "♡")
'Source整形
If post.Source.StartsWith("<") Then
+ If Not post.Source.Contains("</a>") Then
+ post.Source += "</a>"
+ End If
Dim mS As Match = Regex.Match(post.Source, ">(?<source>.+)<")
If mS.Success Then
post.Source = HttpUtility.HtmlDecode(mS.Result("${source}"))