Separar una frase por espacios

[cslbcn]

Hola. espero que alguien sepa como hacer eso...

Tengo una variable que contiene varios códigos:

a20212 a20213 a20214 a20215

Quiero separar cada uno de estos códigos y que se muestren en una tabla, es decir que quede así:

a20212
a20213
a20214
a20215

Con este código:

Código PHP:

          Dim x As Integer 
        Dim rutacorta As String 
 
        Response.Write("<table>") 
        For x = 1 To Len(Session("IDcliente")) Step +1 
            If Mid(Session("IDcliente"), x, 1) = " " Then 
                rutacorta = Microsoft.VisualBasic.Left(Session("IDcliente"), x) 
                Response.Write("<tr><td>" & rutacorta & "</td><td>" & x & "</td></tr>") 
                rutacorta = "" 
            End If 
        Next 
        Response.Write("</table>")  
   

Me dá este resultado:
a20212
a20212 a20213
a20212 a20213 a20214
a20212 a20213 a20214 a20215

Me podéis decir que falta añadir al código para que no se me repita siempre los valores anteriores?

Muchisimas gracias de antemano

[posman]

Lo mas sencillo para separar una cadena es utilizar la funcion split. La funcion te regresa un arreglo con cada una de las partes. Uno de los parametros de la funcion es el separador que quieres utilizar:

Código:

arreglo = split(Session("IDcliente"), " ")
for x = 1 to ubound(arreglo)
   response.write "<tr><td>" & arreglo(x) & "</td></tr>"
next

El problema que tienes con tu codigo es que utilizas left. Cuando encuentras el primer espacio (caracter 7), con left obtienes los primeros 7 caracteres (que es correcto). Pero en la siguiente pasada del ciclo, encuentras otro espacio en el caracter 14 y con left obtienes los primeros 14 caracteres de la cadena. Es por eso que se estan repitiendo los valores.

[cslbcn]

Qué bueno! Es más sencillo que de la manera q estaba intentano. Muchas gracias posman por tu ayuda.

Coloco aquí el código completo que he usado:

Código PHP:

          Dim arreglo() As String
        Dim i As Integer
        arreglo = Split(Session("IDcliente"), " ")
        Response.Write("<table>")
        For i = LBound(arreglo) To UBound(arreglo)

            Response.Write("<tr><td>")
            Response.Write(arreglo(i))
            Response.Write("</td></tr>")
        Next
        Response.Write("</table>")