@nuKjeEn 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.
@NovluckerHay 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í :
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!
Mostrar Mensajes
