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

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

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

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

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

复制粘贴下面的代码; Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const KEYEVENTF_KEYUP = &H2 '释放按键常数 Private Declare Sub Sleep Lib...

都没看到你连接数据库的数据源 Dim mrc1 As ADODB.Recordset '加上一句初始化 set mrc1=new ADODB.Recordset mrc1.Open Trim(txtSql),cn,1,3 'Set mrc1 = ExecuteSQL(Trim(txtsql))--------这句不要 。。。

不能用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(...

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