Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
L.E.R.R.E V0.001
| Uploader: |  AndT |
| Datum/Zeit: | 05.10.2007 19:35:53 |
Print "L.E.E.R.E V 0.001 (programmed by AndT)"
sub closeit ' schliesst das programm richtig
close #1
close #2
sleep
end
end sub
sub drawsyntax
Print "Syntax: '-ec' , 'Eingabedatei' , 'Ausgabedatei'"
print
Print " -e Convertiert eine belibige Datei nach L.E.R.R.E"
print " -c Convertiert eine belibige L.E.R.R.E-Datei ins Binaere"
closeit
end sub
sub init_main
dim as string fileinput = command (2)
dim as string fileoutput = command (3)
open fileoutput for input as #2
if lof(2) > 0 then Print "Fehler : Die Ausgabedatei existiert bereits":closeit
close #2
open fileinput for binary as #1
open fileoutput for binary as #2
if fileinput = "" or fileoutput = "" then drawsyntax
if lof(1) = 0 then Print "Fehler : Bitte Dateiname ueberprufen..":closeit
end sub
sub createlre
dim as ubyte char
dim as integer p
p+=1
get #1,,char
dim as integer runs
DO
runs+=1
FOR i as integer = 1 to char
print #2,".";
next
p+=1
get #1,,char
if runs=lof(1) then exit do else print #2,",";
loop
end sub
sub convertlre
'
' L.E.R.R.E Advanced Code (V 0.1) xD
'
Print "Erstelle Datei.."
dim as ubyte char
dim as ubyte wchar
dim as integer runs
DO
runs+=1
get #1,,char
IF char = asc(".") then
wchar + = 1
end if
IF char = asc(",") then
put #2,,wchar
wchar=0
end if
LOOP UNTIL runs=lof(1)
Print "done"
sleep
end sub
init_main
select case command(1)
case "-c"
convertlre
case "-e"
createlre
case else
If command(1) <> "" then drawsyntax else Print "Fehler: der Schalter kann nur so aussehen: '-c' oder '-e' (ohne ' )"
end select
closeit