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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Alguien sabe buscar palabra de x caracteres y los demás caracteres a continuació
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Alguien sabe buscar palabra de x caracteres y los demás caracteres a continuació  (Leído 4,132 veces)
usuario oculto


Desconectado Desconectado

Mensajes: 450



Ver Perfil WWW
Alguien sabe buscar palabra de x caracteres y los demás caracteres a continuació
« en: 2 Agosto 2010, 02:41 am »

  ¿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 


En línea

Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Alguien sabe buscar palabra de x caracteres y los demás caracteres a continuació
« Respuesta #1 en: 2 Agosto 2010, 03:14 am »

Creo que con algo asi bastaria, si te he entendido bien:

Código
  1. Public Function Get_String_And_Chars(ByVal sTextToAnalyze As String, ByVal sWord As String, ByVal lCharsToAdd As Long) As String
  2.    Dim bvLenWord       As Byte
  3.    Dim lPosition       As Long
  4.  
  5.    bvLenWord = Len(sWord)
  6.    lPosition = InStr(sTextToAnalyze, sWord)
  7.  
  8.    If lPosition > 0 Then
  9.        Get_String_And_Chars = Mid$(sTextToAnalyze, lPosition, bvLenWord + lCharsToAdd)
  10.    End If
  11. End Function

Ejemplo:
Código
  1. Private Sub Form_Load()
  2.    Debug.Print Get_String_And_Chars("Esto solo es un ejemplo 123 para que veas que funciona... :P", "ejemplo", 4)
  3. End Sub

Devuelve:
Citar
ejemplo 123

DoEvents¡! :P


« Última modificación: 2 Agosto 2010, 03:49 am por *PsYkE1* » En línea

usuario oculto


Desconectado Desconectado

Mensajes: 450



Ver Perfil WWW
Re: Alguien sabe buscar palabra de x caracteres y los demás caracteres a continuació
« Respuesta #2 en: 2 Agosto 2010, 15:19 pm »

cuanto lo pruebe te informo
muchas gracias
En línea

Que le jodan a  la salud mental!
Fecha de registro:    16 Noviembre 2008, 17:38
años atrás users baneados :)
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Alguien sabe buscar palabra de x caracteres y los demás caracteres a continuació
« Respuesta #3 en: 2 Agosto 2010, 18:36 pm »

Ahora que me doy cuenta al leerlo otra vez...
Esa funcion solo te sacaria un resultado, es decir, si en txt tienes mas veces la palabra a buscar solo sacaria el primero que encuentro...  :-\
Pero bueno, teniendo eso como base no te resultara muy dificil modificarlo a tu gusto...
Solo tienes que ir guardando resultados e un Array o en una Collection...
Intentalo, si no postea y te hecho una mano!  ;)

DoEvents¡! :P
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
contar caracteres de una palabra y devolver que palabra es en java
Java
Cooltan 4 22,251 Último mensaje 6 Abril 2011, 12:21 pm
por Cooltan
Comparar string con retorno de carro , tabulador y demás caracteres especiales « 1 2 »
Programación C/C++
hervasiop12345 11 7,561 Último mensaje 23 Noviembre 2011, 05:39 am
por x64core
ayuda en manupular caracteres y ficheros
Java
RockAqp 3 2,260 Último mensaje 3 Mayo 2012, 23:59 pm
por s00rk
Ayuda! Concatenar carácteres en C
Programación C/C++
ARCAME 1 1,509 Último mensaje 2 Diciembre 2012, 20:50 pm
por durasno
hacer un programa que cuente cuantos caracteres hay en una palabra(1 sola vez)?
Java
Starkdkcr 2 2,780 Último mensaje 2 Marzo 2013, 03:15 am
por leogtz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines