ASP: dividere una stringa mediante un carattere

La mia attività di nerd totale mi porta spesso a scrivere, partecipare e rispondere a quesiti, più o meno facili, riguardanti ASP, jQuery, jQuery Mobile, Sencha e tutti quei linguaggi per i quali credo di essere ferrato.

In questi giorni mi sono accorto che c’è ancora un grandissimo numero di persone che hanno a che fare con il Classic ASP, volenti o nolenti, e che sono ad un livello piuttosto basso, tale da dover chiedere continuamente suggerimenti su come procedere in date situazioni che, a mio avviso, sono un po’ l’ABC del VBScript.

E’ altresì vero che, ovviamente, non tutti sono allo stesso livello, e tutti devono avere la possibilità di superare i proprio ostacoli, facili o difficili che siano.

Nel caso specifico, il problema era dato da un elenco di nomi e cognomi, divisi da una virgola, che dovevano essere listati in una certa maniera.
Posto il caso e la soluzione, non sia mai che qualcuno ne ha bisogno e riesce, navigando nei meandri del web, a trovarla.


' la stringa in questione è la seguente
elencoNomi = "Mario Rossi, Gianni Verdi, Alessandro Bianchi, Ivano Azzurri"

' la necessità è quella di avere, uno sotto l'altro, un elenco di nomi linkati ad una pagina X
' l'ultimo nome non dovrà avere la virgola dopo il nome e non dovranno comparire spazi prima o dopo

ar_elencoNomi = Split( elencoNomi, "," )

' carico nella variabile ar_elencoNomi l'array di tutti i nomi presenti nella lista elencoNomi
' ora devo fare un ciclo che, per ogni voce, mi scrive a video un link ed il relativo nome e cognome

for x=0 to UBound(ar_elencoNomi)    ' un ciclo che va da zero all'ultimo valore dell'array ar_elencoNomi

   if ar_elencoNomi(x)<>"" then    ' tengo in considerazione solo quelle voci che sono diverse da "", ossia vuote. Può tornare utile

      nome = Trim( ar_elencoNomi(x) )   ' il Trim() mi elimina gli spazi prima e dopo il valore del nome

      if int(x) < int( UBound(ar_elencoNomi) ) then    'controllo che non sia l'ultima voce
          stringa = "<a href="pagina1.html">" & nome & "</a>, "
      else
          stringa = "<a href="pagina1.html">" & nome & "</a>"
      end if

   end if

next   ' prossima voce del ciclo