|
* 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,16}" 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}; - アカウントは16文字までなので制限 -- &new{2016-05-19 (木) 19:19:29}; #comment |