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
Hola, podes poner un ejemplo de lo que queres ?, es que no entendi muy bien lo que queres...
saludos.
No sé si entendi bien lo que quieres, pero si es lo que yo pienso, creo que te puede servir la funcion Split.
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.
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:
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:
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:
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:
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
El Kraken muchas gracias por tu ayuda..
aunk yo estaba pensando en una solucion algo drastica.... era algo asi.
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.
bueno probando con muchos codes. mas que todo el que me facilito El Kraken me parceio mas facil hacerlo de la siguiente manera:
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