Visual FoxPro 7.0 incorpora dos nuevas funciones que son muy útiles para el tratamiento de cadenas de texto:
GETWORDCOUNT( )
Cuenta el número de palabras de una cadena. Sintaxis: GetWordCount(cCadena[, cDelimitador]) Parámetros cCadena: Especifica la cadena de la que se va contar el número de palabras. cDelimitador: [Opcional] Especifica el carácter que se utiliza para delimitar grupos de caracteres en cCadena. Puede utilizar este parámetro para determinar el número de grupos de caracteres, delimitados por el carácter especificado, en cCadena. Valor devuelto Numérico
GETWORDNUM( )
Devuelve la palabra especificada de una cadena. Sintaxis: GetWordNum(cCadena, nIndice[, cDelimitador]) Parámetros cCadena: Especifica la cadena que se va a evaluar. nIndice: Especifica la posición del índice de la palabra que se va a devolver. Por ejemplo, si nIndice es 3, GetWordNum( ) devuelve la tercera palabra. cDelimitador: [Opcional] Especifica uno o más caracteres especiales que se utilizan para separar las palabras de cCadena. Los delimitadores predeterminados son espacio, tabulación y retorno de carro. Valor devuelto CaracterUn pequeño ejemplo del uso de estas dos funciones:
lc = "Esto es una prueba en Visual FoxPro 7.0" FOR ln = 1 TO GETWORDCOUNT(lc) ? GETWORDNUM(lc, ln) ENDFORLuis María Guayán
USA EL SIGUIENTE CODIGO:
ResponderBorrarQUITARESPACIOSDUPLICADOS="ERWIN ANTONIO MENDOZA TORRREZ "
ESPACIOSQUITADOS=""
FOR G=1 TO GETWORDCOUNT(QUITARESPACIOSDUPLICADOS)
ESPACIOSQUITADOS=ESPACIOSQUITADOS+GETWORDNUM(QUITARESPACIOSDUPLICADOS,G)+" "
ENDFOR
MESSAGEBOX(ESPACIOSQUITADOS)
Todo lo que escibiste resumido en una sola línea
BorrarCHRTRAN('ERWIN ANTONIO MENDOZA TORRREZ',' ','')