__StrToken error?

[zeasoftware]

estoy teniendo un problema al usar esta funcion, me devuelve una cadena vacia siempre, y antes funcionaba de maravillas
Function zToken( cText, cToken, nToken, lAdjust )
Local cTokenResult := ""
Default lAdjust := .f.
Default cToken := ";"
cTokenResult := __StrToken( cText, cToken, nToken )
If ( lAdjust )
cTokenResult := AllTrim(cTokenResult)
End
Return ( cTokenResult )
Tengo:
AppData:LPT_Cotizacion = "PDFCREATOR;S"
logdebug(zToken(AppData:LPT_Cotizacion,, 1)) //deberia volver PDFCREATOR y regresa ""
logdebug(zToken(AppData:LPT_Cotizacion,, 2)) //deberia volver S y regresa ""
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[ignacio]

Ramón,
¿Será quizas por el cambio a la 1.2a? Me temo que no.
Esa función no es de Xailer es de xHarbour, por favor dirigase al foro de xHarbour.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=457251c5@news.xailer.com...]457251c5@news.xailer.com...[/email]
estoy teniendo un problema al usar esta funcion, me devuelve una cadena vacia siempre, y antes funcionaba de maravillas
Function zToken( cText, cToken, nToken, lAdjust )
Local cTokenResult := ""
Default lAdjust := .f.
Default cToken := ";"
cTokenResult := __StrToken( cText, cToken, nToken )
If ( lAdjust )
cTokenResult := AllTrim(cTokenResult)
End
Return ( cTokenResult )
Tengo:
AppData:LPT_Cotizacion = "PDFCREATOR;S"
logdebug(zToken(AppData:LPT_Cotizacion,, 1)) //deberia volver PDFCREATOR y regresa ""
logdebug(zToken(AppData:LPT_Cotizacion,, 2)) //deberia volver S y regresa ""
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[zeasoftware]

No dje que fuera pro el cambio de version, solo que en las ultimas versiones han mandado nuevas revisiones de xHarbour, las cuales, me supongo ustedes modifican para su optimo uso en Xailer.
Saludos.
Gracias por tu tiempo.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje news:4572a2c5$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Ramón,
¿Será quizas por el cambio a la 1.2a? Me temo que no.
Esa función no es de Xailer es de xHarbour, por favor dirigase al foro de xHarbour.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=457251c5@news.xailer.com...]457251c5@news.xailer.com...[/email]
estoy teniendo un problema al usar esta funcion, me devuelve una cadena vacia siempre, y antes funcionaba de maravillas
Function zToken( cText, cToken, nToken, lAdjust )
Local cTokenResult := ""
Default lAdjust := .f.
Default cToken := ";"
cTokenResult := __StrToken( cText, cToken, nToken )
If ( lAdjust )
cTokenResult := AllTrim(cTokenResult)
End
Return ( cTokenResult )
Tengo:
AppData:LPT_Cotizacion = "PDFCREATOR;S"
logdebug(zToken(AppData:LPT_Cotizacion,, 1)) //deberia volver PDFCREATOR y regresa ""
logdebug(zToken(AppData:LPT_Cotizacion,, 2)) //deberia volver S y regresa ""
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[jfgimenez]

Ramón,
No dje que fuera pro el cambio de version, solo que en las ultimas versiones han mandado nuevas revisiones de xHarbour, las cuales, me supongo ustedes modifican para su optimo uso en Xailer.
No, no modificamos nada. En el caso de que hagamos alguna pequeña modificación, publicamos esos cambios dentro del directorio source de xHarbour que tenemos preparado para este fin. Lo que sí­ hacemos al compilarlo es usar los flags que consideramos más adecuados para usarlo con Xailer.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--

[jfgimenez]

Ramón,
Esto no es correcto con Xailer:
Default lAdjust := .f.
Default cToken := ";"
Lo correcto es:
Default lAdjust TO .F.
Default cToken TO ";"
Y aquí­ estás cambiando el orden de los parámetros:
cTokenResult := __StrToken( cText, cToken, nToken )
Lo correcto es:
cTokenResult := __StrToken( cText, nToken, cToken )
--
Un saludo,
José F. Giménez
http://www.xailer.com
--

[zeasoftware]

El comando DEFAULT yo lo he redefinido, ya que desde clipper lo uso con ese formato.
cTokenResult := __StrToken( cText, nToken, cToken )
lo voy a probar, pero, desde hace mucho lo he usado asi, ademas que no viene en la ayuda de xHarbor.
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4573e401$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Ramón,
Esto no es correcto con Xailer:
Default lAdjust := .f.
Default cToken := ";"
Lo correcto es:
Default lAdjust TO .F.
Default cToken TO ";"
Y aquí­ estás cambiando el orden de los parámetros:
cTokenResult := __StrToken( cText, cToken, nToken )
Lo correcto es:
cTokenResult := __StrToken( cText, nToken, cToken )
--
Un saludo,
José F. Giménez
http://www.xailer.com
--

[ignacio]

Ramón,
>>desde hace mucho lo he usado asi
HB_FUNC( __STRTOKEN )
{
char * pszText;
ULONG ulLen;
pszText = hb_strToken( hb_parcx( 1 ), hb_parclen( 1 ),
hb_parnl( 2 ),
ISCHAR( 3 ) ? *hb_parcx( 3 ) : ' ',
&ulLen );
hb_retclen( pszText, ulLen );
}
Como puedes observar el segundo parametro es de tipo númerico y el tercero es de tipo carácter. Revisa todo tu código porque tienes todas tus llamadas a __StrToken() de forma erronea. Y te aseguro que esto no ha cambiado NUNCA.
>>ademas que no viene en la ayuda de xHarbor
Te aconsejo que lo comentes si acaso en el foro de xHarbour.
En cualquier caso ha quedado completamente demostrado que el error era únicamente tuyo. Encantado de haber podido ayudarte a que lo encontrases.
Saludos
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=45741416@news.xailer.com...]45741416@news.xailer.com...[/email]
El comando DEFAULT yo lo he redefinido, ya que desde clipper lo uso con ese formato.
cTokenResult := __StrToken( cText, nToken, cToken )
lo voy a probar, pero, desde hace mucho lo he usado asi, ademas que no viene en la ayuda de xHarbor.
Gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4573e401$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Ramón,
Esto no es correcto con Xailer:
Default lAdjust := .f.
Default cToken := ";"
Lo correcto es:
Default lAdjust TO .F.
Default cToken TO ";"
Y aquí­ estás cambiando el orden de los parámetros:
cTokenResult := __StrToken( cText, cToken, nToken )
Lo correcto es:
cTokenResult := __StrToken( cText, nToken, cToken )
--
Un saludo,
José F. Giménez
http://www.xailer.com
--