As I data mine Google, I am wondering how to replace no results, with the number 0.
i.e. if there are no hits for say, John Biblotit on google books, there would be a zero, instead of that entry being blank.
S := 1
L0 := 0
URLDownloadToFile, http://en.wikipedia.org/wiki/Category:Chinese_centenarians, wiki.txt
; shorter list Category:Chinese_centenarians
FileRead, Con, wiki.txt
While (Pos := RegExMatch(Con, "<li><a href=""/wiki/.*?"" title=""(\S.+?)"">", Sub, S)) {
; original script: <ul><li><a href="/wiki/Hiroshi_Takeyasu" title="Hiroshi Takeyasu">Hiroshi Takeyasu</a></li></ul>
L0++
NewStr := RegExReplace(Q, "\(.*?\)", "", count) ; removes the parenethis in a name.
; msgbox %NewStr% for testing
Q := Sub1
S := Pos + StrLen(Sub1) + 13
URLDownloadToFile, http://news.google.com/archivesearch?q="%NewStr%"+&btnG=Search+Archives, google.txt
FileRead, CCon, google.txt
RegExMatch(CCon, "of (?:about )?<b>(\S+)</b>", Sub)
L%A_Index%Results := RegExReplace(Sub1, "[^\d]")
;msgbox, %Q% "http://books.google.com/books?q=+"%NewStr%"+&btnG=Search+Books" ; for testing
URLDownloadToFile, http://books.google.com/books?q=+"%Q%"+&btnG=Search+Books, google.htm
FileRead, CCon1, google.htm
RegExMatch(CCon1, "of (?:about )?<b>(\S+)</b>", Subl)
n%A_Index%Results := RegExReplace(Subl1, "[^\d]")
;msgbox, %Q% "http://scholar.google.com/scholar?&q="%NewStr%"""" ; for testing
URLDownloadToFile, http://scholar.google.com/scholar?&q="%Q%, google.htm
FileRead, CCon1, google.htm
RegExMatch(CCon1, "of (?:about )?<b>(\S+)</b>", Subl)
m%A_Index%Results := RegExReplace(Subl1, "[^\d]")
L%A_Index% := NewStr
}
L := "<span class=""plainlinks"">`r`n{|class=""wikitable sortable""`r`n!Name!!Google books!!Google news!!Google scholar"
;L := "Found " . L0 . " results.`r`n"
Loop %L0%
L .= "`r`n|-valign=top `r`n|align=left|[[" . L%A_Index%
. "]]`n|align=center|<!--news-->[http://news.google.com/archivesearch?q={{urlencode:""" . L%A_Index% .
"""}}+&btnG=Search+Archives " . L%A_Index%Results .
"]`n|align=center|<!--books-->[http://books.google.com/books?q=+{{urlencode:""" . L%A_Index% . """}}+&btnG=Search+Books " . n%
A_Index%Results . "]`n|align=center|<!-
-scholar--> [http://scholar.google.com/scholar?&q={{urlencode:""" . L%A_Index% . """}} " . m%A_Index%Results . "]"
;MsgBox %L% ; for testing
FileAppend, %L%, %a_scriptdir%\L.txt
Run, %a_scriptdir%\L.txt
Return
Login
Register
FAQ
Search
