write a new file?

[junlo]

code below use to extract data from file(data.txt).now,i need to write the value strLatitude,strLongitude,strDepthto a new file and save it. How to write the code?

private Sub readFile()
Dim blnStartReading1 As Boolean, blnStartReading2 As Boolean
Dim strTestData As String
Dim A As Integer
Dim B As Integer
Dim i As Integer
Dim ii As Integer
Dim strLatitude As String
Dim strLongitude As String
Dim strDepth As String
ChDir App.Path
 
Open strfilename For Input As #2
    blnStartReading1 = False: blnStartReading2 = False
    
    While Not EOF(2)
        Line Input #2, strTestData
        If strTestData = "STOP" Then blnStartReading2 = False
        
        If blnStartReading1 = True And blnStartReading2 = True Then
            A = Len(strTestData)
            For B = 1 To A
                If Mid(strTestData, B, 1) = " " Then
                    strLongitude = Mid(strTestData, 1, B - 1)
                    strLatitude = Mid(strTestData, B + 1, A)
                    Exit For
                End If
            Next B
        MsgBox " " & [COLOR=Magenta]strLatitude[/COLOR] & " " & [COLOR=Magenta]strLongitude[/COLOR]  & " " & [COLOR=Magenta]strDepth[/COLOR] & ""
       End If
                     
        If blnStartReading1 = True And blnStartReading2 = False Then
            i = InStr(strTestData, "174=")
            ii = InStr(i + 1, strTestData, ";")
                If i < ii And i <> 0 Then
                    strDepth = Mid(strTestData, i, ii - i)
                End If
            blnStartReading2 = True
        End If
      
      If strTestData = "EndHeader" Then blnStartReading1 = True
      If strTestData = "STOP" Then blnStartReading2 = False
      
    Wend
Close #2
End Sub

[aStrat]

do you need to write to the file as you are opening it throughout the loop, or do you just need to save the final value that strLat, strLong and strDepth has?

[junlo]

do you need to write to the file as you are opening it throughout the loop, or do you just need to save the final value that strLat, strLong and strDepth has?

i need to write from opening it throughout the loop.

[aStrat]

I think this is what you are looking for, if not please let me know
What I added is in Red.

Private Sub readFile()
Dim blnStartReading1 As Boolean, blnStartReading2 As Boolean
Dim strTestData As String
Dim A As Integer
Dim B As Integer
Dim i As Integer
Dim ii As Integer
Dim strLatitude As String
Dim strLongitude As String
Dim strDepth As String
ChDir App.Path
 
Open strFilename For Input As #2
    blnStartReading1 = False: blnStartReading2 = False
    
    While Not EOF(2)
        Line Input #2, strTestData
        If strTestData = "STOP" Then blnStartReading2 = False
        
        If blnStartReading1 = True And blnStartReading2 = True Then
            A = Len(strTestData)
            For B = 1 To A
                If Mid(strTestData, B, 1) = " " Then
                    strLongitude = Mid(strTestData, 1, B - 1)
                    strLatitude = Mid(strTestData, B + 1, A)
                    Exit For
                End If
            Next B
        MsgBox " " & strLatitude & " " & strLongitude & " " & strDepth & ""
        [COLOR=Red]Open App.Path & "/NewFile.txt" For Append As #1
            Print #1, " " & strLatitude & " " & strLongitude & " " & strDepth & ""
        Close #1[/COLOR]
       End If
                     
        If blnStartReading1 = True And blnStartReading2 = False Then
            i = InStr(strTestData, "174=")
            ii = InStr(i + 1, strTestData, ";")
                If i < ii And i <> 0 Then
                    strDepth = Mid(strTestData, i, ii - i)
                End If
            blnStartReading2 = True
        End If
      
      If strTestData = "EndHeader" Then blnStartReading1 = True
      If strTestData = "STOP" Then blnStartReading2 = False
      
    Wend
Close #2
 
End Sub

[junlo]

thanks aStrat. it is what i want. But now,i hv another problem.below is some of my original file.

Header
2.85667000
99.70000000
4.01666940
101.46667000
2
Decimal
1.01.33
Some description
EndHeader
START 43, L, 174=0;133=300000
100.81888000 3.85663000
100.81778000 3.85625000
100.80883000 3.85519000STOP
START 43, L, 174=20;133=300000
101.29401000 3.20013000
101.29359000 3.20232000
101.29134000 3.20748000
STOP
START 302, A, 18=1
99.98843120 2.85667000
99.70000000 2.85667000
99.70000000 3.19926000
STOP

i only want to write the value(the blue one),don't need the red colour value.
100.81888000 3.85663000 174=0
100.81778000 3.85625000 174=0
100.80883000 3.85519000 174=0
101.29401000 3.20013000 174=20
101.29359000 3.20232000 174=20
101.29134000 3.20748000 174=20
99.98843120 2.85667000 174=20
99.70000000 2.85667000 174=20
99.70000000 3.19926000 174=20

[Al42]

You have to tell us why you don't want those values before we can help you. Is it that you don't want anything with the first number less than 100?

[junlo]

You have to tell us why you don't want those values before we can help you. Is it that you don't want anything with the first number less than 100?

i hv a set of data which open with
START ......
100.81888000 3.85663000
......
STOP

i just need the value inside the
START 43, L, 174=0;133=300000
100.81888000 3.85663000
100.81778000 3.85625000
100.80883000 3.85519000
STOP

this means when have the 174=XXX after the START......, then i want to change it to format like this
100.81888000 3.85663000 174=0
100.81778000 3.85625000 174=0
100.80883000 3.85519000 174=0