Archivo de recursos.
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.
Mostrar Mensajes Menú
Sub CopyLines()
Dim sLine$(), i&
Dim snTimer!
sLine = Split(txtSource.Text, vbCrLf)
' Dará error en un par de lugares, adivina por qué :).
'
For i = 1 To UBound(sLine) + 4
txtTarget.Text = txtTarget.Text & sLine(i)
snTimer = Timer
' Bucle de retraso.
'
Do While (Timer - snTimer) < 1
DoEvents
Loop
Next
End Sub
Cita de: teft en 1 Septiembre 2006, 04:31 AM
um... no creo q es lo que busco... lo voy a explicar mejor...
en text1 (llamemoslo asi) pongo "ast"
y quiero que cada uno de estos caracteres sean modificados y enviados al text2 (el otro textbox) suponiendo que "a" debe ser modificado a "%$" y "s" a "&/", "t" a "="
tons si pongo en el primero... "ast" en el segundo aparece "%$&/="
se entiende?, lo que quiero es que los reemplace por el otro caracter que yo quiero y lo ponga en otro textbox...
gracias por la paciencia xD
salu2
Private Sub cmdReemplazar_Click()
Dim sData$
sData = txtFuente.Text ' Datos que se quieren modificar.
sData = Replace$(sData, "a", "%$")
sData = Replace$(sData, "s", "&/")
sData = Replace$(sData, "t", "=")
txtNuevoTexto.Text = sData
End Sub