Shulou(Shulou.com)06/03 Report--

VBA extract text from posts on Tianya Forum Sub Tianya posts simply grab () Dim cnt As Integer arr = Array ("comment", "report", "landlord", "author", "draft", "hot post", "forum", "registration", "advertisement" The word For y = 1 To 2 Set ie = CreateObject ("internetexplorer.application") With ie. Navigate "http://bbs.tianya.cn/post-free-5758447-" & y &" .shtml "'5758447-1.shtml" 5758447-2.shtml et al. '.visible = True Do Until ie.ReadyState = 4 DoEvents Loop For x = 0 To .Document.All.tags ("div"). Length-1' body is in div, div collection length ss = .Document.All.tags ("div") (x). Innertext 'body content len_ss = Len (ss)' body length If len_ss

0 Then GoTo 100' if a blocked word appears, skip to the next div Next cnt = cnt + 1 Debug.Print cnt & ":" & .Document.All.tags ("div") (x) .innertext 'output div End If 100Next x End With Next y ie.Quit Set ie = NothingEnd Sub

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.