• Home
 · 
• String Manipulation
 · 
• A snippet of code that can extract the contents of a text box that has been set to multiline, line

A snippet of code that can extract the contents of a text box that has been set to multiline, line

A snippet of code that can extract the contents of a text box that has been set to multiline, line by line

API Declarations


Public Const EM_CANUNDO = 198
Public Const EM_GETMODIFY = 184
Public Const EM_SETMODIFY = 185
Public Const EM_UNDO = 199

Public Const EM_CANPASTE = 1074
Public Const EM_FINDTEXT = 1080

Public Const EM_GETFIRSTVISIBLELINE = 206
Public Const EM_GETLINECOUNT = 186
Public Const EM_GETLINE = 196
Public Const EM_LINEFROMCHAR = 201
Public Const EM_LINEINDEX = 187
Public Const EM_LINELENGTH = 193

Public Const EM_EXLINEFROMCHAR = 1078
Public Const EM_LINESCROLL = 182
Public Const EM_SCROLLCARET = 183
Public Const EM_SETTABSTOPS = 203


Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lparam As Long) As Long




Rate A snippet of code that can extract the contents of a text box that has been set to multiline, line

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim Lines
Dim WinH As Long
Dim i As Integer
Dim LineLength As Long
Dim charOffset As Long
 
'Get the windows handle of the multiline text box
 WinH = txtFileName.hWnd
   
   'Get the number of lines in the mutiline text box called txtFileName
    Lines = SendMessage(WinH, EM_GETLINECOUNT, 0, 0)
         
    For i = 0 To Lines - 1
 
       'Retrieve the offset of first character in the line
        charOffset = SendMessage(WinH, EM_LINEINDEX, i, 0)
       'Now get the length of the line
        LineLength = SendMessage(WinH, EM_LINELENGTH, charOffset, 0)
       'Debug.Print LineLength
        sFileName = Mid$(txtFileName.Text, charOffset + 1, LineLength)
        Debug.Print sFileName
             
    Next i