vb@rchiv · Tipps & Tricks · Beliebige Zeile einer (Rich-)TextBox auslesen

Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB4, VB5, VB6

23.03.04

Beliebige Zeile einer (Rich-)TextBox auslesen Eine Funktion, die den Inhalt einer beliebigen Zeile eines (Rich-)TextBox-Controls ausliest.
Autor: vb__	Bewertung:	Views: 18.567
ohne Homepage	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Die Funktion GetRowContent liefert den Inhalt einer beliebigen Zeile eines RichTextBox-/TextBox-Controls. Wird keine Zeilenummer angegeben, wird der Inhalt der aktuellen Zeile ausgelesen, d.h. der Inhalt der Zeile, in der sich der Eingabecursor befindet.

Option Explicit
 
' Benötigte API-Deklarationen
 
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
 
Private Const EM_GETLINE = &HC4
Private Const EM_GETSEL = &HB0
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB
Private Const EM_LINELENGTH = &HC1

' Beliebige Zeile eines RTF-/TextBox-Controls auslesen
Private Function GetRowContent(hwnd As Long, _
  Optional ByVal nLine As Long = 0) As String
 
  Dim CursorPos As Long
  Dim FirstChar As Long
  Dim RowLength As Long
  Dim Buffer() As Byte
 
  ' Falls keine Zeilennummer angegeben,
  ' Inhalt der aktuellen Zeile ermitteln
  If nLine < 1 Then
    CursorPos = SendMessage(hwnd, EM_GETSEL, 0, ByVal 0&) \ 65536
    nLine = SendMessage(hwnd, EM_LINEFROMCHAR, CursorPos, ByVal 0&)
  Else
    nLine = nLine - 1
  End If
 
  ' Zeilenlänge ermitteln
  FirstChar = SendMessage(hwnd, EM_LINEINDEX, nLine, ByVal 0&)
  RowLength = SendMessage(hwnd, EM_LINELENGTH, FirstChar, ByVal 0&)
 
  ' Puffer vorbereiten
  ReDim Buffer(RowLength + 1)
  Buffer(0) = RowLength + 1
 
  ' Zeileninhalt in Puffer auslesen
  SendMessage hwnd, EM_GETLINE, nLine, Buffer(0)
 
  ' Inhalt als String zurückgeben
  GetRowContent = Left$(StrConv(Buffer, vbUnicode), RowLength)
End Function

Aufrufbeispiel:

Dim sLine As String
 
' Inhalt der aktuellen Zeile
sLine = GetRowContent(RichTextBox1.hWnd)
 
' Inhalt der 10. Zeile
sLine = GetRowContent(RichTextBox1.hWnd, 10)