Oppure

Loading
17/11/07 16:18
giovanni_
come posso fare un programma che unisce due file?
aaa
17/11/07 16:48
LuigiBiasi
cosa intendi per unire due file???
cioè copiare il contenuto di un file al primo file, ottenendo un file ha il suo contenuto vecchio più il contenuto del secondo file?
Spiegati meglio.
Ciao.
aaa
17/11/07 17:52
antometal
per mettere 2 file in un terzo puoi fare cosi

dim parte as string * 1024
open filedest for random as 3
open xcorso1 for random as 1
open xcorso2 for random as 2
while eof(1)
get 1,,parte
put 3,,parte
loop
while eof(2)
get 2,,parte
put 3,,parte
loop
close


cosi ti unisce 2 file di seguito

è ciò che chiedevi?
aaa
17/11/07 18:19
LuigiBiasi
Quel codice contiene un po di errori.
Prima di tutto la sintassi è sbagliata:
è
While
...
Wend

e non
While 
...
loop

al massimo
do while
loop

e poi va negata l'espressione
while not eof(1)
...
wend

altrimenti non entra mai nel loop.
Ciao.
Ultima modifica effettuata da LuigiBiasi 17/11/07 18:19
aaa
17/11/07 18:22
LuigiBiasi
posso mostrarti un mio codice:
Dim c As String
c = Space(20)

Open "percorsofile1" For Input As 1
Open "percorsofile1" For Append As 2

While not EOF(1) 
Line Input #1, c
Print #2, c
Wend
Close 1
Close 2


l'ho testato funziona.
Copia il contenuto del primo file nel secondo.
Ciao.
Ultima modifica effettuata da LuigiBiasi 17/11/07 18:42
aaa