/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Sammenkopiering
Fra : Jan Damkjær Dahl


Dato : 10-01-02 18:30

hejsa

er der nogen der har en god metode til at sammenkopiere 2 filer i binær
form, som denne dos komando

copy /b fil1.xxx+fil2.xxx nyfil.xxx


--
mvh.
Jan Damkjær Dahl



 
 
Frank Bertelsen (11-01-2002)
Kommentar
Fra : Frank Bertelsen


Dato : 11-01-02 14:24

Hej Jan,

Her er en rimelig enkel løsning:

Dim Fil As Integer
Dim Buffer1 As String
Dim Buffer2 As String

Fil = FreeFile

'Indlæs data fra fil nr. 1
Open "fil1.xxx" For Binary As Fil
Buffer1 = Space(LOF(Fil))
Get Fil, , Buffer1
Close Fil

'Indlæs data fra fil nr. 2
Open "fil2.xxx" For Binary As Fil
Buffer2 = Space(LOF(Fil))
Get Fil, , Buffer2
Close Fil

'Udskriv data i outputfil
Open "nyfil.xxx" For Output As Fil
Print #Fil, Buffer1 & Buffer2;
Close Fil

Du skal lige være opmærksom på, at denne kode ikke "brokker sig" hvis
inputfilerne ikke findes - de bliver simpelthen oprettet fordi de åbnes binært.
Hvis du vi checke om filerne findes, må du starte med at åbne dem "For Input"
og så checke om det går godt ved hjælp af "On Error" kommandoen.



--
Posted via Mailgate.ORG Server - http://www.Mailgate.ORG

Jan Damkjær Dahl (11-01-2002)
Kommentar
Fra : Jan Damkjær Dahl


Dato : 11-01-02 14:30

ok jeg prøver

i den sammenhæng hvor jeg skal bruge det vælger jeg filerne med commondialog
så de vil altid findes.


"Frank Bertelsen" <fb@schultz.dk> skrev i en meddelelse
news:5eb1d714b686e87c71f58b48c088b378.8017@mygate.mailgate.org...
> Hej Jan,
>
> Her er en rimelig enkel løsning:
>
> Dim Fil As Integer
> Dim Buffer1 As String
> Dim Buffer2 As String
>
> Fil = FreeFile
>
> 'Indlæs data fra fil nr. 1
> Open "fil1.xxx" For Binary As Fil
> Buffer1 = Space(LOF(Fil))
> Get Fil, , Buffer1
> Close Fil
>
> 'Indlæs data fra fil nr. 2
> Open "fil2.xxx" For Binary As Fil
> Buffer2 = Space(LOF(Fil))
> Get Fil, , Buffer2
> Close Fil
>
> 'Udskriv data i outputfil
> Open "nyfil.xxx" For Output As Fil
> Print #Fil, Buffer1 & Buffer2;
> Close Fil
>
> Du skal lige være opmærksom på, at denne kode ikke "brokker sig" hvis
> inputfilerne ikke findes - de bliver simpelthen oprettet fordi de åbnes
binært.
> Hvis du vi checke om filerne findes, må du starte med at åbne dem "For
Input"
> og så checke om det går godt ved hjælp af "On Error" kommandoen.
>
>
>
> --
> Posted via Mailgate.ORG Server - http://www.Mailgate.ORG



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste