六子技术网首页

六子技术网

  • 网站首页
  • HTML/CSS
  • javascript
  • seo优化
  • PS美工
  • 系统安全
  • 漏洞预警
  • 编程学习
  • 原创专区
  • 【六子技术网】是一家综合技术门户,为您提供网站建设,编程开发,安全维护,漏洞预警等技术文章

    技术文章MAP

    文章

    VB相同字符之间截取字符串附送代码

    日期:2019/10/20 15:56:29来源分类:编程开发

    VB相同字符之间截取字符串附送代码,并且吧代码的作用给大家加了注释!方便理解

    代码如下===============================================

    Private Sub Form_Load()

    text1.text="111111+22222+33333333+44444+55555+66666"

    End Sub

    Private Sub Command1_Click()
    Text2.Text = GetChar(Trim(Text1.Text), "+", 1, 2)   '第1个+号和第三个+号之间的字符串截取
    End Sub


    '函数使用方法: getchar(mStr:原始字符,charX:规律字符,比如截取两段加号之间的那么就输入"+",

    'BofNum: 起始字符位, EofNum: 终点字符位)

    Private Function GetChar(mStr As String, charX As String, BofNum As Integer, EofNum As Integer) As String

        Dim i As Integer    '循环

        Dim x As Integer    '记录第几个"+"符号

        Dim startNum As Integer     'MID函数截取开始位数

        Dim endNum As Integer       'MID函数截取结束位数

        For i = 1 To Len(mStr)

            If x = EofNum Then Exit For  '得到截取开始和结束位数则退出

            If Mid(mStr, i, 1) = charX Then

                 x = x + 1

                If x = BofNum Then   '第一个为开始位置

                     startNum = i

                ElseIf x = EofNum Then   '第二为结束位置

                     endNum = i

                End If

            End If

        Next i


    'qnames2 = finddoc.MTnames

    Dim sArray() As String

    'Dim i As Integer    '循环

    Dim iCount As Integer    '记录第几个"+"符号

    iCount = 1

    'For i = 1 To Len(qnames)

    ' sArray(i-1)= Mid(qnames, iCount, 1)

    ' iCount =iCount + 2

    ' Msgbox sArray(i-1)

    'Next
        '开始位置第一个是符号 需要移动一位    结束位置-开始位置=截取长度

        '截取出来的两边各有符号 所以需要取舍

         GetChar = Mid(mStr, startNum + 1, endNum - startNum - 1) '赋值

    End Function
     

    本文由六子技术网小编:屌爆侠编辑整理 - 转载请注明来源 - http://www.liuzi.net/bc/html/3903.html

    随机推荐

    • 该分类还没有添加任何内容!
    • 该分类还没有添加任何内容!

    Copyright 2005-2019 【六子技术网】 版权所有 黑ICP备16886888号

    声明:本站所有文章来自互联网 如有异议 请联系本站管理员