Slip para leer archivo

[Fabu_dina]

Tengo el siguiente codigo

Código ASP:

Vector = Split(cadena, ",",-1,0)
For i = 0 to ubound(vector)
    Response.Write vector(i)
    Response.Write "<br>"
next
 

El problema radica cuando

cadena = "valor1,valor2,valor3,"1,800.00","2.5""

Es decir mis valores viene delimitados por coma pero tiene calificador de Texto " para los importes

Espero alguien me pueda ayudar

gracias

[rmaeloy]

Código ASP:

vector = Split(cadena, ",", -1, 0)
For i = 0 To UBound(vector)
    If Left(vector(i), 1) = """" Then
        sStr = ""
        For i2 = i To UBound(vector)
            sStr = sStr & vector(i2)
            If Right(vector(i2), 1) = """" Then
                i = i2
                Exit For
            Else
                sStr = sStr & ","
            End If
        Next
        Response.Write sStr
    Else
        Response.Write vector(i)
    End If
    Response.Write "<br>"
Next
 

[Fabu_dina]

Funciono perfecto muchas gracias