VB 字符串处理函数集
收藏
mid(字符串，从第几个开始，长度)
在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2)
从规定的位置开始查找，返回字符串2在字符串1中的位置
例如 instr(1,"小欣无敌","小") 则返回 1,instr(2,"小欣无敌","小")，则返回 0 。 0 表示未找到
InStrRev(字符串1,字符串2,从第几个开始)
从规定的位置开始，从后住前查找，返回字符串2在字符串1中的位置，此处注意，虽是从后住前查找，但是返回的值还是从前往后算的。
例如 instrRev("小欣无敌","小",2) 则返回 2 ; instrRev("小欣无敌","欣",1) 则返回 0 ,因为它从"小欣无敌"的第1个字开始往前查找，所以找不到 。0 表示未找到
left(字符串,长度)
从[字符串]的左边开始返回[长度]个字符
例如 Left("小欣无敌,3) 则返回 "小欣无"
right(字符串,长度)
......
工作需要，针对java文件，作了一个行数统计的工具。统计的主要代码如下：
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
'java总行数
allLinex = allLinex + 1
'java空白行
If Not flg And Trim(Replace(buf, vbTab, "")) = "" Then
'Debug.Print fileNm & ":" & allLinex
blankLinex = blankLinex + 1
End If
'java注释行
If flg Then
&n ......
工作需要，针对java文件，作了一个行数统计的工具。统计的主要代码如下：
Set srcIn = fso.OpenTextFile(fileNm, ForReading)
Do While Not srcIn.AtEndOfStream
buf = srcIn.ReadLine
'java总行数
allLinex = allLinex + 1
'java空白行
If Not flg And Trim(Replace(buf, vbTab, "")) = "" Then
'Debug.Print fileNm & ":" & allLinex
blankLinex = blankLinex + 1
End If
'java注释行
If flg Then
&n ......
题目:
如何获取网页下文字的链接地址
窗口有WebBrowser1，和一个Text1
现在
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
打开窗体显示百度的首页，要求滑动鼠标到“新闻”时
Text1里显示http://news.baidu.com/
滑动到“帖吧”时
Text1里显示清空text1,然后显示http://tieba.baidu.com/
等
要求自动判断，因为网页是不确定的不一定非是百度，就是
如果我鼠标滑动到网页下的文字或图片并且这段文字或图片有链接地址的话，那么text1里将清空上一条的地址，显示当前文字下或图片的链接地址。
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = Text
End Sub
相信许多朋友用得上,不用怀疑代码的可行性,这两句代码我都用了8年了 ......
http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.用Microsoft Internet Transfer Control 控件（在部件中添加），代码非常简单，如下（在form上添加一个Inet1和Text1和Command1）：
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.如果是使用 WebBrowser控件，代码也非常简单，如下（在form上添加一个WebBrowser1和Text1）：
Private Sub Form_Load() WebBrowser1.Navigate2 "http://xsuplist.hintsoft.net/game/xsGame"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'显示源码
Text1.Text = WebBrowser1.Document.documentElement.outerHTML
''显示内容
'Text1.Text = WebBrowser1.Document.documentElement.outerTEXT
End Sub
VBS脚本：
Set oDOM = WScript.GetObject("http://baidu.com")
do until oDOM.readyState = "complete"
WScript.sleep 200
loop
WScript.echo oDOM.documentElement.outerText ......
如何让幻灯片在vb的框架里播放
'Microsoft PowerPoint 9.0(Office 2000的，如果是97则是8.0) Object Library)
''Microsoft PowerPoint 11.0(Office 2003) Object Library)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '延时API声明
Private Sub Form_Load()
Dim ppt As New PowerPoint.Application
Dim pres As Presentation
ppt.Visible = True
Set pres = ppt.Presentations.Open(App.Path & "\Test.ppt") '填入你的文件名
With pres.SlideShowSettings
.Run
While pres.SlideShowWindow.View.State <> ppSlideShowDone
ppt.SlideShowWindows(1).View.Next
Sleep 1000 '填入延迟的时间调整快慢（毫秒）
......
VB6里面的安装内容中有JET （IISAM）部件，安装时加以选择,你可以修复安装你的VB6。具体做法如下：
1、重新启动VB安装程序，选取工作站工具和组件=》添加、删除程序=》数据访问=》更改选项=》选中Jet IIsam
2、重装VB，安装时选自定义，全部选中。 ......
最新文章 : vb