Dave wins the prize for spotting my goof... I did have earlier in the
handler (duh...)
set the linedelimiter to "\"
So, I learned something, besides the several variations offered...
I moved the empty line cleanup outside the handler to a function:
main handler:
put deleteEmptyLines(fld "transcript") into tFinalTranscript
function deleteEmptyLines tTranscript
repeat while ((line 1 of tTranscript) is empty)
delete line 1 of tTranscript
end repeat
repeat until ((the last line of tTranscript) is not empty)
delete the last line of tTranscript
end repeat
return tTranscript
end deleteEmptyLines
Interesting... even though the linedelimiter in the main handler is
set to "\"
Since the functions are independent... they respect CR as the line
delimiter... and it works without having to reset the line delimiter
in the main handler.
My goodness, how often I have in my scripts, changed delimiters mid-
handler... when probably I should be doing the "LISP" thing that we
see here from time to time, and breaking out these routines into
discreet functions.
Thanks
Sivakatirswami
On Aug 09, 2005, at 10:44 PM, Dave Cragg wrote:
On 10 Aug 2005, at 02:17, Sivakatirswami wrote:
I'm missing something very simple here,
Goal: delete empty lines beginning and end of text chunk
---------------
put fld "transcript" into tFinalTranscript
# clean up extra lines at beginning and end
repeat while ((line 1 of tFinalTranscript) is empty)
delete line 1 of tFinalTranscript
end repeat
This part works here, with or without the parentheses.
Thoughts:
Are the leading lines really empty? For example, you don't have a
crlf there instead of a normal return. Or possibly you have set a
different lineDelimiter.
repeat until ((the last line of tFinalTranscript) is not empty)
delete the last line of tFinalTranscript
end repeat
This may not do what you expect if the last char is a return.
Although it displays as though there is a blank line, Rev will
consider the last line to be the line before the final return. You
could add this after the second loop:
if char -1 of tFinalTranscript is return then delete char -1 of
tFinalTranscript
Cheers
Dave
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your
subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
