vbscript - VBscript で 1 語を除くすべてのテキストを削除する

Question

住所のテキスト行があります: 1234 N. Main Street Atlanta 30000 Georgia

残りのテキストはジョージアだけにしたい. これを行うためのVBscriptは何ですか? 私はVBscriptingは初めてですが、コーディングは初めてです。ありがとう！

Answer 1

これは必ずしも最良の方法ではありませんが、スペース上の配列に分割し、最後の要素を取ることができます。

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

InStrRevを使用して最後のスペースの位置を特定し、 を使用Right(string, length)して状態を引き出すこともできます。