XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei in die Zwischenablage kopieren
Lauffähig ab Profan-Version 5.0
Beispiel um Strings im Clipboard anzuhängen - DATEI in CLIP
Normalerweise geht es nur ein Zeile ins Clipboard einzufügen.
Hiermit wird dies umgangen :))))
Anstatt PutClip XYZ$ einfach FILE2CLIP Datei aufrufen!
(c) by Rolf Koch - Rokosoft - Koblenz März 2003
www.rokosoft.de - webmaster@rokosoft.de
Declare clip$,retdatei% Wichtig fürs Programm
WindowTitle CLIP - Inhalt einer Datei ins Clipboard einfügen
WindowStyle 31
SetTrueColor 1
Window 0,0-640,480
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1

PROC FILE2CLIP

    PARAMETERS FILE$
    ClearClip
    Assign #1,FILE$
    RESET #1
    retdatei% = %IOResult
    input #1,clip$
    PutClip clip$

    Whilenot eof(#1)

        input #1,clip$
        PutClip add$(chr$(10),clip$)
        print clip$ 	Diese Zeile dient nur zur Demonstration und bremst den Vorgang.
        Sie sollte im fertigen Programm unbedingt wieder entfernt werden!

    wend

    CLOSE #1
    Return retdatei%

ENDPROC

FILE2CLIP add$($winpath,WIN.INI) DER AUFRUF - GANZ EINFACH ;)
retdatei%=@$(0) um auf Existenz der Datei abzufragen

IF retdatei%

    Messagebox(DATEI NICHT VORHANDEN,FEHLER,4112)
    END

else

    Messagebox(Der Inhalt der Datei wurde in das Clipboard kopiert und kann nun vom Programm weiter verwendet werden.,INFO,4160)

../function-references/XProfan/endif/'>Endif