svnno****@sourc*****
svnno****@sourc*****
2011年 1月 4日 (火) 22:43:09 JST
Revision: 1311 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1311 Author: f_swallow Date: 2011-01-04 22:43:09 +0900 (Tue, 04 Jan 2011) Log Message: ----------- プロフィール表示時にNullReferenceExceptionを起こす場合があったのを修正 Modified Paths: -------------- trunk/Tween/Twitter.vb -------------- next part -------------- Modified: trunk/Tween/Twitter.vb =================================================================== --- trunk/Tween/Twitter.vb 2011-01-04 06:16:02 UTC (rev 1310) +++ trunk/Tween/Twitter.vb 2011-01-04 13:43:09 UTC (rev 1311) @@ -2524,6 +2524,7 @@ End Sub End Class Public Function CreateHtmlAnchor(ByVal Text As String, ByVal AtList As List(Of String)) As String + If Text Is Nothing Then Return Nothing Dim retStr As String = Text.Replace(">", "<<<<<tweenだいなり>>>>>").Replace("<", "<<<<<tweenしょうなり>>>>>") 'uriの正規表現 'Const rgUrl As String = "(?<before>(?:[^\""':!=]|^|\:))" + _