Slip para leer archivo

[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