Das alte Codearchive

DATA MAKER von ???

zum kleine dateien (< 200kb) in die exe compilieren

mfg Panno

[code:1:793c540f33]

InFile$ = CommandLine$()
Graphics 400,100,16,2
AppTitle "DATAMAKER 0.2 by Panno
If infile$="" Then
Print
Print "Please use DRAG/DROP to make an include file"
Print
Delay 2000
End
End If
size =FileSize(infile$)
a = Instr(infile$,".")
out$= Left$(infile$,a)+"DAT"
Locate 0,0
Print "SOURCE :"+infile$
Print
Print "FILESIZE :"+size+" Bytes"
Print
Print "OUTPUT :"+out$
VWait(1)
fileout= WriteFile(out$)
assi$= ".Datalabel ;" + out$
WriteLine fileout ,assi$
WriteLine fileout ,"; Restore to Datalabel and read Bytes "
WriteLine fileout,"Data " +((size))+"; Size"
s=0
filein = OpenFile (infile$)
While Not Eof(filein)
in$=in$+ (ReadByte(filein))+","
s=s+1
If s = 200 Then
s=0
a = Len(in$)
in$=Left$(in$,a-1)
WriteLine fileout,"Data "+in$
in$=""
End If
Wend
a = Len(in$)
in$=Left$(in$,a-1)
WriteLine fileout,"Data "+in$
CloseFile fileout
End

[/code:1:793c540f33]

===

von ???

Please use DRAG/DROP to make an include file???

===

von ???

sorry, hab den code jetzt nicht ganz gelesen, und hab auch rad wenig zeit zum probieren, kann mna auch mehrere ateien reinpacken?
in die Exe des entsprechenden Projektes, an dem man arbeitet/arbeotete?
oder nur eine datei?
bitte mehrere.......

Suche:
(unterstützt mySQL Wildcards ala %)