xtal
Junior Member
Posts: 61
|
Post by xtal on Sept 24, 2020 13:11:47 GMT -5
I tried to add DRBEDIT as a new editor , but obviously did something wrong, all I accomplished was to
wipe out a 3000 line program, fortunately , I had it backed up....
I want to try this editor because it supports physical line numbering + more.
Also I could not figure out how to compile , other than save file , load LB and compile , which is rather crummy....
So what is the proper way to change editor , and will I be able to compile.
|
|
|
Post by honkytonk on Sept 25, 2020 4:13:47 GMT -5
Why you want an other éditor ? To number the lines (Edit-->copy/paste)
NOMAINWIN WindowWidth = 600: WindowHeight = 500 UpperLeftX = 10: UpperLeftY = 20 TEXTEDITOR #w.te, 20, 30, 500, 400 GRAPHICBOX #w.m 5, 5, 585, 440 OPEN "Help" FOR window_nf AS #w #w, "TRAPCLOSE [closeHelp]" ' #w.m, "when leftButtonDown [scanne]" #w.m "down;fill darkpink" #w.m, "when leftButtonMove [scanne]" filedialog "Open file", "*.bas", fileName$ file$=fileName$ if file$="" then wait open file$ for input as #g 'Ouverture fichier en lecture while eof(#g)=0 n=n+1: line input #g, ligne$ wend close #g x=0: dim r$(n+1) open file$ for input as #g 'Ouverture fichier en lecture while eof(#g)=0 x=x+1: line input #g, ligne$ for t=1 to len(ligne$) if mid$(ligne$,t,1)="[" then flag=1: exit for next t if flag=1 then r$(x)="["+str$(x)+"]"+chr$(10)+ligne$: flag=0 else r$(x)="["+str$(x)+"]"+" "+ligne$ end if #w.te, r$(x) wend close #g wait [closeHelp] CLOSE #w END
|
|