Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - unire due file
Forum - Visual Basic 6 - unire due file

Avatar
giovanni_ (Normal User)
Newbie


Messaggi: 7
Iscritto: 12/11/2007

Segnala al moderatore
Postato alle 17:18
Sabato, 17/11/2007
come posso fare un programma che unisce due file?

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 17:48
Sabato, 17/11/2007
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.

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 18:52
Sabato, 17/11/2007
per mettere 2 file in un terzo puoi fare cosi

Codice sorgente - presumibilmente VB.NET

  1. dim parte as string * 1024
  2. open filedest for random as 3
  3. open xcorso1 for random as 1
  4. open xcorso2 for random as 2
  5. while eof(1)
  6. get 1,,parte
  7. put 3,,parte
  8. loop
  9. while eof(2)
  10. get 2,,parte
  11. put 3,,parte
  12. loop
  13. close



cosi ti unisce 2 file di seguito

è ciò che chiedevi?

PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 19:19
Sabato, 17/11/2007
Quel codice contiene un po di errori.
Prima di tutto la sintassi è sbagliata:
è
Codice sorgente - presumibilmente Visual Basic 6

  1. While
  2. ...
  3. Wend


e non
Codice sorgente - presumibilmente Visual Basic 6

  1. While
  2. ...
  3. loop


al massimo
Codice sorgente - presumibilmente Visual Basic 6

  1. do while
  2. loop


e poi va negata l'espressione
Codice sorgente - presumibilmente Visual Basic 6

  1. while not eof(1)
  2. ...
  3. wend


altrimenti non entra mai nel loop.
Ciao.

Ultima modifica effettuata da LuigiBiasi il 17/11/2007 alle 19:19
PM Quote
Avatar
LuigiBiasi (Normal User)
Expert


Messaggi: 237
Iscritto: 15/09/2006

Segnala al moderatore
Postato alle 19:22
Sabato, 17/11/2007
posso mostrarti un mio codice:
Codice sorgente - presumibilmente VB.NET

  1. Dim c As String
  2. c = Space(20)
  3.  
  4. Open "percorsofile1" For Input As 1
  5. Open "percorsofile1" For Append As 2
  6.  
  7. While not EOF(1)
  8. Line Input #1, c
  9. Print #2, c
  10. Wend
  11. Close 1
  12. Close 2


l'ho testato funziona.
Copia il contenuto del primo file nel secondo.
Ciao.

Ultima modifica effettuata da LuigiBiasi il 17/11/2007 alle 19:42
PM Quote