Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [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

4TPM, LOL

Uploader:Redakteurytwinky
Datum/Zeit:02.11.2007 22:20:39

'+--------------------------------------------------------------------------------------+
'|    Header: Bestimmen der bergabeparameter                                           |
'|    AnzeigeCheck:|Il1 sind Alt-0124, Groes i, kleines L, Eins ߎę֚񱸩=|
Const Author="REL.Bas v0181f 2007 by ytwinky, MD"'                                     |
'|           (Tastenkombination: keine)                                                 |
'|                                                                                      |
'|    Zweck : ein Geschenk fr Martin Wiemann :Remove Empty Lines^^                     |
'+--------------------------------------------------------------------------------------+
'(Anmerkung zu den Sonderzeichen: zuerst steht das DOS-Zeichen, danach das Windowszeichen)
Const False=0, True=Not FALSE
Dim As String DateiName, s="Bitte Dateiname angeben:", Msg=s, Source
Dim As Integer DNr=FreeFile
DateiName=Command(1)
If DateiName="" Then
    Do
        Print Msg
        Input "[Pfad]\Dateiname.Erw", DateiName
        If Dir(DateiName)="" Then Msg="Datei " &DateiName &!" nicht gefunden..\n" &s
    Loop Until Dir(DateiName)<>""
EndIf
?Author
Open Dateiname For Input As #DNr
    While Not Eof(DNr)
        Line Input #DNr, s
        If s<>"" Then Source+=s &!"\n"
    Wend
Close #DNr
Open DateiName &".Neu" For Output As #DNr
    Write #DNr, Source
Close #DNr
?"Eniki..";
Sleep
End