Техника усечения переменных VBScript

Question

Мне нужно взять почтовые индексы различной длины из существующей переменной и урезать их, когда это необходимо, до 5 символов.

Будет ли этот код работать? Если нет, как я могу это сделать?

StateZip = split(splitAddr(1), " ")
StateZip = left(StateZip, 5)

Answer 1

splitAddr = "123456 12345 1234"
StateZip = split(splitAddr," ") 
For i = LBound(StateZip) To UBound(StateZip)
    StateZip(i) = left(StateZip(i), 5) 
    WScript.Echo StateZip(i)
Next