Macro/投稿/237 のバックアップ差分(No.5)




  • 追加された行はこの色です。
  • 削除された行はこの色です。
* TwitterのフォロワーなどのコピーからIDの抽出 [#b616eb97]
-ページ: [[Macro/投稿]]
-作者: [[kartis]]
-カテゴリー: vbs
-投稿日: 2015-12-26 (土) 22:33:44

** メッセージ [#tb7d4d20]
-SPAM業者などのフォロワー/フォロイーをコピーした編集中のファイルから
ブロック済み、非公開アカウントを除いた、3文字以上のアカウントをGREPする
-実行後結果に[[GREP結果のソート>http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F233]] を使用してアカウント一覧のみのリストを作れる

#code(plain){{
'非公開アカウント削除
sKey = "非公開ツイート"

GoFileTop
lngLine = ExpandParameter(CStr("$y"))
SearchNext CStr(sKey), CLng(21)
Do Until (ExpandParameter(CStr("$y")) = lngLine)
    selectline(0)
    Delete(0)
    SearchNext CStr("@\w+"), CLng(&H04)
    selectline(0)
    Delete(0)
    lngLine = ExpandParameter(CStr("$y"))
    SearchNext CStr(sKey), CLng(21)
Loop

'ブロック中アカウント削除
sKey = "ブロック中"

GoFileTop
lngLine = ExpandParameter(CStr("$y"))
SearchNext CStr(sKey), CLng(21)
Do Until (ExpandParameter(CStr("$y")) = lngLine)
    selectline(0)
    Delete(0)
    SearchNext CStr("@\w+"), CLng(&H04)
    selectline(0)
    Delete(0)
    lngLine = ExpandParameter(CStr("$y"))
    SearchNext CStr(sKey), CLng(21)
Loop

FileSave

'3文字以上の@アカウント名でGrep
sKey  = "\@[A-z0-9]{3,}"
sFile = ExpandParameter(Cstr("$f"))
sPath = ExpandParameter(Cstr("$F"))
 
if len(sKey) > 0 and sFile <> sPath then 
        'msgbox spath & "," & sfile
        sDir = Left(CStr(sPath), Len(sPath) - Len(sFile) - 1)
        Grep sKey, CStr(sFile), CStr(sDir), 25368
end if
}}
----
- 途中経過セーブしてなかったので削除効いてなかったのを修正 --  &new{2016-01-31 (日) 18:05:41};

#comment


    ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS