使用VBscript删除除一个单词之外的所有文本

Question

我有一行文字是地址：1234 N. Main Street Atlanta 30000 Georgia

我希望剩下的唯一文字是格鲁吉亚。执行此操作的VBscript是什么？我是VBscripting的新手但不是编码。谢谢！

Answer 1

这不一定是最好的方法，但您可以将其拆分为空间中的数组，并采用最后一个元素。

arrAddress = Split(szAddress, " ")
szState = arrAddress(UBound(arrAddress))

您还可以使用InStrRev找到最后一个空格的位置，并使用Right(string, length)拉出状态。