vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Controls · TextBox & RichTextBox   |   VB-Versionen: VB4, VB5, VB623.03.04
Beliebige Zeile einer (Rich-)TextBox auslesen

Eine Funktion, die den Inhalt einer beliebigen Zeile eines (Rich-)TextBox-Controls ausliest.

Autor:   vb__Bewertung:     [ Jetzt bewerten ]Views:  18.511 
ohne HomepageSystem:  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)