Ver Mensaje Individual
  #60 (permalink)  
Antiguo 30/03/2005, 12:41
Avatar de TurKa
TurKa
 
Fecha de Ingreso: enero-2003
Ubicación: Gerli, Avellaneda
Mensajes: 543
Antigüedad: 21 años, 10 meses
Puntos: 4
Convertir mayúsculas y minúsculas "Tipo frase."
- Son dos funciones que pueden utilizarse en forma independiente o conjunta.
- Lo que hace, es imitar el efecto de "Convertir mayúsculas y minúsculas «Tipo oración.»" del MS Word.
- Es ideal para convertir los textos traídos de un formulario.

Código:
Function TipoFrase(cadenaAconvertir)
	contenido = ""
	palabra = Split(cadenaAconvertir," ")
		For I = 0 To UBound(palabra)
			contenido = contenido & LCase(palabra(I)) & " "
		Next
	PrimeraLetra = UCase(Left(contenido,1))
	frase = PrimeraLetra&Right(contenido,Len(contenido)-1)
	TipoFrase = frase
End Function

Function TipoParrafo(parrafoAconvertir)
	contenido = ""
	frase = Split(parrafoAconvertir,". ")
		For I = 0 To UBound(frase)
			contenido = contenido & UCase(Left(frase(I),1))&LCase(Right(frase(I),Len(frase(I))-1))&". "
		Next
	parrafo = Left(contenido,Len(contenido)-2)
	frase = Split(parrafo,chr(10))
		For I = 0 To UBound(frase)
			contenido2 = contenido2 & UCase(Left(frase(I),1))&Right(frase(I),Len(frase(I))-1)&chr(10)
		Next
	TipoParrafo = contenido2
End Function
__________________
Programación LAMP con Scrum y XP
www.eugeniabahit.com.com.ar