Changeset 25821

Timestamp:

12/04/08 11:10:53 (5 weeks ago)

Author:

takeshik

Message:

Twitter 構造変更へのアプローチを若干強靱?に

Location:

lang/vb2005/Tween/Tween

Files:

• AnalyzeKey.vb (modified) (1 diff)
• Twitter.vb (modified) (6 diffs)

lang/vb2005/Tween/Tween/AnalyzeKey.vb

@@ -2 +2 @@
     '    このファイルはデバッグビルドのTweenにより自動作成されました   作成日時  2008/10/18 2:06:36
 
-    Public _splitPost As String = "<tr class=""hentry status reply"" id=""status_"
-    Public _splitPostRecent As String = "<tr class=""hentry status"" id=""status_"
+    Public _splitPost As String = "<tr id=""status_"
+    Public _splitPostRecent As String = "<tr id=""status_"
     Public _statusIdTo As String = """"
-    Public _splitDM As String = "<tr id=""status_"
+    Public _splitDM As String = "<tr id=""direct_message_"
     Public _parseName As String = "://twitter.com/"
     Public _parseNameTo As String = """"

lang/vb2005/Tween/Tween/Twitter.vb

@@ -232 +232 @@
         End If
 
+        ' tr 要素の class 属性を消去
+        Do
+            Dim idx As Integer = retMsg.IndexOf("<tr class=""")
+            If idx = -1 Then Exit Do
+            retMsg = retMsg.Remove(idx + 4, retMsg.IndexOf("""", idx + 11 + 1) - idx - 2) ' 11 = "<tr class=""".Length
+        Loop
+
         If _endingFlag Then Return ""
 
@@ -250 +257 @@
             strSepTmp = _splitPost
         End If
-        ''''''''''''''''''''''''''''''
-        strSepTmp = "<tr class=""hentry status"
-        '''''''''''''''''''''''''''''''
+
         pos1 = retMsg.IndexOf(strSepTmp)
         If pos1 = -1 Then
@@ -316 +321 @@
                 Try
                     'Get ID
-                    'pos1 = 0
-                    pos1 = strPost.IndexOf("id=""status_", 0)
-                    pos2 = strPost.IndexOf(_statusIdTo, pos1 + 11)
-
-                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(pos1 + 11, pos2 - pos1 - 11))
+                    pos1 = 0
+                    pos2 = strPost.IndexOf(_statusIdTo, 0)
+                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(0, pos2))
                 Catch ex As Exception
                     _signed = False
@@ -634 +637 @@
             retMsg = DirectCast(_mySock.GetWebResponse("https://" + _hubServer + _DMPathSnt + pageQuery, resStatus), String)
         End If
+
+        ' tr 要素の class 属性を消去
+        Do
+            Dim idx As Integer = retMsg.IndexOf("<tr class=""")
+            If idx = -1 Then Exit Do
+            retMsg = retMsg.Remove(idx + 4, retMsg.IndexOf("""", idx + 11 + 1) - idx - 2) ' 11 = "<tr class=""".Length
+        Loop
+
         If retMsg.Length = 0 Then
             _signed = False
@@ -676 +687 @@
 
         '各メッセージに分割可能か？
-        _splitDM = "<tr class=""hentry direct_message"
         pos1 = retMsg.IndexOf(_splitDM)
         If pos1 = -1 Then
@@ -701 +711 @@
                 'Get ID
                 Try
-                    'pos1 = 0
-                    pos1 = strPost.IndexOf("id=""direct_message_", 0)
-                    pos2 = strPost.IndexOf("""", pos1 + 19)
-                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(pos1 + 19, pos2 - pos1 - 19))
+                    pos1 = 0
+                    pos2 = strPost.IndexOf("""", 0)
+                    lItem.Id = HttpUtility.HtmlDecode(strPost.Substring(0, pos2))
                 Catch ex As Exception
                     _signed = False