Posts: 96
Joined: Tue Oct 11, 2005 05:56 AM
Convertir una cadena en Array
Posted: Fri Jul 21, 2006 02:04 PM
Hola Foro,
Gracias a todos.
Este String es parte de lo que quiero convertir
Como se ve hay comas dentro de las cadenas
"CORTINOVA,S.A.","","CRTA.DE PRATS,KM.2.3","","","SABADELL","","","PERSIANAS DECORACION CR. SL"
Lo he solucionado con StrTran() y StrToken() asi:
Quiero extraer 59 Cadenas texto o numero de un string
For nToken := 1 To 59
1 Quito las comas que hay entre dos comillas y pongo otro caracter
cLine := StrTran(cLine,'","','|',1)
2 Quito todas las comillas dobles
cLine := StrTran(cLine,'"','',1)
3 Extraigo nToken con StrToken
cToken := StrToken( cLine, nToken, '|' )
aAdD(aTabla,cToken)
Next
Asi ha funcionado de maravilla.
Gracias a todos