Changeset 30981

Show
Ignore:
Timestamp:
03/09/09 23:28:37 (6 years ago)
Author:
syo68k
Message:

IDN処理をhttp/https/ftpへ対応

Files:
1 modified

Legend:

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

    r30973 r30981  
    989989        Dim posTmp As Integer 
    990990        Dim IDNConveter As IdnMapping = New IdnMapping() 
     991        Dim protocol As String() = New String() {"http://", "https://", "ftp://"} 
    991992 
    992993        Do While True 
     
    996997                posl1 = orgData.IndexOf("<a href=""", posl2, StringComparison.Ordinal) 
    997998 
    998                 posTmp = orgData.IndexOf("http://", posl1, StringComparison.Ordinal) 
     999                For Each prt As String In protocol 
     1000                    posTmp = orgData.IndexOf(prt, posl1, StringComparison.Ordinal) 
     1001                    If posTmp <> -1 Then Exit For 
     1002                Next 
     1003 
    9991004                If posTmp <> -1 Then 
    10001005                    posl1 = posTmp