proyecto final,, ayudenme porfass.. coincidencias en un texto

[rusocom]

hola,, espero que alguine me pueda echar la mano en esto,, es algo sencillo creo yo  pero ando medio atareado en un proyecto y necesito saber como hacer para encontrar conicidencias en un texto,, yo tenia la idea de asignar el texto a un arreglo y asi buscar palabra por palabra,, tambien habia pensado asignar cada palabra con su descripcion a una tabla en access y de ahi hacer la asignacion al arreglo y hacer la comparacion secuencial,, pero no se si alguien tenga algo mas efectivo,, esto es una parte de un proyecto lo voy a usar como glosario,, me explico? escribir la palabra y encontrarla dento de un archivo o de un texto,, algo parecido a lo que maneja el encarta,, por fa espero su ayuda graicas

[Slasher-K]

La función InStr busca una cadena dentro de otra y, en el caso que la encuentre te devuelve la posición del primer caracter de la cadena, de lo contrario devuelve cero.

Código [Seleccionar] Expandir


Sub FindStr()
       Dim sText$, sFnd$
       Dim lPos&

  'Texto en el cual se va a buscar, puede ser un cuadro de texto o cualquier String.
  '
  sText = "El conocimiento es el poder de los dioses"
  sFnd = "poder" 'Texto buscado.

  lPos = InStr(1, sText, sFnd)

  If lPos>0 Then
    'Se encontró la cadena. En este caso lPos va a valer 23 porque
    'el primer caracter de la cadena de búsqueda se encuentra en esa posición.
    '
    Call MsgBox("La cadena se encontró en la posición "& lPos, vbExclamation)
  Else
    Call MsgBox("No se encontró la cadena")
  End If
End Sub


Todo esto lo encontrás en un tutorial básico de VB... mejor busca alguno por internet que hay muchos y buenos.

Saludos.

[rusocom]

pero no afecta que sea mucho el texto,, digo porque siempre si son como que varias palabras,, solamente declaro la la variable de la medida de caracteres que se necesita?? digo porque tienen un tope que no??