|
发表于 2014-11-24 19:40:06
|
显示全部楼层
Sub 查重复字()
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", "http://www.dacankao.com/forum.php?mod=viewthread&tid=37608&pid=94943&page=1&extra=", False
.send
t = Split(Replace(Replace(.responsetext, ",", ""), "。", ""), "</strong><br />")
a = Replace(Replace(Replace(Split(t(1), "<strong>第")(0), "<br />", ""), vbTab, ""), vbCrLf, "")
a = a & Replace(Replace(Replace(Split(t(2), "<strong>第")(0), "<br />", ""), vbTab, ""), vbCrLf, "")
a = a & Replace(Replace(Replace(Split(t(3), "<strong>第")(0), "<br />", ""), vbTab, ""), vbCrLf, "")
a = a & Replace(Replace(Replace(Split(t(4), "</td>")(0), "<br />", ""), vbTab, ""), vbCrLf, "")
n = Len(a)
End With
For i = 1 To n - 1
b = Mid(a, i, 1)
For j = i + 1 To n
c = Mid(a, j, 1)
If b = c Then Debug.Print i, b, j, c
Next j
Next i
End Sub
|
|