Como reconocer una linea de texto dentro de un rich text box (solucionado)

[Zeroql]

buenas
bueno esa es mi duda. ya que solo me reconocer un texto pero no se como reconocer toda una linea.
que alguien me ayude

de ante mano gracias por su ayuda

[seba123neo]

Hola, podes poner un ejemplo de lo que queres ?, es que no entendi muy bien lo que queres...

saludos.

[invisible_hack]

No sé si entendi bien lo que quieres, pero si es lo que yo pienso, creo que te puede servir la funcion Split.

[Zeroql]

holas
miren lo que busco es si tengo las siguientes lineas....

Public sub Matematicas(N as integer, X as integer)
   Matematicas=N*X
end sub

Necesito reconocer que la parte que es: Matematicas=N*X como una linea de texto en un richtextbox, como se puede hacer.

[ElKraken]

Buenas, Zeroql.

Lo que quieres es extraer una línea concreta del RichTextBox.
Como supongo debes saber, con el RichTextBox puedes lidiar con dos tipos de texto: sin formato o texto enriquecido.
En esta respuesta supongo que te interesa tratar el texto sin formato. Si no es así, se puede adaptar fácilmente la solución para texto con formato enriquecido.

Dicho esto, te he programado dos funciones para tratar con líneas individuales en un RichTextBox.

La primera, GetLinesText, es un procedimiento que toma una matriz Lines() de Strings pasada por referencia y un objeto RTB de tipo RichTextBox también por referencia.
Una vez hecha la llamada al procedimiento, la matriz de Strings Lines() estará cargada con las líneas de texto del RichTextBox.
Esta es la función:

Código [Seleccionar] Expandir


Public Sub GetLinesText(ByRef Lines() As String, ByRef RTB As RichTextBox)
  Dim cnt As Long, p1 As Long, p2 As Long
  p1 = 1
  Do
    p2 = InStr(p1 + 1, RTB.Text, vbCrLf)
    p1 = IIf(p1 = 1, 1, p1 + 2)
    ReDim Preserve Lines(cnt)
    Lines(cnt) = Mid(RTB.Text, p1, IIf(p2 = 0, Len(RTB.Text) + 1, p2) - p1)
    cnt = cnt + 1
    If p2 = 0 Then Exit Do
    p1 = p2
  Loop
End Sub

Ejemplo de uso:

Código [Seleccionar] Expandir

  Dim Lineas() As String, i As Long
  GetLinesText Lineas(), RichTextBox1
  Me.Autoredraw=True
  For i = 0 To UBound(Lineas)
     Me.Print Lineas(i)
  Next i

Esto carga en la matriz Lineas() todas las líneas del RichTextBox1.

La otra, es una función llamada GetNLineText, que toma un parámetro RTB de tipo RichTextBox y un parámetro  NLine que contiene el número de línea a devolver.
Si el número de línea no existe o no tiene sentido, la función devuelve una cadena nula.
Si el número de línea se corresponde con una línea del texto, la función devuelve la línea número correspondiente, contando desde arriba a partir de 1.
Esta es la función:

Código [Seleccionar] Expandir

Public Function GetNLineText(ByRef RTB As RichTextBox, ByVal NLine As Long) As String
  Dim cnt As Long, p1 As Long, p2 As Long
  p1 = 1
  Do
    p2 = InStr(p1 + 1, RTB.Text, vbCrLf)
    If cnt + 1 = NLine Then
      p1 = IIf(p1 = 1, 1, p1 + 2)
      GetNLineText = Mid(RTB.Text, p1, IIf(p2 = 0, Len(RTB.Text) + 1, p2) - p1)
      Exit Function
    End If
    cnt = cnt + 1
    If p2 = 0 Then Exit Do
    p1 = p2
  Loop
End Function

Ejemplo de uso:

Código [Seleccionar] Expandir

Me.Print GetNLineText(RichTextBox1, 2)

Esto muestra en el fondo de ventana la línea segunda.

Espero que estas funciones te sean de ayuda y se correspondan con la solución de tu problema.

El Kraken

[Zeroql]

El Kraken muchas gracias por tu ayuda..
aunk yo estaba pensando en una solucion algo drastica.... era algo asi.

Código [Seleccionar] Expandir


Private Sub RichTextBox_Change()
  line=line & RichTextBox.selStart -1
  if chr(13) then
     'Llamar a la funcion que se encarga de hacer lo k se deba hacer con la linea
  end if
End Sub


al igual me gusta tu code.. muchas gracias. los ensayare a ver ketal.

[Zeroql]

bueno probando con muchos codes. mas que todo el que me facilito El Kraken me parceio mas facil hacerlo de la siguiente manera:

Código (vb) [Seleccionar] Expandir

Private Sub richTextBox_KeyPress(KeyAscii As Integer)
  'En caso de que selFile sea 0 entonces determinar donde comienza la linea nueva
  If selFile = 0 Then
     selFile = 1
     posIni = richTextBox.SelStart   'posIni es para saber la posicion donde comienza la linea
  End If
  If KeyAscii = 13 Then       'En caso de que se presione enter
     selFile = 0
    'Llamar a la funcion que se encarga de darle color a la linea
   call FindLine(posIni, richTextBox.selStart)   'Se le envia posIni que es la posicion inicial de la linea, y el  richTextBox.selStart es enviarle la posicion final de la linea
  End If
End Sub

Bueno espero que les sirva....
hasta la proxima