RichTextBox: Leer texto de cierta linea...

[culd]

Si alguien sabe, como leer el texto de cierta linea, por ejemplo: si tengo 20 lineas y quiero leer solo lo que esta en la linea 10...

Si alguien sabe aporte.

[culd]

No se si nadie no sabe esto, o nadie no quiere ayudar...

Ya solucione mi problema. Como yo no soy mesquino paso un codigo que arme para lo que necesitaba....

PD: VisualBsualdo no robes el codigo para decir que lo hisiste vos...

Código:

Variable = R1.GetLineFromChar(R1.SelStart)

Lo que hace esto, es decirte la linea donde esta el puntero....

Código:

Public Sub ColorearLinea(NumeroLinea As Long)
NumeroLinea = NumeroLinea - 1
Dim Comienzo As Long
Dim Final As Long
Dim Comenzo As Boolean
Dim Termino As Boolean
Dim X As Long

Comenzo = False
Comenzo = False
For X = 0 To Len(R1)
    R1.SelStart = X
    If Comenzo = False Then
        If R1.GetLineFromChar(R1.SelStart) = NumeroLinea Then
            Comienzo = R1.SelStart
            Comenzo = True
        End If
    Else
        If Termino = False Then
            If R1.GetLineFromChar(R1.SelStart) = NumeroLinea + 1 Then
                Final = R1.SelStart
                Termino = True
                
                R1.SelStart = Comienzo
                R1.SelLength = Final - Comienzo
                R1.SelColor = &HFF&
            End If
        End If
    End If
Next X
End Sub

No voy a explicar mucho... Lo que hace es... Mandan el CALL ColorearLinea(Numero de la linea) y listo, lo que hace es buscar la linea y colorearla...

Al que le sirve la sirve al que no le sirve no le sirve.

[hunter18]

Hola culd gracias por compartir tu codigo, como recupero el contenido de la linea en una text1

[pkj]

El texto selecionado lo conseguirias con:

Texto=Mid$(R1 , R1.SelStart , R1.SelLength)

[pkj]

Por otro lado tengo que decir que la sub del compañero culd me cuesta entenderla.

Para mentes más simples como la mía he creado esta sub y le he añadido la ventaja de que no esté limitada al RTBx 'R1', sino que es general y se puede usar con cualquier richtextbox del programa.

Private Sub SeleccionarLinea(ByVal NumeroDeLinea As Double, TextBox As RichTextBox)

¡¡ FUNCION CORREGIDA MÁS ABAJO !!

End Sub

Para usarlo con TextBox en lugar de RichTextBox solo hay que cambiar la declaración:

Private Sub SeleccionarLinea(ByVal NumeroDeLinea As Double, TextBox As TextBox)

Saludos

[pkj]

Perdonad, no había contado con que la última línea puede no ir seguida de un salto de línea, y mi sub en ese caso no la seleccionaba.

Esta es la versión correcta (espero)

Private Sub SeleccionarLinea(ByVal NumeroDeLinea As Double, TextBox As RichTextBox)
Dim Linea As Double
Dim Posicion As Double
Dim Inicio As Double
Dim Texto As String
Texto = TextBox.Text
If Right$(Texto, 2) <> vbCrLf Then Texto = Texto & vbCrLf
Repite:
Posicion = InStr(Posicion + 1, Texto, vbCrLf)
If Posicion <> 0 Then
Linea = Linea + 1
If Linea < NumeroDeLinea Then
Inicio = Posicion + 1
GoTo Repite
End If
TextBox.SelStart = Inicio
TextBox.SelLength = Posicion - Inicio - 1
End If
End Sub

[hunter18]

ok pkj gracias por el codigo saludos

[seba123neo]

Hola, culd, aca te dejo una funcion con SendMessage, es la mejor forma creo, aparte es rapidisimo cuando tenes miles de lineas.

Código vb:

Option Explicit
 
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1
Private Const EM_GETLINE = &HC4
 
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lPara As Long) As Long
Private Declare Function SendMessageString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lPara As String) As Long
 
Private Sub Command1_Click()
   MsgBox TextoLineaRichTextBox(Richtextbox1, 58)
End Sub
 
Private Sub Form_Load()
   Dim i As Long
   For i = 0 To 100
      Richtextbox1.Text = Richtextbox1.Text & "Linea " & i & vbCrLf
   Next
End Sub
 
Private Function TextoLineaRichTextBox(ByVal pControl As RichTextBox, ByVal pLinea As Long) As String
   Dim vLongitudLinea As Long, vNumeroLinea As Long
   Dim vTemporal As String
   
   TextoLineaRichTextBox = ""
   
   vNumeroLinea = SendMessageLong(pControl.hwnd, EM_LINEINDEX, pLinea, 0&)
   vLongitudLinea = SendMessageLong(pControl.hwnd, EM_LINELENGTH, vNumeroLinea, 0&) + 1
   vTemporal = String$((vLongitudLinea + 2), 0)
   
   Mid$(vTemporal, 1, 1) = Chr$(vLongitudLinea And &HFF)
   Mid$(vTemporal, 2, 1) = Chr$(vLongitudLinea \ &H100)
   
   vLongitudLinea = SendMessageString(pControl.hwnd, EM_GETLINE, pLinea, vTemporal)
   
   If (vLongitudLinea > 0) Then
      TextoLineaRichTextBox = Left$(vTemporal, vLongitudLinea)
   End If
End Function
 

saludos.

[culd]

Iniciado por seba123neo

Hola, culd, aca te dejo una funcion con SendMessage, es la mejor forma creo, aparte es rapidisimo cuando tenes miles de lineas.

Código vb:

Option Explicit
 
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1
Private Const EM_GETLINE = &HC4
 
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lPara As Long) As Long
Private Declare Function SendMessageString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lPara As String) As Long
 
Private Sub Command1_Click()
   MsgBox TextoLineaRichTextBox(Richtextbox1, 58)
End Sub
 
Private Sub Form_Load()
   Dim i As Long
   For i = 0 To 100
      Richtextbox1.Text = Richtextbox1.Text & "Linea " & i & vbCrLf
   Next
End Sub
 
Private Function TextoLineaRichTextBox(ByVal pControl As RichTextBox, ByVal pLinea As Long) As String
   Dim vLongitudLinea As Long, vNumeroLinea As Long
   Dim vTemporal As String
   
   TextoLineaRichTextBox = ""
   
   vNumeroLinea = SendMessageLong(pControl.hwnd, EM_LINEINDEX, pLinea, 0&)
   vLongitudLinea = SendMessageLong(pControl.hwnd, EM_LINELENGTH, vNumeroLinea, 0&) + 1
   vTemporal = String$((vLongitudLinea + 2), 0)
   
   Mid$(vTemporal, 1, 1) = Chr$(vLongitudLinea And &HFF)
   Mid$(vTemporal, 2, 1) = Chr$(vLongitudLinea \ &H100)
   
   vLongitudLinea = SendMessageString(pControl.hwnd, EM_GETLINE, pLinea, vTemporal)
   
   If (vLongitudLinea > 0) Then
      TextoLineaRichTextBox = Left$(vTemporal, vLongitudLinea)
   End If
End Function
 

saludos.

Gracias por el dato...

Igualmente es un post del 2006

[seba123neo]

upssss, no me di cuenta, hunter18 lo revivio y pensaba que era algo actual.

[hunter18]

No importa que haya sido del 2006 ya se agrego mas informacion para los novatos como yo.

Ademas estaba sonambulo y para recuperar el texto solo basta con aplicar .SelText

saludos