VB批量修改htm网页的问题 清除1.htm-100.htm中的 之间的内容 有参考代码
VB批量修改htm网页的问题 清除1.htm-100.htm中的 <!-- 和-->之间的内容 或者将<!-- 和-->也去掉更好。。。
比如
</div><br>
<!--
<form name=f2 action="/s">
<tr valign="middle">
<td nowrap>
<input type=hidden name=ct value="0">
<input type=hidden name=ie value="gb2312">
<input type=hidden name=bs value="qq">
<input type=hidden name=sr>
<input type=hidden name=z value="">
<input type=hidden name=cl value=3>
<input type=hidden name=f value=8>
<input name=wd size="35" class=i value="啊" maxlength=100>
<input type=submit value=暗暗> <input type=button value=结果中找 onclick="return bq(f2,1,0);"> </td>
<td nowrap><a href="http://utility.baidu.com/quality/quality_form.php?word=qq%BF%D5%BC%E4%C3%E2%B7%D1%C6%A4%B7%F4">-->
</tr>
只留下
</div><br>
</tr>
这样,如何能实现呢? 要批量处理哦
参考代码:
For i = 1 To shuliang.Text '文件数量
Dim S1 As String
Dim d As String
DownloadFile " http://www.baidu.com/s?wd=" + GetaLine(RichTextBox2, i - 1) + "&cl=3", mulu & qianzhui.Text & "" & i & "." + houzhui.Text
If d = "" Then
Open mulu & qianzhui.Text & "" & i & "." + houzhui.Text For Input As #3
Do Until EOF(3)
Line Input #3, S1
d = d & S1 & vbCrLf
Loop
Close #3
d = Replace(d, "<!--STATUS OK-->", "")
End If
Open mulu & qianzhui.Text & "" & i & "." + houzhui.Text For Output As #4
Print #4, d
Close #4
Close #2 '写完就关
这只是批量生成 修改 并保存的 大家也看到了 抓取的内容都不一样 所以无法和
d = Replace(d, "<!--STATUS OK-->", "")
这段一样去掉一些代码 请求帮助!