elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Casi nada de Programación solo de Logica. :O
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Casi nada de Programación solo de Logica. :O  (Leído 4,625 veces)
Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Casi nada de Programación solo de Logica. :O
« en: 15 Diciembre 2007, 16:54 pm »

Hola, tengo un backup de mi foro necesito sacar solamente los msn de entre tantas cosas.

Esta es la manera en que puede encontrarse un email:

Código:
'XXXXX', 'unemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'

Como hago para de todo ese texto sacar solo:

'unemail@hotmail.com' o unemail@hotmail.com

He intentado de varias maneras y solo logro unas partes muy grandes. :S


En línea

Spider-Net


Desconectado Desconectado

Mensajes: 1.165


Un gran poder conlleva una gran responsabilidad


Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #1 en: 15 Diciembre 2007, 17:24 pm »

Hay muchas formas de hacer eso, yo haría un split... algo así
Código
  1. Private Sub Command1_Click()
  2. Dim data As String
  3. Dim vdata As Variant
  4.  
  5. data = "'XXXXX', 'unemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'"
  6. vdata = Split(data, "'")
  7. MsgBox vdata(3)
  8. End Sub

Y ya devuelve el valor del e-mail. Haces que en data se almacene la cadena correspondiente y ya está :¡ ;D ;D

Saludos.


En línea

Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #2 en: 15 Diciembre 2007, 17:27 pm »

Ps con una sola cadena sin repetirse esta muy bien :xD

Pero tengo esto:

Código
  1. Private Sub Form_Load()
  2. Dim data As String
  3. Dim vdata As Variant
  4. Open "D:\Foros\SMF\Backup\localhost.sql" For Binary Access Read As #1
  5. data = Input(LOF(1), #1)
  6. Close #1
  7. vdata = Split(data, "@")
  8. MsgBox vdata(1)
  9. End Sub
  10.  
  11.  
En línea

Spider-Net


Desconectado Desconectado

Mensajes: 1.165


Un gran poder conlleva una gran responsabilidad


Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #3 en: 15 Diciembre 2007, 17:35 pm »

Pues eso, tu has puesto la cadena y yo te puesto la solución para esa cadena hombre.. xD pero vamos no se donde está el problema:

Mete un textbox y haces así y en teoría debería de meter todos los mails...

Código
  1. Private Sub Form_Load()
  2. Dim i as integer
  3. Dim data, datos As String
  4. Dim vdata, vdatos As Variant
  5.  
  6. Open "D:\Foros\SMF\Backup\localhost.sql" For Binary Access Read As #1
  7. data = Input(LOF(1), #1)
  8. Close #1
  9. vdata = Split(data, "@")
  10.  
  11. For i = 0 To Numero de Entradas del localhost.sql
  12.   datos=vdata(i)
  13.   vdatos = Split(datos, "'")
  14.   Text1.Text = Text1.Text & vdatos(3) & vbcrlf
  15. Next i
  16. End Sub

Creo que así iría bien, prueba y me dices, esque sin el archivo no puedo probarlo.. xD
En línea

Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #4 en: 15 Diciembre 2007, 17:39 pm »

No, creo que esto no tiene solucion. Tendre que sacar los emails manualmente T_T
En línea

Spider-Net


Desconectado Desconectado

Mensajes: 1.165


Un gran poder conlleva una gran responsabilidad


Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #5 en: 15 Diciembre 2007, 17:43 pm »

Que va hombre, tampoco creo yo que sea tan difícil, pero bueno si quieres hacerlo manualmente.. que te sea leve.. xD
En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #6 en: 16 Diciembre 2007, 22:38 pm »

no habra alguna forma de buscar todas las "palabras" q tengan "@"...
yo pienso en algo asi: dodne haya un "@" q lo seleccione (como cuando uno hace doble click en una palabra) y los vaya poniendo en algun txt o algo asi...

no se como hacerlo solo es una idea...
En línea

SKL (orignal)

Desconectado Desconectado

Mensajes: 259


UpLoadSourceCode


Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #7 en: 17 Diciembre 2007, 03:45 am »

Hice esto.... espero que te ayude.... y que sea lo que vos queres...


Código
  1.    Dim sValor      As String
  2.    Dim sData()     As String
  3.    Dim i           As Long
  4.  
  5.    'la cadena a extraer
  6.    sValor = "'XXXXX', 'sunemail@hotmail.com', 'una.ip.normal.1', 1, 0, '', 'Hola esta es una prueba'"
  7.  
  8.    'Delimitamos la coma ,
  9.    sData = Split(sValor, ",")
  10.  
  11.    'Recorre todos los valores
  12.    For i = 0 To UBound(sData)
  13.    'los escribe en el debug (inmediato)
  14.        Debug.Print sData(i) & vbCrLf
  15.    Next
  16.  
  17.    'aca mostramos el mensaje con el mail
  18.    MsgBox Trim(Mid(sData(1), 3, Len(sData(1)) - 3))



saludos.. :D
« Última modificación: 17 Diciembre 2007, 16:47 pm por E0N » En línea

chrominum


Desconectado Desconectado

Mensajes: 567


Viceroy: No es lo que tengo, es COMO lo tengo


Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #8 en: 17 Diciembre 2007, 16:45 pm »

Seria mas o menos asi:

Buscar @
Una vez encontrado @ retroceder hasta encontrar '
una vez encontrado ' copiar hasta encontrar otro '
pegar en un archivo .txt
comenzar otra vez
En línea

Freeze.


Desconectado Desconectado

Mensajes: 2.732



Ver Perfil WWW
Re: Casi nada de Programación solo de Logica. :O
« Respuesta #9 en: 17 Diciembre 2007, 22:12 pm »

Siento decepcionarlos pero tampoco. :xD

He intentado muchas maneras pero nad me sale. :D
En línea

Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Web interesante para aprender la lógica de la programación
Programación General
Chamanik 3 6,462 Último mensaje 24 Diciembre 2010, 18:48 pm
por flacc
Logica en programacion Java Script
Programación General
ivesorm 1 3,813 Último mensaje 16 Febrero 2011, 14:35 pm
por Ferno
Microsoft no ha inventado (casi) nada con Windows 10
Noticias
wolfbcn 0 1,876 Último mensaje 6 Mayo 2015, 01:52 am
por wolfbcn
La NSA tiene tantos datos que ya casi no sirven de nada
Noticias
wolfbcn 3 1,757 Último mensaje 29 Abril 2016, 11:18 am
por Orubatosu
no encuentro casi nada. « 1 2 »
Hacking
demon34 12 9,163 Último mensaje 19 Noviembre 2016, 13:08 pm
por Ancasu
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines