* 投稿リトライで、遅延判定時はリトライしないように変更
* @user/lists形式の検出正規表現を修正
* ハッシュタグの検出正規表現を修正
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@10
e39ad16e-3079-482e-bb30-
4b4d378143b6
==== Ver 0.7.7.0(Unreleased)
* バージョンアップの確認ダイアログをキャンセルして、再度確認して表示する際に例外が発生するバグ修正
* バージョンアップの確認ダイアログに更新内容を表示するように変更
+ * Web仕様変更対応(Sourceのみ)
+ * 投稿リトライで、遅延判定時はリトライしないように変更
+ * @user/lists形式の検出正規表現を修正
+ * ハッシュタグの検出正規表現を修正
==== Ver 0.7.6.0(2009/11/11)
* タブの作成、タブ名の変更で例外が発生するバグ修正
* 取得間隔に0を指定しても定期取得してしまうバグ修正
If tabName <> ReplaceInvalidFilename(tabName) Then Return False
'タブタイプ重複チェック
- If tabType = TabUsageType.DirectMessage OrElse _
- tabType = TabUsageType.Favorites OrElse _
- tabType = TabUsageType.Home OrElse _
- tabType = TabUsageType.Mentions Then
- If _statuses.GetTabByType(tabType) IsNot Nothing Then Return False
+ If Not startup Then
+ If tabType = TabUsageType.DirectMessage OrElse _
+ tabType = TabUsageType.Favorites OrElse _
+ tabType = TabUsageType.Home OrElse _
+ tabType = TabUsageType.Mentions Then
+ If _statuses.GetTabByType(tabType) IsNot Nothing Then Return False
+ End If
End If
'Dim myTab As New TabStructure()
</Target>
-->
<PropertyGroup>
- <PostBuildEvent>"c:\Program Files\Microsoft.NET\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
+ <PostBuildEvent>"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
</PropertyGroup>
</Project>
\ No newline at end of file
'絶対パス表現のUriをリンクに置換
retStr = rgUrl.Replace(Text, "<a href=""$&"">$&</a>")
'@返信を抽出し、@先リスト作成
- Dim rg As New Regex("(^|[ -/:-@[-^`{-~])@([a-zA-Z0-9_/]{1,41})")
+ Dim rg As New Regex("(^|[ -/:-@[-^`{-~])@([a-zA-Z0-9_]{1,20}/[a-zA-Z0-9_\-]{1,24}[a-zA-Z0-9_])")
Dim m As Match = rg.Match(retStr)
+ '@先をリンクに置換
+ retStr = rg.Replace(retStr, "$1@<a href=""/$2"">$2</a>")
+
+ rg = New Regex("(^|[ -/:-@[-^`{-~])@([a-zA-Z0-9_]{1,20})")
+ m = rg.Match(retStr)
While m.Success
AtList.Add(m.Result("$2").ToLower)
m = m.NextMatch
retStr = rg.Replace(retStr, "$1@<a href=""/$2"">$2</a>")
'ハッシュタグを抽出し、リンクに置換
- Dim rgh As New Regex("(^|[] !""$%&'()*+,-.:;<=>?@[\^`{|}~])#([^] !""#$%&'()*+,-.:;<=>?@[\^`{|}~\r\n]+)")
+ Dim rgh As New Regex("(^|[ .!,-:;<>?])#([^] !""#$%&'()*+,.:;<=>?@\-[\^`{|}~\r\n]+)")
Dim mh As Match = rgh.Match(retStr)
If mh.Success AndAlso Not IsNumeric(mh.Result("$2")) Then
retStr = rgh.Replace(retStr, "$1<a href=""" + _protocol + "twitter.com/search?q=%23$2"">#$2</a>")