Hello
I have something like this and it works but i am sure that this can be coded better..i have put a sapce between name and date and segment lines
Dim intFileNumber As Integer
Dim strLine As String
Dim myName As String
Dim myDate As String
Dim mySegment
Dim myStartTime
Dim myStopTime
mySegment = InputBox("What is the segment number?")
intFileNumber = FreeFile
Open "E:\DOCUMENTS\test.txt" For Input As #intFileNumber
Line Input #intFileNumber, strLine
myName = Right(strLine, 5)
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
myDate = Right(strLine, 10)
If mySegment = 1 Then
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
myStartTime = Right(strLine, 8)
Line Input #intFileNumber, strLine
myStopTime = Right(strLine, 8)
Else
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
Line Input #intFileNumber, strLine
myStartTime = Right(strLine, 8)
Line Input #intFileNumber, strLine
myStopTime = Right(strLine, 8)
End If
MsgBox ("Name" & myName)
MsgBox ("Date " & myDate)
MsgBox ("StartTime " & myStartTime)
MsgBox ("StartTime " & myStopTime)