TIP: Click on subject to list as thread! ANSI
echo: qedit
to: MORTEN CHRISTENSEN
from: HENK SIMMELINK
date: 1995-06-03 23:10:00
subject: TSE/pro 2.0 macro

Hello Morten!
Saturday May 27 1995, Morten Christensen writes to All:
 MC>   while not isEmptyLine()
 MC>         BegLine()
 MC>         InsertText("string")
 MC>   endwhile
 MC> Having not yet found the fine QEdit3-command isEmptyLine in the
 MC> TSEpro-manuals, I came up with this:
Hmm, it is indeed not as simple as in QEdit, but than again not as
difficult as you might think after having read this.... 
What you need is: CurrLineLen() That returns a 0 if the current line is
0 characters long....
proc main()
    set(Break,on)
    BegFile()
    repeat
        if CurrLineLen() == 0
            InsertText("string")
        endif
        Down(1)
    until CurrLine() == NumLines()
end
 MC> 11 lines to replace, what I expected to do on 4 lines. Can anyone give
 MC> me the TSEpro-word for isEmptyLine or a more simple way, than these 11
 MC> lines.
That is the characteristic of a lower programming language.... You need
to write more code so you can do exactly that what you wanna do....
Henk
---
---------------
* Origin: (2:283/4.6)

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™.