![(please configure the [header_logo] section in trac.ini)](/share/chrome/site/your_project_logo.png){kind=logo}
Changeset 35823
- Timestamp:
- 11/02/09 03:06:09 (4 years ago)
- Location:
- lang/vb2005/Tween/trunk/Tween
- Files:
-
- 4 modified
-
My Project/AssemblyInfo.vb (modified) (1 diff)
-
Resources/ChangeLog.txt (modified) (1 diff)
-
StatusDictionary.vb (modified) (1 diff)
-
Twitter.vb (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
lang/vb2005/Tween/trunk/Tween/My Project/AssemblyInfo.vb
r35793 r35823 55 55 ' <Assembly: AssemblyVersion("1.0.*")> 56 56 57 <Assembly: AssemblyVersion("0.7. 2.0")>58 <Assembly: AssemblyFileVersion("0.7. 2.0")>57 <Assembly: AssemblyVersion("0.7.3.0")> 58 <Assembly: AssemblyFileVersion("0.7.3.0")> 59 59 -
lang/vb2005/Tween/trunk/Tween/Resources/ChangeLog.txt
r35812 r35823 1 1 更新履歴 2 2 3 ==== Ver 0.7. 2.1(Unreleased)3 ==== Ver 0.7.3.0(2009/11/2) 4 4 * 発言詳細部のサイズを50*50（画像領域48*48）へ変更し、描画モードを変更 5 5 * 振り分けルールの追加動作でマークをつけない設定にしても、マークをつける設定に戻ってしまうバグ修正 6 * 除外ルール単体指定時すると、全件ヒットしなくなるバグ修正 6 7 ==== Ver 0.7.2.0(2009/10/31) 7 8 * @ID入力補助で、id確定した際、直前の文字が消えるバグ修正 -
lang/vb2005/Tween/trunk/Tween/StatusDictionary.vb
r35786 r35823 1658 1658 '除外判定 1659 1659 Dim exFlag As Boolean = False 1660 If _name = "" AndAlso _body.Count = 0 Then 1661 exFlag = True 1662 bHit = False 1663 End If 1664 If _excaseSensitive Then 1665 compOpt = StringComparison.Ordinal 1666 rgOpt = RegexOptions.None 1667 Else 1668 compOpt = StringComparison.OrdinalIgnoreCase 1669 rgOpt = RegexOptions.IgnoreCase 1670 End If 1671 If _exsearchBoth Then 1672 If _exname = "" OrElse Name.Equals(_exname, compOpt) OrElse _ 1673 (_exuseRegex AndAlso Regex.IsMatch(Name, _exname, rgOpt)) Then 1660 'If _name = "" AndAlso _body.Count = 0 Then 1661 ' exFlag = True 1662 ' 'bHit = False 1663 'End If 1664 If _exname <> "" OrElse _exbody.Count > 0 Then 1665 If _excaseSensitive Then 1666 compOpt = StringComparison.Ordinal 1667 rgOpt = RegexOptions.None 1668 Else 1669 compOpt = StringComparison.OrdinalIgnoreCase 1670 rgOpt = RegexOptions.IgnoreCase 1671 End If 1672 If _exsearchBoth Then 1673 If _exname = "" OrElse Name.Equals(_exname, compOpt) OrElse _ 1674 (_exuseRegex AndAlso Regex.IsMatch(Name, _exname, rgOpt)) Then 1675 If _exbody.Count > 0 Then 1676 For Each fs As String In _exbody 1677 If _exuseRegex Then 1678 If Regex.IsMatch(tBody, fs, rgOpt) Then exFlag = True 1679 Else 1680 If _excaseSensitive Then 1681 If tBody.Contains(fs) Then exFlag = True 1682 Else 1683 If tBody.ToLower().Contains(fs.ToLower()) Then exFlag = True 1684 End If 1685 End If 1686 If exFlag Then Exit For 1687 Next 1688 Else 1689 exFlag = True 1690 End If 1691 End If 1692 Else 1674 1693 For Each fs As String In _exbody 1675 1694 If _exuseRegex Then 1676 If Regex.IsMatch(tBody, fs, rgOpt) Then bHit = False 1695 If Regex.IsMatch(Name, fs, rgOpt) OrElse _ 1696 Regex.IsMatch(tBody, fs, rgOpt) Then exFlag = True 1677 1697 Else 1678 1698 If _excaseSensitive Then 1679 If tBody.Contains(fs) Then bHit = False 1699 If Name.Contains(fs) OrElse _ 1700 tBody.Contains(fs) Then exFlag = True 1680 1701 Else 1681 If tBody.ToLower().Contains(fs.ToLower()) Then bHit = False 1702 If Name.ToLower().Contains(fs.ToLower()) OrElse _ 1703 tBody.ToLower().Contains(fs.ToLower()) Then exFlag = True 1682 1704 End If 1683 1705 End If 1684 If Not bHitThen Exit For1706 If exFlag Then Exit For 1685 1707 Next 1686 1708 End If 1709 End If 1710 1711 If _name = "" AndAlso _body.Count = 0 Then 1712 bHit = False 1713 End If 1714 If bHit Then 1715 If Not exFlag Then 1716 'If _setMark Then Return HITRESULT.CopyAndMark 1717 If _moveFrom Then 1718 Return HITRESULT.Move 1719 Else 1720 If _setMark Then 1721 Return HITRESULT.CopyAndMark 1722 End If 1723 Return HITRESULT.Copy 1724 End If 1725 'Return HITRESULT.Copy 1726 Else 1727 Return HITRESULT.Exclude 1728 End If 1687 1729 Else 1688 For Each fs As String In _exbody 1689 If _exuseRegex Then 1690 If Regex.IsMatch(Name, fs, rgOpt) OrElse _ 1691 Regex.IsMatch(tBody, fs, rgOpt) Then bHit = False 1692 Else 1693 If _excaseSensitive Then 1694 If Name.Contains(fs) OrElse _ 1695 tBody.Contains(fs) Then bHit = False 1696 Else 1697 If Name.ToLower().Contains(fs.ToLower()) OrElse _ 1698 tBody.ToLower().Contains(fs.ToLower()) Then bHit = False 1699 End If 1700 End If 1701 If Not bHit Then Exit For 1702 Next 1703 End If 1704 1705 If bHit Then 1706 'If _setMark Then Return HITRESULT.CopyAndMark 1707 If _moveFrom Then 1708 Return HITRESULT.Move 1730 If exFlag Then 1731 Return HITRESULT.Exclude 1709 1732 Else 1710 If _setMark Then 1711 Return HITRESULT.CopyAndMark 1712 End If 1713 Return HITRESULT.Copy 1733 Return HITRESULT.None 1714 1734 End If 1715 'Return HITRESULT.Copy1716 Else1717 If exFlag Then Return HITRESULT.Exclude1718 Return HITRESULT.None1719 1735 End If 1720 1736 Else -
lang/vb2005/Tween/trunk/Tween/Twitter.vb
r35786 r35823 326 326 ' tr 要素の class 属性を消去 327 327 Do 328 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 329 If idx = -1 Then Exit Do 330 Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3 331 If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2) 328 Try 329 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 330 If idx = -1 Then Exit Do 331 Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3 332 If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2) 333 Catch ex As Exception 334 _signed = False 335 TraceOut("TM-Remove: " + retMsg) 336 Return "GetTimeline -> Err: Can't parse data." 337 End Try 332 338 Loop 333 339 … … 793 799 ' tr 要素の class 属性を消去 794 800 Do 795 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 796 If idx = -1 Then Exit Do 797 Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3 798 If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2) 801 Try 802 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 803 If idx = -1 Then Exit Do 804 Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3 805 If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2) 806 Catch ex As Exception 807 _signed = False 808 TraceOut("DM-Remove: " + retMsg) 809 Return "GetDm -> Err: Can't parse data." 810 End Try 799 811 Loop 800 812 … … 1041 1053 ' tr 要素の class 属性を消去 1042 1054 Do 1043 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 1044 If idx = -1 Then Exit Do 1045 Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3 1046 If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2) 1055 Try 1056 Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal) 1057 If idx = -1 Then Exit Do 1058 Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3 1059 If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2) 1060 Catch ex As Exception 1061 _signed = False 1062 TraceOut("GetFav-Remove: " + retMsg) 1063 Return "GetFav -> Err: Can't parse data." 1064 End Try 1047 1065 Loop 1048 1066 … … 1441 1459 'Dim posl2 As Integer = 0 1442 1460 Static urlCache As New Specialized.StringDictionary() 1443 If urlCache.Count > 200 Then urlCache.Clear() '定期的にリセット1461 If urlCache.Count > 500 Then urlCache.Clear() '定期的にリセット 1444 1462 1445 1463 Dim rx As New Regex("<a href=""(?<svc>http://.+?/)(?<path>[^""]+)""", RegexOptions.IgnoreCase)
