vbscript 如何在字符串中找到 "-"并将后面的字符放入新字符串中？

Question

我正在使用 vbscript，如何在字符串中找到连字符“-”并将后面的字符放入新字符串中？

基本上我的计算机名称以房间号结尾

PC1-3(3号房间)、PC1-4(4号房间)等

我正在使用

Dim roomArray(2)
roomArray = Array("-1", "-2", "-3")

Dim item
For each item in roomArray
 If instr(strComputerName, item)
   ..do something
 End If
Next

但是由于房间 -33 包含“-3”等，我得到了误报，因此如果我在字符串中找到“-”并将后面的字符放入字符串中，我可以检查完整字符串而不是使用说明。

感谢您的帮助。

Answer 1

这将获取找到的最后一个连字符后面的所有文本:

Function GetRoomNumber(strComputerName)
    Dim hyphenIndex

    hyphenIndex = InStrRev(strComputerName, "-")
    If hyphenIndex > 0 Then
      GetRoomNumber = Mid(strComputerName, hyphenIndex+1)
    End If
End Function

您的示例中的用法是:

Dim roomArray(2)
roomArray = Array("-1", "-2", "-3")

Dim item, index

For index = LBound(roomArray) To UBound(roomArray)
 item = roomArray(index)
 If ("-" & GetRoomNumber(strComputerName)) = item Then
   ..do something
 End If
Next

或者简短的版本是(没有定义具有数据验证的函数):

...
If Mid(strComputerName, InStrRev(strComputerName, "-") ) = item Then
...