Parsing text files 2

[fergmj]

I have an app that looks at a folder and waits for text files. When one arrives, it opens the file. I ned to parse it when it finds "$$$" in the text.

A sample of the text in the file would be like this:

AB:::Withold 99296123$$$Reason is unknown

I need a string that is everything up to and including the $$$ as one string and everything after the $$$ to be a separate string

How can I do this?

Thanks

fergmj

 

[sunaj]

Hi,

My suggestion is:

Read the file into one string (see e.g. faq222-482).
Use instr to find the "$$$"
parse the strings using left$ and mid$:

'assume your file-string is called MyStr.
FirstStr=left$(MyStr,instr(1,MyStr,"$$$&quot-1)
SecondStr=mid$(MyStr,instr(1,MyStr,"$$$&quot+3)

Sunaj

 

[petermeachem]

It's easy peasy, although I'll probably get told off for saying so.


Dim c As String
Dim i As Integer
Dim cLeftBit As String
Dim cRightBit As String

c = "AB:::Withold 99296123$$$Reason is unknown"

i = InStr(c, "$$$&quot
If i > 0 Then

cLeftBit = Left$(c, i - 1 + 3)
cRightBit = Right$(c, Len(c) - i - 2)

End If

if you don't understand the code, look the 3 functions up in help. if still stuck, ask again
Peter Meachem
peter@accuflight.com

 

[fergmj]

Great comments from both Peter and Sunaj. All is working great.

THANKS to both!

fergmj

 

[sunaj]

let us know that the post was helpful...

 

[fergmj]

Sorry, I thought I did that. I've done it now.



fergmj

 

[JJR]

You could also use the Split method

'assume your file-string is called MyStr.

dim sStringParts() as string

sStringParts = Split(MyStr, "$$$")

Output will be an array.

Jordi Reineman