Se repite...

[CAR3S?]

Soy tarado, y mas con sueño, no entiendo nada, voy a romper todooooooooooo  

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]

solo 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] Expandir

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] Expandir

Private Sub Form_Load()
texto_nuevo = Reemplazar_Aleatorio("holax, comox andax", "x", "antes", "despues")
Debug.Print texto_nuevo
End Sub

Saludos

[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!!!

[Psyke1]

@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...
Seguramente esto líe más las cosas , pero yo lo haría así :

Código (vb) [Seleccionar] Expandir

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:

holaANTES6DESPUÉS, comoANTES3DESPUÉS andaANTES5DESPUÉS

DoEvents!

[Novlucker]

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 , y si, creo que si no ha entendido el primer código ese menos