Pakke ind i en File!

Man kunne lave noget lignende

DIM storfil

storfil = filnavn1 & vbcrlf & fil1 & vbcrlf & "#0123456789#" & vbcrlf
storfil = storfil & filnavn2 & vbcrlf & fil2 & vbcrlf & "#0123456789#" & vbcrlf
osv.

Hvor man kan vælge en vilkårlig adskildelse mellem filerne.

Peter

Hej Peter.

Mange tak for din kode, jeg kan godt se hvad du mener.
kan jeg få dig til at lave en komplet kode, jeg kan godt se hvad du lavwer men jeg forstår ik helt hvordan du vil få den ud igen, jeg kender ikke koden " vbcrlf"
men det ser rigtigt nok ud.

M.I.X

>>mix vbcrlf betyder bare ny linje

>>127144146281
Oki... nu er så med.
det nu giver koden lidt mere logik.
hvad er så forskellen på VbCrlf og VbNewLine ?


>>Peter
jeg fatter endnu ikke, hvordan jeg får filen ud igen.
Jeg mener jeg kan da gopdty læse Storfil ind linevis også skille filerne fra hianden. ved at når den når til #123456789# så skalæ den skrive til en nye file hvor navnet er næste linje.
Men, den del jeg ikke fatter er hvis jeg nu har lagt en gif file eller jpg eller anden file ind i den store fil.
så vil filen ikke være gyldig.
men skal jeg da bruge en anden værdi end string ?

for hvis man åben en file i notepad f.eks.
Mig.exe og kigger på den og gemmer den nu som dig.exe
så vil filen ikke være gyldig mere.

så derfor kan jeg ikke se hvordan man får filen ud igen.
M.I.X

Notepad gemmer den som ascci, men en EXE fil skal være gemt som byte, su kan f.eks godt gemme en exe fil med et andet navn med en HEX editor

127144146281>>
Hmmm.. oki vil det sige jeg skal læse filen ind som HEX ?
Og gemme filen igen som HEX ?

Nu ike for at lyde som en Total tåbe, men jeg har ikke rodet med denne del af vb før.
Men vil det virke hvis jeg læser hele filen ind en string.
dele filen op i forskellige strings en for hver file der er i min Storfile.
og til sidste laver alle strings om til HEX og gemme dem, som de filer de normalt er ??.

Jeg forstår godt hvis du ikke fatter hvad jeg mener men jeg håber bare du gør *GG*

M.I.X

Nope du skal ikke bruge HEX, men en HEX editor kan ændre filen så den stadig virker, så først skal du glemme alt det jeg skrev om HEX, da det ikke er relavant her.

Men du skal læse filen som byte (ikke som en String)

127144146281 >>

Oki jeg har prøvet lidt af hver nu !
og jeg kan sgu ik få det til at virke.

Hvis du kan en kode til at få det til at virke.

Så vil jeg være lykkelig..

du får selvfølig Pointne for det.

M.I.X

Beklager det gør jeg ikke, jeg ska dog nok lige kikke efter det

Oki jeg har fundet ud af hvordan man gør det.

Man skal bare et par lange nætter *G*
Men for dem der er har interressen for det, kan bruge føælgende metode.

Pakke en file ind i en ny file:

Option Explicit
Dim OutputFile, IndputFile as String
Dim Linjer as Long

Open "IndputFile" for binary as #1
Open "OutputFile" for binary as #2

Outputfilen = space(LOF(1))
Get#1,,Outputfile
Put#2,,Outputfile
Linjer = Seek(1)
Close#1
Close#2

Nu kan du se hvormange linjer Filen er på i den nye file.

Når du så skal hente filen igen
Kan du bruge din Info fra Linjerne.
Lad os antag at filen er på 52689 linjer

Option Explicit
Dim OutputFile, IndputFile as String
Dim Linjer as Long
Open "IndputFile" for binary as #1
Open "OutputFile" for binary as #2
Linjer = 1
Do until Linjer = 52689
Outputfilen = space(LOF(1))
Get#1,Linjer,Outputfile
Put#2,Linjer,Outputfile
Loop
Close#1
Close#2


Hilsen
M.I.X
Så aDmin Hvis du gider lukke Mit Spørgsmål Tak.

jeg fandt selv en metode der virkede
MIX

Pakke en file ind i en ny file:

Option Explicit
Dim OutputFile, IndputFile as String
Dim Linjer as Long

Open "IndputFile" for binary as #1
Open "OutputFile" for binary as #2

Outputfilen = space(LOF(1))
Get#1,,Outputfile
Put#2,,Outputfile
Linjer = Seek(1)
Close#1
Close#2

Nu kan du se hvormange linjer

sådan når man selv løser problemet så pointer man så selv *G*
M.I.X