Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
' // ExitsInArrayNR es un poquito mas rapido... que ExitsInArray
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
, 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 SubCitarholaANTES6DESPUÉS, comoANTES3DESPUÉS andaANTES5DESPUÉS
(espero )
Cita de: ssccaann43 en 28 Diciembre 2010, 16:07 PMJajajajajjaajajajajajajja
Jajajaja... Seh felíz día de los inocentes..! Caí como bobo..! Jajajaja
MsgBox "Feliz día de los inocentes", vbExclamation, "Las ranas te desean"
Cita de: Karcrack en 27 Diciembre 2010, 14:16 PM
Si, la peor
Feliz navidad
Cita de: Elemental Code en 27 Diciembre 2010, 02:07 AMSI, me gusta usar batch y que?La experiencia que tuve usando vb6 + batch no fue buena, me saltaba el avast con casi cada cosa que intentaba hacer...
