need to get lines from textfile with string count >

**Guido Geurs** · Feb 19 '14, 08:45 AM

Split the text on "vbnewline" in an array.
Run through the lines and isolate those who have the value.
See also attachment

Code:

'§ Text1= original text
'§ Text2= isolated Text
'§ TextIsolate has the value for the condition
'§ (VALUE if isolating on the value of the string)
'§ (LENGTH if isolating on the length of the string)
'§ ComSplit isolates the text
'§ ComClear clears the Text2 box

Option Explicit


Private Sub ComClear_Click()
   Text2.Text = ""
End Sub

Private Sub ComSplit_Click()
Dim ARRLINES() As String '§ array with lines
Dim ARRLINESidx As Integer
Dim LINEstring As String '§ string of a line
Dim STARTofVALUE As Integer '§ first quote in the line
Dim ENDofVALUE As Integer '§ second quote in the line
   '§ split into lines
   ARRLINES = Split(Text1.Text, vbNewLine)
   '§ run through the lines
   For ARRLINESidx = LBound(ARRLINES) To UBound(ARRLINES)
      LINEstring = ARRLINES(ARRLINESidx)
      '§ if it is a valid line
      If Left(LINEstring, 5) = "<text" Then
         '§ if it has the string condition
         STARTofVALUE = InStr(LINEstring, """") + 1
         ENDofVALUE = InStr(STARTofVALUE + 1, LINEstring, """")

'§ working with VALUES
'         If Val(Mid(LINEstring, STARTofVALUE, ENDofVALUE - STARTofVALUE)) = Val(TextIsolate.Text) Then
            
'§ working with LENGTH
         If Len(Mid(LINEstring, STARTofVALUE, ENDofVALUE - STARTofVALUE)) > Val(TextIsolate.Text) Then
            
            Text2 = Text2 & LINEstring & vbNewLine
         End If
      End If
   Next
End Sub

Attached Files

Form1.zip (2.0 KB, 81 views)

need to get lines from textfile with string count >

need to get lines from textfile with string count >

Comment