Parsing a text file over multiple lines

[RDaniells]

I am relatively new to working in vba so bear with me.

I am writing a macro to search a text file for a string "ioelp". Once i find this string i want to read the file until i find the character ";".

I would then like to write the whole string to a new text file.

I then need to take this string and replace a related string in a 3 rd file (this pat i have solved)

Any help would be much appreciated

 

[AlphaFrog]

Hi and welcome to the forum.

Try something like this...

    [color=darkblue]Dim[/color] FF [color=darkblue]As[/color] [color=darkblue]Integer[/color]
    [color=darkblue]Dim[/color] strText [color=darkblue]As[/color] [color=darkblue]String[/color]
    
    [color=green]'Read text file[/color]
    FF = FreeFile()
    [color=darkblue]Open[/color] "C:\MyFile.txt" [color=darkblue]For[/color] [color=darkblue]Input[/color] [color=darkblue]As[/color] #FF
    strText = Input$(LOF(FF), FF)
    [color=darkblue]Close[/color] #FF
    
    [color=green]'Parse text[/color]
    strText = Mid(strText, InStr(1, strText, "ioelp", 1))
    strText = Left(strText, InStr(1, strText, ";", 1))
    
    [color=green]'Write parsed text to text file[/color]
    FF = FreeFile()
    [color=darkblue]Open[/color] "C:\Parsed.txt" [color=darkblue]For[/color] [color=darkblue]Output[/color] [color=darkblue]As[/color] #FF
    [color=darkblue]Print[/color] #FF, strText
    [color=darkblue]Close[/color] #FF

 

[RDaniells]

Thanks that works as intended