Changeset 35823 for lang/vb2005/Tween/trunk/Tween/Twitter.vb

Timestamp:

11/02/09 03:06:09 (4 years ago)

Author:

kiri_feather

Message:

0730リリース

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

Files:

• lang/vb2005/Tween/trunk/Tween/Twitter.vb (modified) (4 diffs)

lang/vb2005/Tween/trunk/Tween/Twitter.vb

@@ -326 +326 @@
             ' tr 要素の class 属性を消去
             Do
-                Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
-                If idx = -1 Then Exit Do
-                Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
-                If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
+                Try
+                    Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
+                    If idx = -1 Then Exit Do
+                    Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
+                    If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
+                Catch ex As Exception
+                    _signed = False
+                    TraceOut("TM-Remove: " + retMsg)
+                    Return "GetTimeline -> Err: Can't parse data."
+                End Try
             Loop
 
@@ -793 +799 @@
             ' tr 要素の class 属性を消去
             Do
-                Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
-                If idx = -1 Then Exit Do
-                Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
-                If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
+                Try
+                    Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
+                    If idx = -1 Then Exit Do
+                    Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
+                    If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
+                Catch ex As Exception
+                    _signed = False
+                    TraceOut("DM-Remove: " + retMsg)
+                    Return "GetDm -> Err: Can't parse data."
+                End Try
             Loop
 
@@ -1041 +1053 @@
             ' tr 要素の class 属性を消去
             Do
-                Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
-                If idx = -1 Then Exit Do
-                Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
-                If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
+                Try
+                    Dim idx As Integer = retMsg.IndexOf(_removeClass, StringComparison.Ordinal)
+                    If idx = -1 Then Exit Do
+                    Dim idx2 As Integer = retMsg.IndexOf("""", idx + _removeClass.Length, StringComparison.Ordinal) - idx + 1 - 3
+                    If idx2 > 0 Then retMsg = retMsg.Remove(idx + 3, idx2)
+                Catch ex As Exception
+                    _signed = False
+                    TraceOut("GetFav-Remove: " + retMsg)
+                    Return "GetFav -> Err: Can't parse data."
+                End Try
             Loop
 
@@ -1441 +1459 @@
         'Dim posl2 As Integer = 0
         Static urlCache As New Specialized.StringDictionary()
-        If urlCache.Count > 200 Then urlCache.Clear() '定期的にリセット
+        If urlCache.Count > 500 Then urlCache.Clear() '定期的にリセット
 
         Dim rx As New Regex("<a href=""(?<svc>http://.+?/)(?<path>[^""]+)""", RegexOptions.IgnoreCase)