Se repite...

Iniciado por CAR3S?, 30 Diciembre 2010, 12:11 PM

0 Miembros y 1 Visitante están viendo este tema.

CAR3S?

#20
Soy tarado, y mas con sueño, no entiendo nada, voy a romper todooooooooooo  :rolleyes: :rolleyes: :rolleyes: :(

alguien me puede explicar exactamente que renombrar y para que? Me siento cada vez mas estupido :@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.

Sueño, sepan entender,

encima cuando modifico nose ni como se usa la funcion, aiiiiii dios q inutil...

Novlucker

Citarsolo que tengo un concepto distinto y la mayoría de las veces intento que los usuarios aprendan algo por si mismo
Lo intenté, dime que has aprendido hoy y si entiendes la lógica del código :¬¬

Código (vb) [Seleccionar]
Private Function Reemplazar_Aleatorio(Texto_orig As String, caracter_a_sustituir As String, pre As String, post As String)
Dim temp As String
Randomize

For x = 1 To Len(Texto_orig)
    If Mid(Texto_orig, x, 1) = caracter_a_sustituir Then
        temp = temp & pre & Int(Rnd * 6) & post
    Else
        temp = temp & Mid(Texto_orig, x, 1)
    End If
Next
Reemplazar_Aleatorio = temp
End Function

Código (vb) [Seleccionar]
Private Sub Form_Load()
texto_nuevo = Reemplazar_Aleatorio("holax, comox andax", "x", "antes", "despues")
Debug.Print texto_nuevo
End Sub


Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

79137913

HOLA!!!

XD lo que pasa es que el code que habia armado era para sustituir caracteres 1 a 1 no 1 a 5.

Igual Novlucker lo soluciono y mejoro XD.

GRACIAS POR LEER!!!
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

79137913                          *Shadow Scouts Team*

Psyke1

#23
@nuKje
En mi opinión te falta más Google y paciencia para intentar resolver tus errores, no creo que aprendas mucho posteando cada 2x3 cada vez que te salte un error. :-\

@Novlucker
Hay variables sin declarar, no tira error por no poner el Option Explicit... :P
Seguramente esto líe más las cosas :rolleyes:, pero yo lo haría así :

Código (vb) [Seleccionar]
Option Explicit

Private Function RndReplace(ByVal sText As String, ByVal sChar As String, ByVal sFirstWord As String, ByVal sEndWord As String) As String
Dim sActualChar                                             As String * 1
Dim lTextLen                                                As Long
Dim Q                                                       As Long

   lTextLen = Len(sText)
   If lTextLen > 2 Then
        Call Randomize(Timer)
       For Q = 1 To lTextLen
           sActualChar = Strings.Mid$(sText, Q, 1)
           RndReplace = RndReplace & IIf((sActualChar = sChar), (sFirstWord & CStr(CInt(Rnd * 6)) & sEndWord), sActualChar)
       Next Q
   End If
End Function

Private Sub Form_Load()
   ' ¡Vivan las ranas! :D
   Debug.Print RndReplace("holax, comox andax", "x", "ANTES", "DESPUÉS")
End Sub


Resultado:
CitarholaANTES6DESPUÉS, comoANTES3DESPUÉS andaANTES5DESPUÉS

DoEvents! :P

Novlucker

#24
En realidad si hay variables sin declarar, pero no me iba a molestar por eso, son solo la x ,el texto_nuevo y el tipo de retorno de la función :xD, y si, creo que si no ha entendido el primer código ese menos :xD
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein