TIP: Click on subject to list as thread! ANSI
echo: qedit
to: ALL
from: MORTEN CHRISTENSEN
date: 1995-06-04 21:34:00
subject: TSEpro macro inserting lines

Hello All!
An ascii text-file sizing approximately 2.5 MB contains paragraphs each with 
between 1 and 2-3,000 lines. Each paragraph begins with 1 blank line and 1 
line starting with "<<" and after that the name of the paragraph.
For every 100 lines in a paragraph, I want to insert a line starting with 
">>" and then the name of the paragraph. I have made this macro:
proc many_lines()
     loop
           lFind('<<\c','x')
              UnmarkBlock()
              MarkColumn()
              EndLine()
              Copy()
           markLine()
              lFind('<<','')
              Up(2)
           markLine()
           GotoBlockBegin()
            GotoLine(CurrLine()+100)
             while isCursorInBlock()
                   InsertLine()
                   BegLine()
                   InsertText('>>')
                   PushBlock()
                   Paste()
                   PopBlock()
                 GotoLine(CurrLine()+100)
             endwhile
      endloop
end
 many_lines()
But this cannot be the solution. It creates a large swap-file (on my largest 
HD it reached 54 MB) and stops the program.
I don't expect it to be a big challenge to TSE, but I have used all my 
fantasy for the moment.
Morten
--- GoldED/2 2.50.Beta5+
---------------
* Origin: From Denmark, explaining the bad language (2:235/200.23)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.