Something like (bear in mind the wine has flowed :)
Local retval, lText
Retval = ""
lText = strtran(lcIn,"[","["+chr(13+chr(10)
lText = strtran(lText,"]","]"+chr(13+chr(10)
For iicount = 1 to memlines(lText)
if left(mline(lText,iicount) <> "["
retval = retval + mline(lText,iicount)
endif
Next iicount
Return retval
Allen
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Alan Bourke
Sent: 07 May 2008 17:57
To: [EMAIL PROTECTED]
Subject: Re: VFP9 SP2: substring extraction
Well, shortest I can manage is:
lcIn = "Apples [some text]; oranges [some more text]; bananas [more text]"
lcOut = ""
lnLines = ALines(laFruits, lcIn, 9, ";")
For lnLoop = 1 To lnLines
lcOut = lcOut + Left(laFruits[lnLoop], Atc(" ", laFruits[lnLoop])-1)
+ ";"
Endfor
? lcOut
But I bet some Regular Expression maven can better it!
--
Alan Bourke
[EMAIL PROTECTED]
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
