Ver Mensaje Individual
  #7 (permalink)  
Antiguo 03/01/2015, 15:30
Avatar de gnzsoloyo
gnzsoloyo
Moderador criollo
 
Fecha de Ingreso: noviembre-2007
Ubicación: Actualmente en Buenos Aires (el enemigo ancestral)
Mensajes: 23.324
Antigüedad: 16 años, 5 meses
Puntos: 2658
Respuesta: De una competencia sacar 4 descriptores

"Traducir" un código creado en un lenguaje de un aplicativo como FoxPro, para pasarlo a otro lenguaje no es complejo, más allá de que ciertas cosas no son portables entre diferentes entornos. Pero quisiera hacerte notar que todo lo que planteas hacer, sólo requiere usar el manual de referencia de pHP, y algo de práctica.
Las operaciones que describes:

Cita:
// A una variable llamada texto le asigno una cadena que describe la competencia
texto = "Desarrollar actividades y ejerciocios de programacion"

cadena1 = ALLTRIM(PADR(SUBSTR(texto, 1,AT(" ",texto)-1),35)) //Extraigo la primera palabra de la cadena de texto
ultimo=len(cadena1)-1// Obtengo el largo de la palabra extraida de la cadena menos el ultimo caracter

cadena1 = SUBSTR(cadena1,1,ultimo) // Borro la ultima letra de la palabra extraida
cadena2 = len(cadena1)+2 //recupero la segunda parte de la cadena lo que va despues de la primera palabra
cadena3 = LEN(texto)

bajo = "Se le dificulta"+" "+texto
basico = "Algunas veces"+" "+cadena1+" "+ALLTRIM(SUBSTR(texto,cadena2))
alto = cadena1
superior = "Eficazmente"+" "+cadena1
Son operaciones con cadenas de texto y arrays, nada más.
Cosas que puedes ver en http://php.net/manual/es/ref.strings.php.

Por ejemplo:
Cita:
cadena1 = ALLTRIM(PADR(SUBSTR(texto, 1,AT(" ",texto)-1),35)) //Extraigo la primera palabra de la cadena de texto
Lo puedes resolver usando explode(), de varias formas:
Código PHP:
Ver original
  1. $palabras = explode(" ", $campo1);
  2. $cadena1 = $palabras[0];
Código PHP:
Ver original
  1. $cadena1 = explode(" ", $campo1)[0];

Cosas como:
Cita:
ultimo=len(cadena1)-1// Obtengo el largo de la palabra extraida de la cadena menos el ultimo caracter
Son mas o menos así:
Código PHP:
Ver original
  1. $palabras = explode(" ", $campo1);
  2. $cadena1 = $palabras[0];
  3. $ultimo = strlen($palabra)

Además de esas tienes, por ejemplo:
Cita:
substr() — Devuelve parte de una cadena
trim() — Elimina espacio en blanco (u otro tipo de caracteres) del inicio y el final de la cadena
La primera de ellas, en combinación con explode() y strlen() te permitiría recuperar la cadena menos el último caracter, y cosas así.

No es que no podamos hacerlo por ti, pero te conviene meterte con algo de paciencia, el manual a mano, e ir "traduciendo" lo que tienes a PHP por ti mismo, así de paso lo comienzas a dominar.
PHP no es difícil, pero debes pensar en PHP y dejar de lado FoxPro.
__________________
¿A quién le enseñan sus aciertos?, si yo aprendo de mis errores constantemente...
"El problema es la interfase silla-teclado." (Gillermo Luque)