Page 1 of 1

substr() SOLUCIONADO

Posted: Fri Feb 07, 2025 10:54 pm
by D.Fernandez
Hola amigos:

Tengo una cadena de 200 caracteres. cStrings
Con n1:= HB_AT(" ",cstrings , 65, 75 ) busco donde hay un espacio entre 65 y 75 y lo muestra n1 (73)
? deta[1]:= substr(cstring , 1, n1) Aqui extraigo la cadena desde el 1 (primer caracter hasta n1 que es 73
Esto lo hace bien.

Pero si hago para probar
deta[2]:= substr(cstrings , 74, 160) Muestra el strings desde el 74 hasta el 200.

No muestra desde el 74 al 160

Cuando hago un MsgInfo(cStrings), lo hace a la perfección.

Gracias por cualquier sugerencia

Saludos
Ruben Fernandez

(No encuentro en el foro nada porque todavía no está actualizado totalmente)

Re: substr()

Posted: Fri Feb 07, 2025 11:18 pm
by leandro
y si duplicas la variable y sacas la información que resta, puedes intentar de la siguiente manera, y mirar si funciona.

Code: Select all | Expand

cValida := cstrings 
deta[2]:= substr(cValida, 74, 160)
msginfo(deta[2])

Re: substr()

Posted: Sat Feb 08, 2025 12:40 am
by D.Fernandez
Gracias Leandro por la respuesta.

El inconveniente que tengo es que siempre los valores cambian, por eso no puedo hacerlo así.

Seguimos viendo.

Gracias y saludos

Ruben Dario Fernandez

Re: substr()

Posted: Sat Feb 08, 2025 3:21 am
by lubin
Estimado,

Quizas, asi?


n1:= HB_AT(" ",cstrings , 65, 75 )

deta[2]:= substr(cstrings , n1+1, 200-n1)

saludos

Re: substr()

Posted: Sat Feb 08, 2025 5:49 am
by alerchster
Estimado,

Quizas, asi?


n1:= HB_AT(" ",cstrings , 65, 75 )

deta[2]:= substr(cstrings , n1+1, 160-n1)

saludos

Re: substr()

Posted: Sat Feb 08, 2025 8:48 am
by FiveWiDi
D.Fernandez wrote: Fri Feb 07, 2025 10:54 pm Hola amigos:

Tengo una cadena de 200 caracteres. cStrings
Con n1:= HB_AT(" ",cstrings , 65, 75 ) busco donde hay un espacio entre 65 y 75 y lo muestra n1 (73)
? deta[1]:= substr(cstring , 1, n1) Aqui extraigo la cadena desde el 1 (primer caracter hasta n1 que es 73
Esto lo hace bien.

Pero si hago para probar
deta[2]:= substr(cstrings , 74, 160) Muestra el strings desde el 74 hasta el 200.

No muestra desde el 74 al 160

Cuando hago un MsgInfo(cStrings), lo hace a la perfección.

Gracias por cualquier sugerencia

Saludos
Ruben Fernandez

(No encuentro en el foro nada porque todavía no está actualizado totalmente)
Hola Ruben,

Sintaxis

SUBSTR(<cCadena>, <nInicio>, [<nCaracteres>]) --> cSubcadena

Argumentos

<cCadena> es la cadena de caracteres de la que va a extraerse una
subcadena. Puede tener hasta 65.535 (64K) bytes, el tama¤o m ximo de
cadena en CA-Clipper.

<nInicio> es la posici¢n inicial en <cCadena>. Si <nInicio> es
positivo, es relativo al car cter situado en el extremo izquierdo de
<cCadena>. Si es negativo, es relativo al car cter situado en el
extremo derecho de <cCadena>.

<nCaracteres> es el n£mero de caracteres que hay que extraer. Si se
omite, la subcadena empieza en <nInicio> y contin£a hasta el final de
la cadena. Si <nCaracteres> es mayor que el n£mero de caracteres desde
<nInicio> hasta el final de <cCadena>, los caracteres adicionales se
ignoran.

>><nCaracteres> es el n£mero de caracteres que hay que EXTRAER.
No C_U_A_N_T_O_S caracteres.
(He escrito con guiones por que si no los pongo no muestra la palabra, ¿Será una palabra malsonante en algún idioma?

Re: substr()

Posted: Sat Feb 08, 2025 9:28 am
by Antonio Linares
cuantos CUANTOS

No CUANTOS caracteres

debería mostrarlo...

Re: substr()

Posted: Sat Feb 08, 2025 10:49 am
by FiveWiDi
Antonio Linares wrote: Sat Feb 08, 2025 9:28 am cuantos

debería mostrarlo...
En la siguiente línea debería aparecer "No C_U_A_N_T_O_S caracteres" (sin los guiones).
No CUANTOS caracteres

En la siguiente línea sí que lo escribe bien.
No CUANTOS loquesea

Re: substr()

Posted: Sat Feb 08, 2025 11:40 am
by Antonio Linares
Carlos,

Tienes toda la razón :)

Ni idea de por qué hace eso. He revisado la lista de palabras con censura y no aparece...

Gracias!

Re: substr() SOLUCIONADO

Posted: Sat Feb 08, 2025 8:58 pm
by D.Fernandez
Hola a todos y gracias por la ayuda.

Muchas gracias alerchster lo use así como dices.

Muy amables todos y muchas gracias.

Saludos

Ruben Dario Fernandez