Hola Foro
Tengo una cadena bastante larga con delimitadores numéricos, hay alguna función con la que pueda convertir la cadena en un registro por cada delimitador?
Gracias
Cordialmente
Jairo Barbosa
Manuel Valdenebro wrote:Se me ocurren dos posibles soluciones:
1) Grabar la cadena en un fichero txt con memowrit() y añadir los registro con APPEND FROM indicando el delimitador.
2) Con un bucle usando strtoken() para determinar los parámetros de inicio y fin de cada regstro y SUBSTR().
jaba wrote:Manuel Valdenebro wrote:Se me ocurren dos posibles soluciones:
1) Grabar la cadena en un fichero txt con memowrit() y añadir los registro con APPEND FROM indicando el delimitador.
2) Con un bucle usando strtoken() para determinar los parámetros de inicio y fin de cada regstro y SUBSTR().
*----------------------------------------------------------------
Manuel Gracias pr tu respuesta
lo intento y te comento
Jairo
// nFrom hay que pasarlo por referencia "@" y empieza valiendo 1
function ExtractLine( cText, nFrom )
local cLine, nAt
nAt := At( CRLF, SubStr( cText, nFrom ) )
if nAt > 0
cLine := Substr( cText, nFrom, nAt - 1 )
nFrom += nAt + 1
else
cLine := Substr( cText, nFrom )
nFrom := Len( cText ) + 1
endif
return cLine
Antonio Linares wrote:Jairo,
Esta funcion es muy rapida:
- Code: Select all Expand view
// nFrom hay que pasarlo por referencia "@" y empieza valiendo 1
function ExtractLine( cText, nFrom )
local cLine, nAt
nAt := At( CRLF, SubStr( cText, nFrom ) )
if nAt > 0
cLine := Substr( cText, nFrom, nAt - 1 )
nFrom += nAt + 1
else
cLine := Substr( cText, nFrom )
nFrom := Len( cText ) + 1
endif
return cLine
Solo tienes que cambiar CRLF por el delimitador que uses
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 51 guests