zgfp.net
当前位置:首页 >> vB高手请进,不要复制,急急急急,vB去除html标签,... >>

vB高手请进,不要复制,急急急急,vB去除html标签,...

没有具体程序,假设变量all代表HTML代码字符串。 可以循环检测: ok="" s1=instr(1,all,"") while s1>0 and s2

不对 OPEN不是打开一个文件 是为文件打开一个#1 可以打开不存在的文件名 用来新建文件.

截屏吧,,,,,,

一个是设置文件属性为只读,另外就是写驱动进行保护。

你可以msdn一下 VB有两个DLL文件 是支持库 你拷到你exe目录下就好了

注意你的定位路径 ‘ 把comdlg32.ocx这个文件复制到 c:\windows\system32\下面。然后重新注册一下。

Private Sub Command1_Click() WebBrowser1.SetFocus SendKeys "{tab 36}" SendKeys "{enter}" End Sub

Private Sub Timer1_Timer() If Hour(Time)=11 and Minute(Time)=0 Then MsgBox "时间到了" End Sub

这个我刚好写过,在BeforeNavigate2事件里重设新开窗口的大小: Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, C...

你是不是写到类外面了 Public Class XXX '在这里面写就好了 Protected Function toHtml(ByVal str As String) As String Str = Str.Replace(" ", " ") Str = Str.Replace(Char(10)&Char(10),"") Str = Str.Replace(Char(13),"") Return Str End ...

网站首页 | 网站地图
All rights reserved Powered by www.zgfp.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com