INTERCEPT a variable position of string

[sal21]

I read a txt file with the tipical:
...
Open Filename$ For Input As #FileHandle
Do While Not EOF(FileHandle)
Line Input #FileHandle, TextLine$
ecc...
...

in txt file i can have a string: RAPP: 14587

I this case RAPP: is in mid 7,5 and i get with othe mid 14587

I have see into txt the position of RAPP: is variable 8,5 or 34,5 or 67,5....

how to intercept teh mid position of RAPP: and get 14587...

i think the first steep is to use instring to intercept RAPP: but the rest of code?

????

[HansV]

Try this:

Code: Select all

    Dim lngPosition As Long
    Dim strExtract As String
    lngPosition = InStr(TextLine, "RAPP:")
    If lngPosition > 0 Then
        strExtract = Mid(TextLine, lngPosition + 6, 5)
    End If

[sal21]

Try this:

Code: Select all

    Dim lngPosition As Long
    Dim strExtract As String
    lngPosition = InStr(TextLine, "RAPP:")
    If lngPosition > 0 Then
        strExtract = Mid(TextLine, lngPosition + 6, 5)
    End If

ops... instead RAPP: is RAPPORTO C/C:

[HansV]

Use

InStr(TextLine, "RAPPORTO C/C:")

and

Mid(TextLine, lngPosition + 14, 5)

[sal21]

Use

InStr(TextLine, "RAPPORTO C/C:")

and

Mid(TextLine, lngPosition + 14, 5)

TKS...

In other case resolved my self...
Sorry for thath

[sal21]

Try this:

Code: Select all

    Dim lngPosition As Long
    Dim strExtract As String
    lngPosition = InStr(TextLine, "RAPP:")
    If lngPosition > 0 Then
        strExtract = Mid(TextLine, lngPosition + 6, 5)
    End If

ops... instead RAPP: is RAPPORTO C/C:

great routine!