登录
首页 » VB源码 » VB6.0 Mid判断指定字符串出现的次数

VB6.0 Mid判断指定字符串出现的次数

于 2022-03-18 发布 文件大小:2.38 kB
0 147
下载积分: 2 下载次数: 2

代码说明:

VB6.0 判断指定字符串出现的次数,判断字符串A在字符串B中出现的次数,使用了VB的Mid函数来判断,如图所示的运行效果,单击按钮即可查看运行结果。代码验证判断部分,采用for循环遍历判断,代码如下:   Dim j As Integer   j = 0   For i = 1 To Len(Text1)    If Mid(Text1, i, Len(Text2)) = Text2 Then    j = j + 1    End If   Next i   Label2.Caption = "出现" & j & "次"

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 一个使用Winsock控件的VB典型范例
    一个使用Winsock控件的VB典型范例,架构为CS结构,由服务端和客户端组成,两者都运行后,可互通消息。调试步骤:   1)打开服务器端的“工程1.dsw”工程   2)点击运行按钮。   1)打开客户端的“工程1.dsw”工程   2)点击运行按钮。   3)此时服务器端和客户端已经建立连接   4)在服务器和客户端分别输入任何内容,另一端将会收到该内容并显示出来。   说明:必须先运行服务器端工程,再运行客户端工程。
    2022-03-17 18:04:14下载
    积分:1
  • vb根据用户输入的内容决定显示指定内容
    vb根据用户输入的内容决定显示指定内容,从例子来看,是一个数据库搜索的例子,也就是用户搜索的什么,列表中会显示出相关内容。只是说法不同而已,为了可以正常运行,本示例中的数据库采用Access数据库,数据库文件为:db_Client.mdb。
    2022-08-23 09:42:29下载
    积分:1
  • VB.NET 软件在线自动升级功能演示
    VB.NET 软件在线自动升级功能演示,含源代码,程序自动更新版本源码中核心文件为UpdatingForm.vb,此文件包括了程序自动升级的主要功能,比如更新显示信息、删除不需要的文件、查找客户端需要更新的文件和需要删除的文件、查找服务器端新增需要下载的文件、版本控制文件为必须下载文件、设置当前下载的文件序数、强制结束进程等。   本程序需要一个存放软件最新版本的服务器或者是网址,程序运行后最先检测该网址下的软件是否是最新,若该网址不存在或出错,程序将不再继续,直接退出,如图所示。
    2022-07-23 12:00:34下载
    积分:1
  • 一个演示VB API高速搜索文件的程序
    一个演示VB高速搜索文件程序,基于API来实现,用于快速查找文件,类似的例子在前几年的书籍实例中,有很多,这一个也是从VB的书中整理出来的,代码中有丰富的注释,主要是分享给VB新手参考学习的。
    2022-10-25 13:25:04下载
    积分:1
  • VB 6.0 按字段显示数据库所有值
    VB 6.0 按字段显示Access数据库所有值,是一个按条件查询数据库的例子,这里的数据库为BOOK2.mdb,核心的代码如下:   Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)   End Sub   Private Sub Form_Load()   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False "   Adodc1.RecordSource = "select * from 作者"   Set DataCombo1.DataSource = Adodc1   DataCombo1.DataField = "城市"   Set DataCombo1.RowSource = Adodc1   DataCombo1.ListField = "姓名"   End Sub
    2022-09-25 11:45:03下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB SetWindowLong限制调整窗口大小的最大值
    VB 限制调整窗口大小的最大值,我们根据SetWindowLong函数的说明 ,可写出一个函数,当用户拖动窗口时,控制窗口最大能拖动到什么大小,当达到最大值时,窗口就不能继续被拖大,我们定义一个函数,在打开这个VB窗口时自动加载函数,实现对窗口最大拖动大小的控制:   Private Sub Form_Load()    Dim ret As Long    preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)    ret = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf wndproc)   End Sub
    2022-10-14 18:50:03下载
    积分:1
  • VB.NET窗体Tab 读取ini文件 界面滑动等功能集
    本源码基于VB.NET编写,集合了VB.NET中的读取ini文件,窗体Tab标签,界面滑动等效果,界面看上去是一个音乐播放器,其实本程序是侧重于界面的编程设计,演示了窗口中TAB标签切换、界面滑动以及整体界面的美化的具体实现,使用了比较多的三方DLL,已经都打包了,感兴趣的下载源码,在VS2012版本以上的VS中打开并编译。
    2022-01-26 07:32:46下载
    积分:1
  • vb串口调试助手,可用于自己做调试测试工具
    1.用易懂的VB语言编程   2.可设置串口号波特率   3.支持十六进或字符形式发送或接收,可定时发送。3,可自己换程序的图片
    2022-07-13 02:02:52下载
    积分:1
  • VB Seek语句设置随机访问文件的读取位置
    VB 设置随机访问文件的读取位置,本例中是使用Seek语句来设置随机访问文件的读取位置,代码编写方面,主要是掌握Seek的用法,以下代码将用户的单击行为作为触发Seek的事件条件:   Private Sub Command1_Click()    Dim str As String * 10    Open App.Path & "MyFile.txt" For Binary As #1    Seek #1, 5    Get #1, , str    Text1.Text = str    Close #1   End Sub   当用户单击按钮后,执行seek语句。
    2022-03-24 08:37:41下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载