funcion tipo ucase

[carolina]

aguien sabe si habrá una funcion parecida a ucase() pero en vez que aparezca toda la cadena en mayusculas que entregue la primera letra en mayuscula y el resto lo pase a minusculas?????

[3pies]

No se si buscas algo como esto, que pone solo en mayúsculas la primera letra de un texto (solo la primera letra de la primera palabra:

Código:

Function PrimeraEnMayusculas(cadena)
    PrimeraEnMayusculas = UCase(Left(cadena, 1)) & LCase(Right(cadena, Len(cadena) - 1))
End Function

O si quieres que te ponga en mayúsculas la primera letra de cada palabra que conforma el texto. En este caso, mírate esta función.

Salu2

[carolina]

SQL = " "
SQL = SQL + " Insert Into trabajador(rut, nombre, nombre2, apellido1, apellido2, f_nacimiento, direccion, telefono, celular, area)"
SQL = SQL + " Values ( trim('" & request("rut_aux") & "'), trim(ucase('" & request("nom1") & "')), trim(ucase('" & request("nom2") & "')), trim(ucase('" & request("apell1") & "')), trim(ucase('" & request("apell2") & "')), '" & request("fec") & "', ucase('" & request("dir") & "'), trim('" & request("fono") & "'), trim('" & request("cel") & "'), ucase('" & request("ar") & "'))"
Set Consulta = oConn.Execute(SQL)


lo que pasa es que quiero incorporarla a la consulta, o podria colocalo de la misma forma que el ucase? esque es para cuando tenga que listar no salgan tan desordenados los datos con tipos de letras diferentes

[3pies]

Puedes pasarle la función como le pasas el Ucase. Eso sí, debes tener esa función definida, ya sea directamente en la página o bien a través de un include.

Eemplos:

Código:

<%
response.write Ucase("esto va en mayusculas") & "<br>"
response.write Ucase(rs("campo_de_la_tabla")) & "<br>"
response.write PrimeraEnMayusculas("esto va en mayusculas, aunque solo la primera letra de la línea") & "<br>"
response.write PrimeraEnMayusculas(rs("campo_de_la_tabla"))
%>

Salu2

[carolina]

Tengo el Sgte codigo, pero...

SQL = ""
SQL = SQL & " Update contrato"
SQL = SQL & " Set tipo = '" & Request("tip") & "',"
SQL = SQL & " afp = trim(pr('" & Request("af") & "')),"
SQL = SQL & " isapre = trim(pr('" & Request("isa") & "')),"
SQL = SQL & " sueldo_base = trim('" & Request("base") & "')"
SQL = SQL & " Where rut = '" & Request("rut_aux") & "'"
Set Consulta = oConn.Execute(SQL)

al ingresar a la pagina me genera 2 errores
Se esperaba ';'
Se esperaba un objeto

la funcion la copie igual, solo le cambie el nombre

[carolina]

3pies... Disculpa La Pregunta... Pero.... ¿¿como Defino La Funcion?????

[3pies]

Simplemente debes incluirla en la página, ya sea así:

Código:

Function PrimeraEnMayusculas(cadena)
    PrimeraEnMayusculas = UCase(Left(cadena, 1)) & LCase(Right(cadena, Len(cadena) - 1))
End Function
 

O bien a través de un include.

Luego le pasas la función al texto que quieras, de la misma forma como lo haces con Ucase (puedes sustituir Ucase, por PrimeraEnMayusculas, en aquellas lineas donde tengas que cambiar la primera inicial en mayúsculas).

Salu2