微博发博数提取

; 一个下载网页Html代码，并提取指定信息的演示而已
SetBatchLines, -1

FileDelete, %A_Temp%\WeiBoHtml.txt
FileEncoding UTF-8

微博的ID:="6102887896"

if (微博的ID+0="")
	UrlDownloadToFile, https://weibo.com/%微博的ID%, %A_Temp%\WeiBoHtml.txt
  else
	UrlDownloadToFile, https://weibo.com/u/%微博的ID%, %A_Temp%\WeiBoHtml.txt

Loop, read, %A_Temp%\WeiBoHtml.txt
	if (InStr(A_LoopReadLine, "<\/strong><span class=\""S_txt2\"">微博")!=0) {
		检索所在行 := A_LoopReadLine
		break
	}

发微博的数量:=RegExReplace(SubStr(检索所在行,InStr(检索所在行,"<\/strong><span class=\""S_txt2\"">微博",,0)-6, 6), "[\\""]*>","")

MsgBox % "此微博博主一共发了 " 发微博的数量 " 条微博"