时间戳

首页 > 解决方案 > 在字符串 VBScript 中查找特定子字符串

vbscript - 在字符串 VBScript 中查找特定子字符串

问题描述

Dim string1 = "631;27;73"
Dim string2 = "31"

InStr(string1, string2)返回 2，因为 31 是 的子集string1。对于我目前的情况，我想匹配整个数字。string2 = 31不是匹配的数字string1，因此我想返回一个零并将 31 附加到string1.

标签： vbscript

解决方案

您可以将您的号码列表拆分为一个数组并比较每个号码：

Function NumberExists(p_sNumber, p_sList)
    Dim arrValues
    Dim iCounter

    arrValues = Split(p_sList, ";")

    For iCounter = 0 To UBound(arrValues)
        If p_sNumber = arrValues(iCounter) Then
            ' Number is found
            NumberExists = True
            Exit Function
        End If
    Next

    NumberExists = False

End Function

在您的场景中，您可以使用如下函数：

Dim string1
Dim string2

string1 = "631;27;73"
string2 = "31"

MsgBox NumberExists(string2, string1)

推荐阅读