Hola, me pueden ayuda como se usa la funcion ATC en foxpro

[wilson vicente]

Hola, me pueden ayuda como se usa la funcion ATC en foxpro

[Jorge L. Florez C.]

Hola,

Si presionas F1 puedes ver como funciona el comando ATC.

Saludos

Jorge Florez

Lima - Perú

[wilson vicente]

Si ya lo intente, pero no entiendo, la sintaxis, sera que me podes ayudar te lo agradeceria mucho

[Patricio Muñoz]

STORE 'Now is the time for all good men ... ' TO gcString

STORE 'IS THE' TO gcFindString

CLEAR

? ATC(gcFindString, gcString)  && Displays 5

STORE 'is' TO gcFindString

? ATC(gcFindString, gcString)  && Displays 5

? ATC('now',gcString)  && Displays 1

Que no entiendes del ejemplo mostrado?

Bendiciones

--

Patricio Muñoz

Pro&Tech

Analista en Sistemas

[Jean Pierre Adonis De La Cruz Garcia]

Wilson para que lo puedas entender como debe de ser, te lo explico aca, no solo copiar y pegar

Frase="El Verdadero Pisco es Peruano"

MESSAGEBOX(ATC("Pisco",frase))

El Resultado sera 14

en si, es para devolverte la posicion de donde empieza la cadena buscada de una frase.

Espero habertelo explicado mejor.

[wilson vicente]

La verdad, no, esque soy nuevo en foxporx, casi no lo entiendo, sera que me podes dar un ejemplo mas concreto les agradeceria mucho

[Jean Pierre Adonis De La Cruz Garcia]

Wilson te deje un ejemplo mas explicito para que lo entiendas, revisalo y has tus pruebas, como dije es para buscar la posicion de una Plabras o Letra dentro de una Frase,, Cadena o Variable.

[Patricio Muñoz]

Al parecer Wilson no tiene experiencia en programacion.

Bendiciones

[wilson vicente]

Gracias, Jena Pierre, me funciono perfectamente Gracias, no se si me podes ayudar con otra funcion que es la STRTRAN() te lo agradeceria mucho.

[Jean Pierre Adonis De La Cruz Garcia]

es casi lo mismo, aca tu ejemplo

frase="El Verdadero Pisco es Peruano"

MESSAGEBOX(STRTRAN(frase,"Pisco","Amigo"))

En este caso, este comando te replanza una porcion de una cadena en tiempo real

Ahi cambio de la Frase la palabra Pisco por Amigo

Esperoque te pueda haber servido.

[Fernando D. Bozzo]

Hola Wilson:

¿Podrías comentar un poco lo que leiste, lo que no entendiste del ejemplo de la ayuda y lo que probaste?


Saludos.-

[wilson vicente]

La verdad, soy nuevo, estoy espesando a programar, Estuve leyendo, la sintaxis, no entendía muy bien, entonces empece a investigar,   

alfin conprende como se hace, gracias a Jean Pierre Adonis De La Cruz

[Jean Pierre Adonis De La Cruz Garcia]

NO es que yo sea el unico que te aya ayuddo mi estimado, aca todos somos parte de un equipo, donde ayudamos y aprendemos, la verdad que de este foro, estoy aprendiendo muchisimas cosas que no conocia, y eso es gracias a las mismas preguntan que hacen algunos usuarios, y uno de pasada revisa y tambien nos ayuda para poder solucionar algunos problema.

Yo por mi parte agradezco a todos en general, que ponen siemrpe un granito para apredner.

[wilson vicente]

Si gracia, me encanta este grupo. Gracias por aceptarme.

[Carlos Miguel FARIAS]

Si estás empezando a programar en VFP.

Consigue te la ayuda de VFP 6 y 8 en castellano.

La ayuda de VFP 6 creo que es la mejor estructurada para aprender (más ordenada), y la de VFP 8 es la última en castellano

No se descarta trabajar con la de VFP 9 .

Las ayudas de VFP explican los comandos muy claramente y dan ejemplos básicos apropiados.

Cuando vayas a programar algo, primero desmenuza el problema y fíjate bien cual es el requerimiento.

Luego recorre la ayuda, buscando funciones que estén relacionadas con el problema (hay una opción de búsqueda, y un indice).

Generalmente, al final de cada función hay enlaces dentro de la ayuda que te vinculan con funciones del grupo o similares.

De esa manera, puedes solucionar muchos problemas, independientemente de que no está mal preguntar en foros y buscar en la Web.

Eso si, cuando preguntes sobre algo, es muy importante que describas cual es tu problema (al menos un párrafo) porque si preguntas sobre una función específica sin decir que pretendes hacer, puede que te expliquen muy bien para que usarla y termines abriendo la lata con un martillo.

Saludos: Miguel, La Pampa (RA)

[wilson vicente]

Hola muy buenos días, disculpe la molestia, sera que me pueden ayudar con un caso que tengo.

Tengo este dato:

6/5   lo que quiero es solo jalar el numero menor.

en este caso solo jalaría 5.

4/10  lo que quiero es solo jalar el numero menor.

en este caso solo jalaría 4.

pero no tengo la menor idea como hacer. este proceso lo tengo que hacer en Foxpro. sera que me pueden ayudar se los agradeceré mucho

[Jorge L. Florez C.]

Hola.

Para poder solucionar el problema, primero debes separar la cadena en 2, la parte que se encuentra a la derecha del caracter '/' y luego la parte que se encuentra a la izquierda, cada parte lo almacenas en una variable distinta, luego las compras y listo.

Saludos.

Jorge Florez

Lima - Perú

[Jean Pierre Adonis De La Cruz Garcia]

Wilson seria mas o menos de esta manera

valor="3/5"                                                && Cadena de la Fraccion

v1=SUBSTR(valor,1,1)                               && Cadena del primer valor

v2=SUBSTR(valor,3,1)                               && cadena del segundo valor

vmayor=IIF(VAL(v1)>VAL(v2),v1,v2)           && pregunto si el valor 1 es mayor que el valor 2, que me devuelva cual es el mayor

MESSAGEBOX(vmayor)                            && me muestra el valor mayor

vmenor=IIF(VAL(v1)<VAL(v2),v1,v2)           && pregunto si el valor 1 es menor que el valor 2, que me devuelva cual es el menorr

MESSAGEBOX(vmayor)                            && me muestra el valor menor

Espero que sea lo que busca. 

[Jorge L. Florez C.]

Jean Pierr.... dejalo que piense un poco

Saludos

Jorge Florez

Lima - Perú

[Jean Pierre Adonis De La Cruz Garcia]

lo que sucede es que recien esta experimentando en programacion, y lo basico se lo demuestro, ya cuando se ponga un poco mas complicado, me tocara dejarle preguntas para que resuelva, ya de esa manera entenderia la logica de la programacion.

[wilson vicente]

Hola buenas tardes, me pueden explicar como puedo tomas la ultima letra de una paralbra y poderlo enfrente de la misma

ejemplo; 

tengo esto 10-

y poder pasarlo a esto -10

se lo agradeceria mucho 

[Víctor Hugo Espínola Domínguez]

Hola Wilson

Te muestro dos maneras:

lcCadena = "10-"
lcUltCar   = RIGHT(lcCadena,1)
lcResult   = lcUltCar + GETWORDNUM(lcCadena, 1, lcUltCar)
? lcResult

o

? RIGHT(lcCadena, 1) + LEFT(lcCadena, LEN(lcCadena) - 1)

Saludos,

Víctor.

Lambaré - Paraguay.

[wilson vicente]

Víctor Hugo Espínola Domínguez sera que me podes explicar como hacerlo en Foxpro te lo agradeceria mucho

[Víctor Hugo Espínola Domínguez]

El código que te pasé está escrito en foxpro, copia cada línea en la ventana de comandos y dale [Enter]

[wilson vicente]

Disculpame victor hugo ya lo hice pero no hace los cambios, sera hay otra forma de hacer eso disculpa la molestia

[Víctor Hugo Espínola Domínguez]

Qué versión de Visual foxpro estás usando?

[wilson vicente]

Estoy usando la 9.0

[Víctor Hugo Espínola Domínguez]

Debe funcionar si lo copias correctamente!

[Jean Pierre Adonis De La Cruz Garcia]

El comando que te dio Victor hugo esta muy bien.

lccadena="10-"

MESSAGEBOX(RIGHT(lcCadena, 1) + LEFT(lcCadena, LEN(lcCadena) - 1))

[Fernando D. Bozzo]

Hola Wilson:

Veo que es tu primer contacto con la programación, no solo de FoxPro, sino con la programación en general.

Algo que deberías tener en cuenta para que se te pueda ayudar mejor es que, así como esperas que la explicación o los ejemplos sean claron, tus respuestas también deben serlo, y no solamente con "no me funciona" o "eso tampoco", sino aportando los pasos que has seguido, explicando cualquier cosa relevante sobre tus pruebas y adjuntando un ejemplo o captura de pantalla donde se pueda ver qué has hecho, ya que de otra forma estarás impidiendo que se te pueda ayudar.

Saludos.-

[RickDeCastro]

Wilson,
¿Es la prueba que te están indicando la que no funciona? ¿O es lo que intentas hacer lo que no te sale?
Si estás tratando de aplicar lo explicado sobre el contenido de algún campo, puede que te haga falta eliminar los espacios en blanco. En este caso, habrías que hacer algo tipo:

lccadena = ALLTRIM(tuCampoTipoCaracter)

MESSAGEBOX(RIGHT(lcCadena, 1) + LEFT(lcCadena, LEN(lcCadena) - 1))

---
Saludos eliminables
Ricardo De Castro Aquino
Asunción - Paraguay