'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)
Endif