用vb怎么获取网页标题
http://tieba.baidu.com/f?kz=255370663
搜集到一个程序
几乎都用它来完成采集任务了！贡献出来啊，很简单滴
Function strCut(strContent, StrStart, StrEnd) As String '通用截取函数
Dim strHtml, S1, S2 As String
dim strstart,strend as string
strHtml = strContent
On Error Resume Next
S1 = InStr(strHtml, StrStart) + Len(StrStart)
S2 = InStr(S1, strHtml, StrEnd)
strCut = Mid(strHtml, S1, S2 - S1)
End Function
Private Sub Form_Load()
Dim hunzi1, hunzi2 As String
hunzi1 = "<html><title>this is title</title></html>"
hunzi2 = strCut(hunzi1, "<title>", "</title>")
MsgBox hunzi2
End Sub
相关文档：
使用oracle数据库有两种方法：
1、在客户端机器上安装oracle的客户端软件。唯一的例外就是java连接数据库的时候，可以用jdbc thin模式，不用装oracle的客户端软件。
2、如果你在机器� ......
谁能帮我把这段代码转成Vb的代码，不胜感激，谢谢！
void CTempDlg::OnOK()
{
UpdateData(1);
int nlen=m_edit1.GetLength();
char *username=m_edit1.GetBuffer(nlen);//定义一个新字符串username,长度为nlen，并将m_edit1中的字符串一个个放入到username数组中
char strA[]="90123456 ......
Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--将DataGrid导出至Excel,ProgressBar1为进度条,intFirst为从哪一列开始打印,intLast为打印到哪一列
On Error Resume ......
在日常的操作系统维护过程中，有时我们也会写一些小的脚本程序来简化系统管理工作，例如调用一些WMI函数来自动安装卸载程序之类的。
在实际工作中，我发现程序员对脚本抱怨最多的就是脚本程序很难调试这个缺点，特别是调试.vbs等WSH程序的时候，总是：
1. 在资源管理器里面双击一个. ......
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
