Am sending this again: I think it got kicked back from
[EMAIL PROTECTED]:
;;================================================
I want to insert a series of lines of text into
a file;
;;===Code as follows:
insert_txt: ["first new line" "second new line" "third new line"]
fp: open/lines/mode %test.txt [read write lines]
forall fp
[
forall fp
[
if(find first fp "begin insert here")
[
print first fp
foreach txt insert_txt [insert next fp txt]
;insert next fp insert_txt
]
]
]
;;using the code: foreach txt insert_txt [insert next fp txt]
;; results in the elements of the series being inserted
;; in REVERSE order
;; Using the code: insert next fp insert_txt
;; Inserts the elements of the series in the correct
;; order
;; How can I iterate through insert_txt and insert
;; the individual elements in the correct order?
Thanks
Tim
