[vbscript] get token

Ho realizzato questa semplice funzione in vbscript per l’identificazione dei token all’interno di una stringa (o testo): Function get_token(byVal TokenString, byRef TokenSeparators()) Dim NumWords, token(), i NumWords = 0 Dim NumSeps NumSeps = UBound(TokenSeparators) Do Dim SepIndex, SepPosition SepPosition = 0 SepIndex = -1 for i = 0 to NumSeps-1 ‘ ‘ Trovo la posizione […]