Finding an expression in a string

Hi All,

I think I may have done this in the past but cannot remember how -

I want to search a string from left to right until I encounter the first "space" and then capture the data to the left of the space.

For example if the string is "1~2 something" I want to capture the "1~2" part of the string.

Can anyone help please?

Thanks,

Milton

Milton

nPos is string
nPos = Position("1~2 something"," ",FromBeginning) should do the trick.
nPos will return 4

Regards

DerekT

Hi Derek,

Thanks mate - I will give it a try.

Milton

Hi Derek,

I used your advice on a file I had created, already imported from an Excel spreadsheet (pps$), to add the data I wanted with the exception that I created the variable nPos as an integer rrather than a string.

HOpen(pps$,"",hOReadWrite)
HReadFirst(pps$,pps$.JobName)
WHILE NOT HOut(pps$)
nPos = Position(pps$.Description1," ",FromBeginning)
pps$.nPos=nPos
pps$.PartDesc=Left(pps$.Description1,(nPos-1))
HWrite(pps$,hCurrentRecNum)
HReadNext(pps$,pps$.JobName)
END

It worked perfectly so thanks a lot.

Milton

Hello Milton,

You can use ExtractString for that:

sSubString=ExtractString(sCompleteString," ",firstRank)

HTH.

Hi Louis,

Thanks for the information.

Milton