`

(VB)一个从字符串取出子字符串的函数

    博客分类:
  • VB
VB 
阅读更多

从字符串inString中取出在字符串sSpecString与nSpecString之间的子串

Function getSpecString(inString As String, sSpecString As String, nSpecString As String) As String
Dim subString As String
Dim sIndex As Long
Dim nIndex As Long
subString = ""

'当nSpecString <>"" ,即有指定第二个字符串的值
If nSpecString <> "" Then
    For sIndex = 1 To Len(inString)
        If Mid(inString, sIndex, Len(sSpecString)) = sSpecString Then
            For nIndex = sIndex To Len(inString)
                If Mid(inString, nIndex, Len(nSpecString)) = nSpecString Then
                    subString = Mid(inString, sIndex + Len(sSpecString), nIndex - sIndex - Len(sSpecString))
                    Exit For
                End If
            Next nIndex
        End If
    Next sIndex
Else

'如果nSpecString="",即取出sSpecString字符串以后所有的字符
    For sIndex = 1 To Len(inString)
        If Mid(inString, sIndex, Len(sSpecString)) = sSpecString Then
            subString = Mid(inString, sIndex + Len(sSpecString), Len(inString) - sIndex - Len(sSpecString))
            Exit For
        End If
    Next sIndex
End If

'判断取出的字符串是否有空行,如果有就删除
If InStr(subString, Chr(13) & Chr(10)) = 1 Then
    subString = Right(subString, Len(subString) - 2)
End If
getSpecString = subString

End Function

例如:inString = "Hello China!" ,sSpecString="He",nSpecString="a!"

Dim resultString As String

resultString = getSpecString(inString, sSpecString, nSpecString)

结果:resultString = "llo Chin" 

0
0
分享到:
评论

相关推荐

    JavaScript字符串函数大全

    - **功能**:从字符串中截取子字符串。 - **参数**: - `x`:原字符串。 - `n`:起始位置。 - `m`:截取长度。 - **示例**: ```javascript let str = "Hello, world!"; console.log(Mid(str, 7, 5)); // 输出...

    vb基础函数用法

    Mid 函数用于从一个字符串中取子字符串。Mid 函数的格式是:Mid(字符串,起始位置,长度)。例如: ``` Mid("aabbcc", 3, 2) ' 返回 "bb" ``` 这里的 Mid 函数从字符串 "aabbcc" 中取出从第三个字符开始的两个字符,...

    vb中逆序输出

    `StrReverse`是VB中用于反转字符串的一个内置函数。在`Command1_Click`事件处理器中,`Text1`控件的文本被作为输入传递给`StrReverse`函数,然后结果被赋值给`Text2`控件显示出来。这种方法简洁明了,适用于字符串...

    VB源码字符排列组合.pdf

    7. **Mid函数**:用于从字符串中提取子字符串,例如`Mid(str1, i, 1)`取出`str1`中位置`i`的字符。 8. **Left和Right函数**:分别用于获取字符串左边或右边指定长度的子串,`Left(str1, i - 1)`取`str1`的前`i-1`个...

    VB函数总表里面记载许多我们常用的VB函数

    **描述:** 从字符串的右侧开始查找子字符串的位置。 #### Int **功能:** 取整数。 **描述:** 返回数值的整数部分。 #### IsArray **功能:** 判断变量是否为数组。 **描述:** 检查变量是否为数组类型。 #### ...

    VB常用指令集.docx

    * Left:截取字符串左边几个字 * Len:得知字符串的字数 * LenB:得知变量占用记忆体几个Byte * LTrim:移除字符串最左边的空白字符 * Mid:截取字符串里某些字符串 * Right:截取字符串右边几个字 * RTrim:去除...

    excel中161个VBA_自定义函数超级实用

    函数作用:摘取子字符串.............................79 '60.函数作用:计算20000余个汉字的笔画.................79 '61.函数作用:删除当前工作表中的全部超连接.............80 '62.函数作用:取得相近数据............

    我整理的VBA 自定义函数大全 共138页

    59.摘取子字符串 60.计算20000余个汉字的笔画 61.删除当前工作表中的全部超连接 62.取得相近数据 63.提取定串中汉字 64.搜索重复数据(选定范围) 65.字符型转数字型 66.小写人民币转大写人民币 67.取得指定月份人星期...

    二级VB试题及答案 全国计算机二级VB试题及答案

    15. 子字符串提取:B) Mid函数可以从字符串中取出子字符串。 16. 表达式计算:给定a=4, b=3, c=2, d=1,表达式a&gt;b+1 Or c的值为True,因为a不大于b+1,c小于d,且b除以c不等于0。 17. 变量命名规则:A) A#AB、C) ...

    2006年4月全国计算机等级考试二级VB语言笔试试题及答案.pdf

    15. 字符串处理函数:Mid函数可以从字符串中取出子字符串。 16. VB逻辑表达式:当a&gt; b+1 或 c (b, a) 且 d &gt; 1时,表达式结果为True。在给定的条件下,这个表达式为False。 17. VB变量命名规则:变量名不能以数字...

    2008年9月全国计算机等级考试二级VB笔试试题[参考].pdf

    5. (15) 输出“Program”的正确语句是A)和B),Mid()、Right()和Left()函数用于字符串操作,分别取出子字符串,但C)打印从第三个字符到字符串结束的部分,不包括'7',D)打印从第一个字符到第七个字符,不包含'P'。...

    4月-9月计算机考试二级VB真题及答案.pdf

    12. **字符串操作**:UCase函数将字符串转为大写,Left$函数取出字符串左侧指定长度的部分,Right$函数取出右侧指定长度的部分。所以语句后的C$值为"VISUAL C++ Programming"。 13. **MsgBox函数**:MsgBox语句用于...

    重庆市计算机等级二级VB历年真题A.pdf

    6. **字符串操作函数**:`Left$()`, `Right$()`, 和 `Mid$()` 分别用于从字符串左侧、右侧和中间提取子字符串。题目中要取出"A$ = "Windows Application""的"Application",应使用 `Mid$()` 函数从第9个字符开始提取...

    程序设计练习十三.pdf

    - 删除子字符串:在给定的字符串中删除指定的子字符串,这里通过循环实现。 9. 图形与定时器: - `Visible` 属性:控制控件(如Image1, Image2, Image3, Image4)是否可见。 - `Timer` 控件:按照预设间隔触发...

    重庆市计算机等级二级VB历年真题A

    6. **字符串操作**:从"A$ = "Windows Application""中取出"Application"子字符串,可以使用`Mid$`函数,`Mid$(A$, 9, 10)`从位置9开始取长度为10的子串,结果为"Application",因此答案是(C) Mid$ (A$, 9, 10)。...

    2010秋江苏计算机二级VB考试真题.pdf

    - Mid函数用于提取字符串的一部分,Left和Right函数分别用于提取字符串的左侧和右侧部分。表达式`Mid(s,i,i)`与`Left(s,i) & Right(s,Len(s)-i)`等价,都是取出从位置i开始长度为i的子串。 6. **数学表达式转换**...

    2006年4月全国计算机等级考试二级VB笔试试卷.doc

    15. **字符串操作**:Mid函数可以从字符串中取出子串,例如Mid("VisualBasic", 8, 6)会返回"Basic"。 16. **VB逻辑表达式**:a&gt;b+1 Or c,当a=4,b=3,c=2,d=1时,该表达式的值为True,因为b+1=4,a&gt;b不成立,c也...

    GetPaing 函数之asp采集函数中用到的获取分页的代码

    截取出从文本开始到结束标志之间的子字符串。 ```vb TempStr = Mid(TempStr, 1, Over) ``` ##### 3.6 查找开始标志的位置 从截取的子字符串中查找`StartStr`的位置,如果找不到或位置不合理,则返回`$False$`。 `...

    2022年计算机等级考试二级程序设计试题及答案.doc

    15. **字符串操作函数**:Mid函数可以从字符串中取出子字符串,例如Mid("VisualBasic", 8, 6)将返回"Basic"。 16. **逻辑表达式**:表达式a&gt;b+1 Or c在给定条件下为True,因为a&gt;5为False,c为True,b Mod c为1,...

    2021-2022计算机二级等级考试试题及答案No.13021.docx

    例如,题目中的`fun5`函数就是一个递归函数,用于计算序列值。 ### 数据库查询 1. **SQL查询类型** - SQL查询主要包括选择查询、联合查询、子查询等,而“数字定义查询”并不是SQL的标准查询类型。 ### GUI设计 ...

Global site tag (gtag.js) - Google Analytics