はてなブログ本文連続置換更新処理にチャレンジ結合テスト

単体で動作確認ができたので、
結合処理を行ってみます

下記、いつもの酔っ払い解説動画です。
https://youtu.be/Ymk_TSO7dQk
youtu.be

結合処理中のエラー、不具合
を
面白おかしく説明しようと
がんばってみましたが、
うまく料理できませんでした。

失敗やエラーのシナリオなど、うまく考えないとなぁ。

ただ単体のコードをつなげただけの意味ない動画ですが、
よろしくお願いします。

テスト作成したコード

Option Explicit

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'IEオブジェクトを受け取り、表示を待つ
Sub IE_WAIT(objIE As Object)

    Sleep 250  '0.25秒待つ

    'ページの表示完了を待ちます。
    While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
        'DoEvents  '重いので嫌いな人居るけど。
        Sleep 200  '0.2秒待つ
    Wend

    Sleep 250  '0.25秒待つ

End Sub

'-----------
Sub test結合_はてなブログ記事内容置換()

'手作業でやると
'1.ダッシュボードから記事の管理へ
'記事の管理画面を開き
'https://blog.hatena.ne.jp/ユーザID/ブログID.hatenablog.com/entries

'IEの起動
    Dim objIE As Object '変数を定義します。
    Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。
    objIE.Visible = True      '可視、Trueで見えるようにします。
    
    objIE.Top = 0
    objIE.Left = 0
    
Dim i As Integer

For i = 1 To 10 '最高10ページ単位で処理する

'処理したいページを表示します。
    objIE.Navigate "https://blog.hatena.ne.jp/ユーザID/ブログID.hatenablog.com/entries"
    Call IE_WAIT(objIE)   '終了待つ
    
'2.指定文字で検索する
'movie:w560 で 検索して
'該当の文字列を含んだ記事を探す

    '検索データをセットする
    objIE.document.all("q").Value = "movie:w560"
    'objIE.document.all("q").Value = "movie:w999"  'エラーのテスト
    
    '検索ボタンを押す
    'INPUTのタグを探す
    Dim objINPUT As Object
    For Each objINPUT In objIE.document.getElementsByTagName("input")
        Debug.Print objINPUT.Value
        '検索ボタンを見つけて押す
        If objINPUT.Value = "検索" Then
            objINPUT.Click  'クリック処理
            DoEvents
            Exit For
        End If
    Next
    
    Call IE_WAIT(objIE)   '検索終了待つ
    
'3.編集画面を開く
'編集画面を開く
'※タイトルなどのリンクを押し､次の編集画面へ
    
    '編集処理を押す
    'INPUTのタグを探す
    Dim objA As Object
    Dim Error_Flg As Integer
    
    Error_Flg = 1  '初期値をエラー 1:見つからないをセット
    For Each objA In objIE.document.getElementsByTagName("a")
        Debug.Print objA.href
        'リンク先URL entry=を見つけて押す
        If InStr(objA.href, "entry=") > 0 Then
            objA.Click     'クリック処理
            Error_Flg = 0  '処理データが見つかったので、フラグクリア
            Exit For
        End If
    Next
    
    '修正対象記事があるか？エラーチェック
    If Error_Flg = 1 Then
        'MsgBox "修正記事が見つかりません"
        Exit For  'ループを抜ける
    End If
    
    Call IE_WAIT(objIE)   '編集画面の起動を終了待つ

'4.本文を書き換える
'本文の
'movie:w560
'を
':embed:cite
'に書き換える
    'データをセットする
    objIE.document.all("body").Value = Replace(objIE.document.all("body").Value, ":movie:w560", ":embed:cite")
    DoEvents
    
'5.更新ボタンを押す
    '更新ボタンを押す
    objIE.document.all("submit-button").Click '更新ボタンをクリック
    DoEvents
    
    Call IE_WAIT(objIE)   '編集画面の起動を終了待つ

Next i

    MsgBox "更新終了"


End Sub

関連記事は
やりたいこと → https://www.youtube.com/watch?v=QtDKAXRZuno
www.youtube.com

ブログ本文置換 → https://ken3code.hatenablog.jp/entry/2018/06/24/154957
ken3code.hatenablog.jp

ブログ記事検索 → https://ken3code.hatenablog.jp/entry/2018/06/26/060419
ken3code.hatenablog.jp

上記も合わせてみてください。

2020/05/21 追記(※アクセス数が増えたので、何かなぁと思ったら・・・ぉぃぉぃ)

www.mypath-as-variant.com
より

三流君のコードは以下のようになっていたのですが
↓--------------------------------------------------
For Each objINPUT In objIE.document.getElementsByTagName("input")
If objINPUT.Value = "検索" Then
objINPUT.Click 'クリック処理
↑--------------------------------------------------
現状のはてなの検索ボタンを押すには、

↑とても、ありがたいですね。みなさんも、いろいろとアレンジして使ってみてください。

三流君のソースコード置き場

ブログにソースコードをアップして、ブログの検索機能で利用してます(利用予定です)

はてなブログ本文連続置換更新処理にチャレンジ結合テスト

Ken3 ホームページ目次

Ken3 ホームページ 目次

Ken3 ホームページ目次