1.bas + 2.bas = groot.bas

Algemene discussies en vragen omtrent Liberty BASIC programma's. Stuur zoveel mogelijk delen van listings (snippets) in als je hulp wilt.

Moderators: anthonio, Abcott

1.bas + 2.bas = groot.bas

Berichtdoor bluatigro » zo mei 19, 2013 5:33 pm

dit is een poging tot n prog samenvoeger

WARNING : cut$ NOOIT in je prog gebruiken !!

instructies :
- 1 - load prog delen
- 2 - save geheel

Code: Selecteer alles
global true , false , cut$ , stck$
cut$ = "|"
false = 0
true = not( false )
while yn$ <> "no"
  filedialog "load part" , "*.bas" , file$
  if file$ <> "" then
    open file$ for input as #in
      while not( eof( #in ) )
        input #in , lijn$
        stck$ = push$( stck$ , lijn$ , false )
      wend
    close #in
  end if
  confirm "add a *.bas ?" , yn$
wend
file$ = ""
while file$ = ""
  filedialog "save total" , "*.bas" , file$
wend
open file$ for output as #out
  i = 1
  while top$( stck$ ) <> ""
    print #out , top$( stck$ )
    stck$ = pop$( stck$ )
  wend
close #out
notice "ready"
end
''                                 stack stuf
function push$( stack$ , object$ , l )
''store object$ on left side stack
  if l then
    push$ = object$ + cut$ + stack$
  else
    push$ = stack$ + object$ + cut$
  end if
end function
function pop$( stack$ )
''delete last object$
  i = instr( stack$ , cut$ )
  if stack$ = "" then pop$ = ""
''get right side of stack
  pop$ = mid$( stack$ _
  , i + 1 , len( stack$ ) - i )
end function
function top$( stack$ )
''read last object$
  i = instr( stack$ , cut$ )
  if stack$ = "" then top$ = ""
  top$ = mid$( stack$ , 1 , i - 1 )
end function
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Liberty BASIC Code

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron