Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Automat. Setzung von Abständen f. Basic-Code

Uploader:MitgliedMichael Frey
Datum/Zeit:09.10.2005 17:53:59

'Autor: Michael Frey

defint a-z

cls

PRINT "Tab Groesse?"
input tabg

open command$ for input as #1
open command$+".new" for output as #2
do until eof(1)
    line input #1, x$
    x$=trim$(x$)
    y$=lcase$(x$)

    'Kommentare ignorien
    a = instr$(y$, "'")
    if a then y$=trim$(left$(y$,a-1))

    if left$(y$,2)= "if" then
        if instr$(y$,"then")+3=len(y$) then r0 += 1
    elseif left$(y$,6)= "elseif" then
        r1 = -1
    elseif left$(y$,4)= "else" then
        r1 = -1
    elseif left$(y$,6)= "end if" then
        r0 -= 1
        r1 = -1

    elseif left$(y$,2)= "do" then
        r0 += 1
    elseif left$(y$,4)= "loop" then
        r0 -= 1
        r1 = -1

    elseif left$(y$,5)= "while" then
        r0 += 1
    elseif left$(y$,4)= "wend" then
        r0 -= 1
        r1 = -1

    elseif left$(y$,6)= "select" then
        r0 += 1
    elseif left$(y$,4)= "case" then
        r1= -1
    elseif left$(y$,10)= "end select" then
        r0 -= 1
        r1 = -1

    elseif left$(y$,3)= "for" then
        r0 += 1
    elseif left$(y$,4)= "next" then
        r0 -= 1
        r1 = -1


    end if

    r += r1
    r1 = 0

    ? #2,rtrim$(space$(r*tabg)+x$)

    r = r0
loop
close