Do you know how can I select data in one line with information in another line in text file?

for example:

in text file:
*****************************************************
line 1: 1234 – data
Line 2: all data are needed
*****************************************************

I want copy some words in line2 to excel, but I can’t use any word from that line as guide.
in this case can I use (1234) in line1 as a guide to select data in line2?

Emeka

Tig

Option Explicit

Sub Import()

Const lngLastRow As Long = 60000
Const strDelimiter As String = “,”
Const strYMD As String = “yyyymmdd”

Dim objDestWkBk As Workbook
Dim objDestWkSht As Worksheet
Dim bFilter, bSkip As Boolean
Dim varCriteria() As Variant
Dim varResult As Variant
Dim varStartTime As Variant
Dim varEndTime As Variant
Dim dblCounter As Double
Dim lngFNumber As Long
Dim lngCounter As Long
Dim lngRows As Long
Dim i As Long
Dim strResult As String
Dim strFName As String
Dim strCriteria As String

On Error GoTo CleanUp
Application.ScreenUpdating = False

‘Find any filter criteria
If WorksheetFunction.CountA(Cells) > 0 Then
lngCounter = Cells.Find(What:=”*”, After:=[A1], SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End If

ReDim varCriteria(lngCounter)

‘Check for a filter on ROW 15, removing surrounding double quotes
For i = 1 To lngCounter
varCriteria(i) = Cells(15, i).Text
If varCriteria(i) > “” Then
bFilter = True
varCriteria(i) = Replace(varCriteria(i), Chr(34), “”)
End If
Next i

‘Initialize variables
strFName = CStr(Application.GetOpenFilename)
If strFName = “” Or strFName = “False” Then End

lngFNumber = FreeFile()
dblCounter = 1
lngCounter = 1

‘Open File
Open strFName For Input As #lngFNumber
varStartTime = Time

‘Create new workbook
Set objDestWkBk = Workbooks.Add(template:=xlWorksheet)
Set objDestWkSht = objDestWkBk.Worksheets(1)

‘Import the File
Do While Seek(lngFNumber) “” Then
If LCase(Mid(varCriteria(i), 1, 4)) = “like” Then
If Not varResult(i – 1) Like Mid(varCriteria(i), 6) Then bSkip = True
ElseIf Mid(varCriteria(i), 1, 2) = “” Then
If varResult(i – 1) = Mid(varCriteria(i), 3) Then bSkip = True
ElseIf Mid(varCriteria(i), 1, 2) = ” _
Format(Mid(varCriteria(i), 3), strYMD) Then bSkip = True
Else
If varResult(i – 1) > Mid(varCriteria(i), 3) Then bSkip = True
End If
ElseIf Mid(varCriteria(i), 1, 2) = “>=” Then
If IsDate(varResult(i – 1)) Then
If Format(varResult(i – 1), strYMD) Mid(varCriteria(i), 2) Then bSkip = True
ElseIf Mid(varCriteria(i), 1, 1) = “>” Then
If IsDate(varResult(i – 1)) Then
If Format(varResult(i – 1), strYMD) = _
Format(Mid(varCriteria(i), 2), strYMD) Then bSkip = True
Else
If varResult(i – 1) >= Mid(varCriteria(i), 2) Then bSkip = True
End If
End If
End If
Next i
End If

‘Output data & increment counters unless skipping this row
If Not bSkip Then
For i = LBound(varResult) To UBound(varResult)
objDestWkSht.Cells(lngCounter, i + 1).Value = varResult(i)
Next i

If lngCounter = lngLastRow Then
lngCounter = 1
With objDestWkBk
Set objDestWkSht = .Worksheets.Add
objDestWkSht.Move After:=.Sheets(.Sheets.Count)
End With
Else: lngCounter = lngCounter + 1
End If
lngRows = lngRows + 1
End If

dblCounter = dblCounter + 1
Loop

CleanUp:
Close
Application.StatusBar = False
Application.ScreenUpdating = True
If Err.Number

There is hard coding (sincerest apologies, was in a hurry) & I’ve specified row 15 as the row to look for the filter criteria but you can change it as necessary.

USAGE: Specify the filter in the excel column that relates to the csv data you want to filter, i.e. if you want csv column 3 to be GBP then enter “=GBP” in column c in excel. You need “” around the filters or excel will think it’s a formula & I’ve made the criteria case sensitive on purpose.

NOT: If specifying a date as a filter, regional date settings must match the format of the csv date or some of the dates won’t match.

Example filters:”=123456?, “abcdef”, “xyzxyz”, “like *abcd*”

Enjoy.

Tig (aka TheIrishGit)

Option Explicit

Sub Import()

Const lngLastRow As Long = 60000
Const strDelimiter As String = “,”
Const strYMD As String = “yyyymmdd”

Dim objDestWkBk As Workbook
Dim objDestWkSht As Worksheet
Dim bFilter, bSkip As Boolean
Dim varCriteria() As Variant
Dim varResult As Variant
Dim varStartTime As Variant
Dim varEndTime As Variant
Dim dblCounter As Double
Dim lngFNumber As Long
Dim lngCounter As Long
Dim lngRows As Long
Dim i As Long
Dim strResult As String
Dim strFName As String
Dim strCriteria As String

On Error GoTo CleanUp
Application.ScreenUpdating = False

‘Find any filter criteria
If WorksheetFunction.CountA(Cells) > 0 Then
lngCounter = Cells.Find(What:=”*”, After:=[A1], SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End If

ReDim varCriteria(lngCounter)

‘Check for a filter on ROW 15, removing surrounding double quotes
For i = 1 To lngCounter
varCriteria(i) = Cells(15, i).Text
If varCriteria(i) > “” Then
bFilter = True
varCriteria(i) = Replace(varCriteria(i), Chr(34), “”)
End If
Next i

‘Initialize variables
strFName = CStr(Application.GetOpenFilename)
If strFName = “” Or strFName = “False” Then End

lngFNumber = FreeFile()
dblCounter = 1
lngCounter = 1

‘Open File
Open strFName For Input As #lngFNumber
varStartTime = Time

‘Create new workbook
Set objDestWkBk = Workbooks.Add(template:=xlWorksheet)
Set objDestWkSht = objDestWkBk.Worksheets(1)

‘Import the File
Do While Seek(lngFNumber) “” Then
If LCase(Mid(varCriteria(i), 1, 4)) = “like” Then
If Not varResult(i – 1) Like Mid(varCriteria(i), 6) Then bSkip = True
ElseIf Mid(varCriteria(i), 1, 2) = “” Then
If varResult(i – 1) = Mid(varCriteria(i), 3) Then bSkip = True
ElseIf Mid(varCriteria(i), 1, 2) = ” _
Format(Mid(varCriteria(i), 3), strYMD) Then bSkip = True
Else
If varResult(i – 1) > Mid(varCriteria(i), 3) Then bSkip = True
End If
ElseIf Mid(varCriteria(i), 1, 2) = “>=” Then
If IsDate(varResult(i – 1)) Then
If Format(varResult(i – 1), strYMD) Mid(varCriteria(i), 2) Then bSkip = True
ElseIf Mid(varCriteria(i), 1, 1) = “>” Then
If IsDate(varResult(i – 1)) Then
If Format(varResult(i – 1), strYMD) = _
Format(Mid(varCriteria(i), 2), strYMD) Then bSkip = True
Else
If varResult(i – 1) >= Mid(varCriteria(i), 2) Then bSkip = True
End If
End If
End If
Next i
End If

‘Output data & increment counters unless skipping this row
If Not bSkip Then
For i = LBound(varResult) To UBound(varResult)
objDestWkSht.Cells(lngCounter, i + 1).Value = varResult(i)
Next i

If lngCounter = lngLastRow Then
lngCounter = 1
With objDestWkBk
Set objDestWkSht = .Worksheets.Add
objDestWkSht.Move After:=.Sheets(.Sheets.Count)
End With
Else: lngCounter = lngCounter + 1
End If
lngRows = lngRows + 1
End If

dblCounter = dblCounter + 1
Loop

CleanUp:
Close
Application.StatusBar = False
Application.ScreenUpdating = True
If Err.Number

the a, b, c are representing characters that you want to be deleted from your file. Because of the limitations of WordPress (or my unability tot overcome them) I used thes chacters instead of the escape -characters I should avoid.
I suspect that my method runs faster than Dick’s suggestion.