¿Alguien sabría como se hace en vb para buscar una palabra con por ejemplo 5 caracteres (en números) dentro de un texto y por ejemplo las 20 palabras que vayan a continuación?.(he buscado en google y no encuentro nada)

  Ejemplo form1: label:  buscar palabras con 4 carácteres en números y 2 caracteres cualquieras a continuación.
  textbox : ruta del archivo txt
  commandbutton: extraer
 
 
  contenido del archivo txt:

  elhacker.net es un foro en el que usuario1234 ha realizado un tutorial.

  se crea archivo ejemplo.txt con el contenido: 1234 ha


  ___________
  No digo que me lo deis todo ya masticado (que estaría bien jaja) pero un poco de orientación a este pobre n00b en programación.
  He buscado en google como extraer palabras:

     1. Option Explicit 
   2.   
   3. ' ------------------------------------------------------------------------------ 
   4. ' \\ -- Botón para seleccionar el archivo y leer el las palabras 
   5. ' ------------------------------------------------------------------------------ 
   6. Private Sub Command1_Click() 
   7.   
   8.     Dim Vector()    As String 
   9.     Dim n           As Integer 
  10.     Dim linea       As String 
  11.     Dim texto       As String 
  12.       
  13.     ' -- Configurar diálogo 
  14.     With CommonDialog1 
  15.         .FileName = vbNullString 
  16.         .DialogTitle = " Seleccione el archivo de texto " 
  17.         ' -- Establecer el Filtro ( Archivos de texto y todas las extensiones ) 
  18.         .Filter = "Txt|*.txt|Todos|*.*" 
  19.         ' -- Abrir 
  20.         .ShowOpen 
  21.           
  22.         If .FileName = "" Then Exit Sub 
  23.               
  24.         ' -- Abrir el archivo 
  25.         Open .FileName For Input As #1 
  26.     End With 
  27.       
  28.     ' -- Lee el archivo de texto 
  29.     While Not EOF(1) 
  30.        ' -- Leer una línea 
  31.        Line Input #1, linea 
  32.        If linea = vbNullString Then linea = " " 
  33.        ' -- Almacenar el contenido del archivo 
  34.        texto = texto & linea 
  35.     Wend 
  36.       
  37.     Close 
  38.       
  39.     ' -- Eliminar los espacios dobles 
  40.     texto = Eliminar_Espacios(texto) 
  41.       
  42.     ' - Cargar en el vector las palabras con la función Split 
  43.     Vector = Split(texto, " ") 
  44.     ' -- Eliminar items previos 
  45.     List1.Clear 
  46.     Dim xItem As Variant 
  47.     ' -- Recorrer en un bucle para agregar los elemntos del Array al control List 
  48.     For Each xItem In Vector 
  49.         If Len(xItem) Then List1.AddItem xItem 
  50.     Next 
  51. End Sub 
  52.   
  53. ' -------------------------------------------------------------------------------- 
  54. ' \\ -- Eliminar los espacios dobles con la función Replace 
  55. ' -------------------------------------------------------------------------------- 
  56. Public Function Eliminar_Espacios(texto As String) As String 
  57.       
  58.     On Error GoTo ErrSub 
  59.   
  60.     texto = Replace(texto, vbTab, " ") 
  61.     texto = Replace(texto, vbCrLf, " ") 
  62.       
  63.     Do While (InStr(texto, "  ")) 
  64.        texto = Replace(texto, "  ", " ") 
  65.     Loop 
  66.   
  67.     Eliminar_Espacios = Trim$(texto) 
  68.       
  69.     Exit Function 
  70.   
  71. ErrSub: 
  72.     MsgBox Err.Description, vbCritical 
  73. End Function 
  74.   
  75.   
  76. Private Sub Form_Load() 
  77.     Command1.Caption = "Seleccionar un archivo" 
  78. End Sub 

  Tengos dos gráficas que he guardado en malas condiciones, las conecto y las dos me dan error, una salen en la pantalla cuadraditos de todos los colores y la otra no sale nada xD.
   Graficas rotas o placa base?

   Me recomendais alguna placa base con grafica integrada (se que son una shit) que no sea muy cara y que pueda ponerla con 2gb de ram ddr2 y socket 775 para un dual core 3.2?

 Pués eso, ¿alguna vez os ha ocurrido?

 Cuento un sueño:
 Me encuentro en el sueño como si todo funcionase como en un cpanel, y las cosas pasancomo la barra del progresbar, igual que cuando carga un error y dice el mensaje, pues la barra cargaba y depende de como se cargase la barra las cosas pasaban.

   Me acabo de instalar el OpenSuse y pongo el amsn y se ve blanco.
   Cuando el doy a configurar cam sale bien, como me muevo y tal le doy a guardad configuración y le digo algun contacto mio que me vea, se keda en mi pc una foto piyada y el otro la ve en blanco.

   Saludos y gracias por antelación.

   SOLUCIÓN, por si alguno encuentra esto googleando.
   Cerramos el cortafuegos y abrimos los puertos del router 6890 hasta el 6900.

   Esa es mi sugerencia.

  Os dejo mi aporte , espero que os guste 



   Trata sobre hacer DNI sin necesidad de un scaner.

Plantilla de DNI para hacer lo del videotutorial:
http://img44.imageshack.us/content.php?page=done&l=img44/3149/tutodni.png&via=mupload
La pongo en enlace porque la imagen es demasiado grande.
Un saludo a todos

   Hola quiero hacer una aplicación que haga lo siguiente:

   Quiero hacer una aplicación que haga ejecutables que pueda modificar segun los datos del textbox como por ejemplo subir a mi ftp x archivo:

ejemplo:
textbox1: servidor
textbox2: usuario
textbox3: clave
textbox4: ruta de archivo

  le doy a crear aejecutable y se suba :s por favor necesito ayuda.

gracias.

  Como veo que los gammers estan mucho por centromail y rapidshit.
  ¿Alguien sabe si tengo que ser usuario de centromail, para vender
  un juego o consola? Lo de usuario me refiero ha ser socio.

 Solo por preguntar ¿Qué pinta como borrar un virus en sugerencias? xD no es una pregunta con mala intención.
¿no va en seguridad?

 Hola me gustaria saber como ejecutar un comando MS-DOS en un textbox
 Se como se ejecuta un comando pero no se como ejecutarlo desde un textbox y un botón, ejemplo de lo que quiero hacer:

escribo en textbox: msg * Hola Mundo   -
Apriero botón: Enviar comando y :
Aparece ventana: mensaje administrador Hola Mundo

No quiero de esta manera:

 Shell("cmd.exe /c msg * Hola Mundo")