Nuovo Layout grafico

Bene aggiornerò questo post mano a mano che farà delle modifiche … Dunque la prima, che poi è quella che salta più agli occhi è la nuova struttura (niente di che si intenda) …
Vorrei però approfittare per ringraziare taraki e tutti i ragazzi di “siamomeglionoi” per l’aiuto nella realizzazione dell’immagine (notate la favicon che ne ho ricavato :D)

Related Posts:

  • Nessun post correlato

[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 del separatore all'interno della stringa
'
Dim pos
pos = InStr(TokenString, TokenSeparators(i))

'
' Se il separatore è presente
'
If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then SepPosition = pos SepIndex = i End If Next ' ' test: sono stati trovati separatori nella stringa? ' If SepIndex < 0 Then ' ' Nessun separatore trovato ' ' incremento la dimensione dell'array contente i token e inserisco ' il nuovo token al suo interno redim preserve token(NumWords+1) token(NumWords) = TokenString Else ' Trovato un separatore - estraggo il token Dim substr substr = Trim(Left(TokenString, SepPosition-1)) ' Aggiungo il token trovato all'array redim preserve token(NumWords+1) token(NumWords) = substr ' Tolgo via il token appena trovato e riconsidero la stringa Dim TrimPosition TrimPosition = SepPosition+Len(TokenSeparators(SepIndex)) TokenString = Trim(Mid(TokenString, TrimPosition)) End If NumWords = NumWords + 1 loop while (SepIndex >= 0)

get_token = token

End Function

Related Posts:

  • Nessun post correlato

Anno nuovo vita nuova

Allora finalmente riesco ad avere 10 secondi di tempo per aggiornare il blog e mi ripropongo di farlo assiduamente …
Per ora cerco di renderlo più affascinante!! 😀
che ne pensate?!

Related Posts:

  • Nessun post correlato