Programación General > Visual Basic para principiantes

 Podrian Publicar funciones para procesar Cadena de texto

<< < (6/8) > >>

m0skit0:
¿Hay algun problema en utilizar más de una función, o tiene que ser una y sólo una? Pues entonces no veo donde está el error...  -_-


--- Cita de: "F_Tanori" ---pero tiene un problema cuando agregas mas de 2 numeros no suma
--- Fin de la cita ---

Bueno, no exageres, en todo caso sería que devuelve el número en real y no en entero  :lol:

P.D: Pido disculpas por lo de la longitud de la cadena, no me había dado cuenta en un principio...
P.D(2): No sé quién es Willy...  :D

F_Tanori:

--- Cita de: "m0skit0" ---P.D(2): No sé quién es Willy...  :D
--- Fin de la cita ---

Era una serie de television de ya hace algunos años se llamaba Blanco y Negro o Diff'rent Strokes la frase es "un poco famosa" :P

http://www.youtube.com/watch?v=Qw9oX-kZ_9k


Saludos

Jimbenit:
Ya no quieren seguir jugando a las funciones de texto???

Nota:
Esto les serviría mucho a los novatos (como yo)  B)

m0skit0:
Yo sigo con mi programación funcional en VB ( :lol:  :lol: )


--- Código: Visual Basic --- Public Function InvertirCadena(ByVal str As String) As String    If Len(str) <= 1 Then        InvertirCadena = str    Else        InvertirCadena = Right(str, 1) & InvertirCadena(Left(Right(str, Len(str) - 1), Len(str) - 2)) & Left(str, 1)    End IfEnd Function  
Cuidado con quedarse sin pila XD

F_Tanori:

--- Cita de: "m0skit0" ---Otra tontería. Si consigues una función que haga un determinado trabajo de la forma más sencilla, me parece absurdo tirarla por la borda ...
--- Fin de la cita ---

Exacto ya que en VB6 ya existe esa funcion se llama strreverse(str)


--- Cita de: "m0skit0" ---Yo sigo con mi programación funcional en VB ( :lol:  :lol: )


--- Código: Visual Basic --- Public Function InvertirCadena(ByVal str As String) As String    If Len(str) <= 1 Then        InvertirCadena = str    Else        InvertirCadena = Right(str, 1) & InvertirCadena(Left(Right(str, Len(str) - 1), Len(str) - 2)) & Left(str, 1)    End IfEnd Function  
Cuidado con quedarse sin pila XD
--- Fin de la cita ---


 aunque como ejercio esta bien; solo que deberias de usar el parametro ByRef para utilizarlo como "puntero" y no estarlo pasando como copia a cada llamado de la funcion

Saludos

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior