- 追加された行はこの色です。
- 削除された行はこの色です。
* 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