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

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

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

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

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

不能用TRIM函数,不然全部空格都会删除。 要用LTRIM函数、RTRIM函数组合使用。 LTRIM() 是去除字符首位的空格(不论有几个空格) RTRIM() 是去除字符尾部的空格(不论有几个空格) 如二楼的回答,把Trim(c.Value) 改成 LTrim(RTrim(c.Value)) 即...

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

截屏吧,,,,,,

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

参考代码如下: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" And Target = 2 Then Columns("c:d").Show Columns("e:k").Hide ElseIf Target.Address = "$A$3" And Target = 2 Then Rows("4:5").Show Rows(...

使用ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible报错? 在使用这一句之前 on error resume next 然后ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible 之后捕获错误 if err.number0 then err.clear'出现错误,...

这个我刚好写过,在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...

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