XProfan

Titre de la fenêtre "File2Long into Clipboard"
'(CL)CopyLeft 2014-03 by P.Specht, vienne. KEINE WIE AUCH IMMER GEARTETE GEWÄHR!
var DrivePathFilename$="TESTSELF.PRF"
declare i&,z$:Fenêtre 0,0-%maxx,%maxy-40

ifnot FileExists(DrivePathFilename$):imprimer " *** File not found *** "

    d'autre :Assign #1,DrivePathFilename$:OpenRW #1:ClearClip
    z$="var v$="+chr$(34)+chr$(34):imprimer z$:putclip z$+"\n"
    Repeat :imprimer "v$=v$+"+chr$(34);:putclip "v$=v$+"+chr$(34)

    whilenot eof(#1):inc i&:z$="$"+right$("00000000"+hex$(GetLong(#1)),8)

        imprimer z$;:putclip z$

        si (i& MOD 8) and not(eof(#1)) :imprimer »;:putclip »

            d'autre :imprimer chr$(34):putclip chr$(34)+"\n":pause
            endif :endwhile

        until eof(#1):Fermer #1:font 2:imprimer "\n\n CLIPBOARD READY."

        endif :WaitInput 60000:Fin