No, creo que esto no tiene solucion. Tendre que sacar los emails manualmente T_T
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ú
Private Sub Form_Load()
Dim data As String
Dim vdata As Variant
Open "D:\Foros\SMF\Backup\localhost.sql" For Binary Access Read As #1
data = Input(LOF(1), #1)
Close #1
vdata = Split(data, "@")
MsgBox vdata(1)
End Sub
'XXXXX', 'unemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'
Cita de: Red Mx en 7 Diciembre 2007, 02:12 AM
el problema es que no sabes programar no me refiero a un lenguaje pero te falta la logica que creo es lo mas importante.
son cosas que aprendes cuando inicias en la programacion
De todas maneras hago mi mejor esfuerzo. Ya tengo al mas o menos listo solo que no se usar o no me funcionan las funciones (valga la redundancia) para recorrer los archivos.(fseek)
Citaren USA te dan pena de muerte o cadena perpetua ahi si estan locos


