2009年04月24日

IE(internet explorer)を開く

objIEがObject でいいのかどうか?だが

こんな感じで
いつも使っている

リダイレクトするURLだと
ちゃんと読み込みを確認してはくれないこともある

Public Sub OpenIE(ByVal objIE As Object, ByVal URL As String)

objIE.Navigate(URL)

Do While objIE.Busy
DoEvents()
Loop

Do While (objIE.document.readyState <> "complete")
DoEvents()
Loop

Do While objIE.readyState <> "4"
DoEvents()
Loop

Sleep(1000)
End Sub
でもつかえているんで
いいかな
IE internet explorer
posted by kiyo at 21:10| ブログ | このブログの読者になる | 更新情報をチェックする

2009年04月23日

Movable typeのインポートファイル

Movable typeや他のブログでも
インポートするときに

ItemのDictionaryにそれぞれの値を入力して

MTImportItem(Item)

とすると

インポートのフォーットで1記事分を返してくれます。 

Public Function MTImportItem(ByVal Item As Dictionary(Of String, String)) As String
        Dim Import As String
        Dim LF As String = Chr(10)

        Import = "AUTHOR: " & Item("Author") & LF
        Import &= "TITLE: " & Item("Title") & LF
        'Import &= "BASENAME: " & "post" & Item("No") & ".html" & LF
        Import &= "STATUS: " & Item("Status") & LF
        Import &= "CONVERT BREAKS: " & Item("Breaks") & LF
        Import &= "PRIMARY CATEGORY: " & Item("Category") & LF
        Import &= "DATE: " & Item("Date") & LF

        If Item("Tags").Length > 0 Then
            Import &= "TAGS: " & Item("Tags") & LF
        End If

        Import &= "-----" & LF
        Import &= "BODY:" & LF
        Import &= Item("Body") & LF
        Import &= "-----" & LF

        If Item("Extended").Length > 0 Then
            Import &= "EXTENDED BODY:" & LF
            Import &= Item("Extended") & LF
            Import &= "-----" & LF
        End If

        If Item("Excerpt").Length > 0 Then
            Import &= "EXCERPT:" & LF
            Import &= Item("Excerpt") & LF
            Import &= "-----" & LF
        End If

        If Item("Keywords").Length > 0 Then
            Import &= "KEYWORDS:" & LF
            Import &= Item("Keywords") & LF
            Import &= "-----" & LF
        End If

        If Item("Comment").Length > 0 Then
            Import &= "COMMENT:" & LF
            Import &= Item("Comment") & LF
            Import &= "-----" & LF
        End If
        Import &= "--------" & LF

        Return Import
    End Function

posted by kiyo at 20:45| ブログ | このブログの読者になる | 更新情報をチェックする
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。