Show
Ignore:
Timestamp:
11/02/09 03:06:09 (4 years ago)
Author:
kiri_feather
Message:

0730リリース

  • 除外ルール単体指定時すると、全件ヒットしなくなるバグ修正
Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/vb2005/Tween/trunk/Tween/Twitter.vb

    r35786 r35823  
    326326            ' tr 要素の class 属性を消去 
    327327            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 
    332338            Loop 
    333339 
     
    793799            ' tr 要素の class 属性を消去 
    794800            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 
    799811            Loop 
    800812 
     
    10411053            ' tr 要素の class 属性を消去 
    10421054            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 
    10471065            Loop 
    10481066 
     
    14411459        'Dim posl2 As Integer = 0 
    14421460        Static urlCache As New Specialized.StringDictionary() 
    1443         If urlCache.Count > 200 Then urlCache.Clear() '定期的にリセット 
     1461        If urlCache.Count > 500 Then urlCache.Clear() '定期的にリセット 
    14441462 
    14451463        Dim rx As New Regex("<a href=""(?<svc>http://.+?/)(?<path>[^""]+)""", RegexOptions.IgnoreCase)