Thanks Greg and Mark. With your help I was able to get the intended result.
Here's the code that I finally ended up with.
IF !EMPTY(observe.comment)
lnLines=ALINES(aLinez,observe.comment)
lcHoldLines = ""
FOR i = 1 TO lnLines
IF LEFTC(aLinez(i),4) <> "--- "
lcHoldlines = lcHoldlines + ALLT(aLinez(i)) + CHR(13)
ENDIF
ENDFOR
IF !EMPTY(lcHoldlines)
REPLACE observor.comment WITH lcHoldlines
ENDIF
ENDIF
Steve Kramer
Kramer & Kramer Design
"Home of Go Cartoons"
Web Site:
www.stephenkramer.comWould you believe Far Side Lite?
More than 270 original cartoons.
