SUGGEST to get min max date from txt string

[sal21]

I use the tipical free file eof .... to read line by line a txt file.

During the loop a get in a mid postion of string a date form each lines and store the date value it in mYDate var.

How to get the min and max date when the loop is finished?

Peraphs i can store the date value in a collection, in a dictionary...

note:
In txt are approx 350.xxx lines

[Rudi]

I'll take a chance to reply...
You can try Dim myDate() as Variant
Then in your loop have a counter like: i=i+1 and populate your variable myDate(i)
Lastly use the LBound(myDate) to extract the Min Date and UBound(myDate) to extract the Max date.

[HansV]

Try code like this:

Code: Select all

    Dim myDate As Date
    Dim minDate As Date
    Dim maxDate As Date
    Dim strLine As String
    minDate = #1/1/2100#
    maxDate = #1/1/1900#
    Dim f As Integer
    f = FreeFile
    Open "C:\MyFile.txt" For Input As #f
    Do While Not EOF(f)
        Line Input #f, strLine
        myDate = CDate(Mid(strLine, 24, 10))
        If myDate > maxDate Then
            maxDate = myDate
        End If
        If myDate < minDate Then
            minDate = myDate
        End If
    Loop
    Close #f

[sal21]

Try code like this:

Code: Select all

    Dim myDate As Date
    Dim minDate As Date
    Dim maxDate As Date
    Dim strLine As String
    minDate = #1/1/2100#
    maxDate = #1/1/1900#
    Dim f As Integer
    f = FreeFile
    Open "C:\MyFile.txt" For Input As #f
    Do While Not EOF(f)
        Line Input #f, strLine
        myDate = CDate(Mid(strLine, 24, 10))
        If myDate > maxDate Then
            maxDate = myDate
        End If
        If myDate < minDate Then
            minDate = myDate
        End If
    Loop
    Close #f

Sorry me Hans,
but i'm inattentive...

i have two var

mYDate and mYDate1

based mYDate i need only the min date an based mYDate1 only the max date

[HansV]

Sorry, I don't understand.

[sal21]

Sorry, I don't understand.

i get also other value from the each string with myDate1 = CDate(Mid(strLine, 68, 10))

now i need to get, during the loop only the min date with...

myDate = CDate(Mid(strLine, 24, 10))

and i need to get, during the loop only the max date...

myDate1 = CDate(Mid(strLine, 68, 10))

[HansV]

OK, try this version:

Code: Select all

    Dim myDate As Date
    Dim myDate1 As Date
    Dim minDate As Date
    Dim maxDate As Date
    Dim strLine As String
    minDate = #1/1/2100#
    maxDate = #1/1/1900#
    Dim f As Integer
    f = FreeFile
    Open "C:\MyFile.txt" For Input As #f
    Do While Not EOF(f)
        Line Input #f, strLine
        myDate = CDate(Mid(strLine, 24, 10))
        If myDate < minDate Then
            minDate = myDate
        End If
        myDate1 = CDate(Mid(strLine, 68, 10))
        If myDate1 > maxDate Then
            maxDate = myDate1
        End If
    Loop
    Close #f

[sal21]

OK, try this version:

Code: Select all

    Dim myDate As Date
    Dim myDate1 As Date
    Dim minDate As Date
    Dim maxDate As Date
    Dim strLine As String
    minDate = #1/1/2100#
    maxDate = #1/1/1900#
    Dim f As Integer
    f = FreeFile
    Open "C:\MyFile.txt" For Input As #f
    Do While Not EOF(f)
        Line Input #f, strLine
        myDate = CDate(Mid(strLine, 24, 10))
        If myDate < minDate Then
            minDate = myDate
        End If
        myDate1 = CDate(Mid(strLine, 68, 10))
        If myDate1 > maxDate Then
            maxDate = myDate1
        End If
    Loop
    Close #f

Genius!

... to understand me
... and for the brilliant code