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
Caracter
Un 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',' ','')