Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Programmazione

Notices

Rispondi
 
Strumenti discussione
Vecchio 01-06-2005, 12.52.29   #1
miciomao
Hero Member
 
L'avatar di miciomao
 
Registrato: 14-01-2005
Loc.: Rome, Italy
Messaggi: 1.132
miciomao promette bene
Importare + TXT in 1 solo

Ho una cartella contenente tot file TXT (circa 250 al mese) con dati assolutamente omogenei. Dovrei creare una procedura in VB che ne trasferisca il loro contenuto in un file TXT unico. Naturalmente i file hanno nomi diversi!

Qualcuno sa come?
Grazie ragazzi
___________________________________

♫ m u s i c ♪ i s ♫ t h e ♪ a n s w e r ♫
"Il più piccolo dei piccoli felini è già lui stesso un vero capolavoro". (Leonardo da Vinci)
Namasté!
miciomao non è collegato   Rispondi citando
Vecchio 01-06-2005, 13.16.03   #2
Gergio
Gold Member
 
Registrato: 14-06-2001
Loc.: LC
Messaggi: 2.415
Gergio promette bene
nn conosco VB, ma penso potresti procedere cosi':
- fai una lista dei nomi dei file che trovi nella directory
- apri un nuovo file in scrittura
- copi ogni file della lista nel nuovo file
___________________________________

Gergio non è collegato   Rispondi citando
Vecchio 01-06-2005, 13.17.22   #3
dave4mame
Jason
Top Poster
 
L'avatar di dave4mame
 
Registrato: 14-08-2002
Loc.: Non mi fate domande difficili...
Messaggi: 3.354
dave4mame promette bene
da prompt dos non "vale"?
dave4mame non è collegato   Rispondi citando
Vecchio 01-06-2005, 13.22.07   #4
Dav82
Gold Member
Top Poster
 
Registrato: 18-07-2002
Messaggi: 6.399
Dav82 promette bene
Quota:
Originariamente inviato da dave4mame
da prompt dos non "vale"?
(Y)

E se proprio proprio serve, da VB richiamare il batch relativo.
Dav82 non è collegato   Rispondi citando
Vecchio 01-06-2005, 13.42.35   #5
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne è un gioiello raroLoryOne è un gioiello raroLoryOne è un gioiello raro
Avendo 2 file in formato testo chiamati 1.txt e 2.txt, creo un file somma dei due:

Codice:
Private Sub Command1_Click()
hfile = FreeFile
Open "c:\Somma.txt" For Append As hfile
    Open "c:\1.txt" For Input As hfile + 1
        While Not EOF(hfile + 1)
            Line Input #hfile + 1, s
            Print #hfile, s
        Wend
    Close hfile + 1
    Open "c:\2.txt" For Input As hfile + 1
        While Not EOF(hfile + 1)
            Line Input #hfile + 1, s
            Print #hfile, s
        Wend
    Close hfile + 1
Close hfile
End Sub
Come vedi a te basta creare una procedura che necessiti come parametri l'handel del file di append, ed il nome del file da aprire.
Richiamerai la stessa procedura per tutti i file che dovrai appendere.

Ps: Leggi la guida di VB sui comandi Open ed Input #
LoryOne non è collegato   Rispondi citando
Vecchio 01-06-2005, 13.48.58   #6
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne è un gioiello raroLoryOne è un gioiello raroLoryOne è un gioiello raro
Quota:
Originariamente inviato da dave4mame
da prompt dos non "vale"?
E' un'idea ma quanti caratteri accetta la riga di comando di DOS ?
LoryOne non è collegato   Rispondi citando
Vecchio 01-06-2005, 14.25.31   #7
miciomao
Hero Member
 
L'avatar di miciomao
 
Registrato: 14-01-2005
Loc.: Rome, Italy
Messaggi: 1.132
miciomao promette bene
Bhè grazie a tutti....
Lory quella è in parte la soluzione che stavo cercando, il problema odioso infatti era di evitare in qualsiasi modo di andare a scrivere i nomi dei file in qualche modo, dato che ripeto, ogni mesi questi TXT cambiano nome di nuovo e variando anche di numero..
Preferirei scrivere 100 righe di codice in + piuttosto che inserire i nomi file a mano...

Grazie ancora ragazzi
___________________________________

♫ m u s i c ♪ i s ♫ t h e ♪ a n s w e r ♫
"Il più piccolo dei piccoli felini è già lui stesso un vero capolavoro". (Leonardo da Vinci)
Namasté!
miciomao non è collegato   Rispondi citando
Vecchio 01-06-2005, 15.48.22   #8
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne è un gioiello raroLoryOne è un gioiello raroLoryOne è un gioiello raro
Guarda che è molto meno complesso di quello che pensi.
Controlla nella guida anche il comando Dir$
LoryOne non è collegato   Rispondi citando
Vecchio 01-06-2005, 17.07.45   #9
Xtefano
Senior Member
 
L'avatar di Xtefano
 
Registrato: 03-09-2002
Loc.: Osimo (AN)
Messaggi: 489
Xtefano promette bene
Quota:
Originariamente inviato da LoryOne
Guarda che è molto meno complesso di quello che pensi.
Controlla nella guida anche il comando Dir$
Esatto: vogliamo mettere la FOR ??? (vedi FOR /?)
Quota:
if exist destinazione.txt del /f destinazione.txt

for %%A in (c:\directory\*.txt) do (
echo ***** FILE %%A >> destinazione.txt
type %%A >> destinazione.txt
echo. >> destinazione.txt
echo ********************** >> destinazione.txt
echo. >> destinazione.txt
)
Questo file batch semplicemente:
* elimina il file destinazione.txt se esiste
* per ogni file *.txt presente in c:\directory
- prepara una intestazione per indicare il file
- scrive il contenuto del file in coda a destinazione.txt
- pone una fila di asterischi come separatore

Attenzione: la variabile del FOR utilizzato al di fuori di un batch va scritta con una % sola anzichè due.


edit: un metodo ancora più idiota se non serve la formattazione è anche
copy c:\directory\*.txt destinazione.txt




HTH


Byez

Stefano
___________________________________

Le persone più felici, non necessariamente hanno il meglio di ogni cosa; soltanto traggono il meglio da ogni cosa che capita sul loro cammino.
Paulo Coelho (special thanks to Kyra)
Xtefano non è collegato   Rispondi citando
Vecchio 01-06-2005, 17.10.28   #10
dave4mame
Jason
Top Poster
 
L'avatar di dave4mame
 
Registrato: 14-08-2002
Loc.: Non mi fate domande difficili...
Messaggi: 3.354
dave4mame promette bene
io invece, che sono notoriamente un "grezzone" (C) babbalea, avrei proposto un

copy /b *.txt totale.asc
dave4mame non è collegato   Rispondi citando
Vecchio 01-06-2005, 17.31.52   #11
Dav82
Gold Member
Top Poster
 
Registrato: 18-07-2002
Messaggi: 6.399
Dav82 promette bene
Quota:
Originariamente inviato da dave4mame
io invece, che sono notoriamente un "grezzone" (C) babbalea, avrei proposto un

copy /b *.txt totale.asc
Esatto! Motivo del cui sopra "(Y)".

Se i file sono returnati a dovere (hanno un "a capo" a fine file ), è il metodo che provoca zero dico zero sbattimenti
Dav82 non è collegato   Rispondi citando
Vecchio 06-06-2005, 17.24.45   #12
miciomao
Hero Member
 
L'avatar di miciomao
 
Registrato: 14-01-2005
Loc.: Rome, Italy
Messaggi: 1.132
miciomao promette bene
Bueno,
risolto ho provato un pò tutti i metodi, adesso vedrò quale si adatta di + al programma, sembra che funzionino tutte molto bene.
Grazie a todos
___________________________________

♫ m u s i c ♪ i s ♫ t h e ♪ a n s w e r ♫
"Il più piccolo dei piccoli felini è già lui stesso un vero capolavoro". (Leonardo da Vinci)
Namasté!
miciomao non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
Un verso da una canzone che stai ascoltando.. Sbavi Chiacchiere in libertà 754 30-04-2009 17.42.21
[Excel 2003] solo numeri sugli assi crazy.cat Office suite 3 12-03-2008 11.03.44
I filtri stritolano il P2P Italiano, ma non solo Macao Segnalazioni Web 1 13-03-2007 16.03.18
Xp si riavvia......da solo daniele.a Windows 7/Vista/XP/ 2003 12 16-02-2005 10.28.33
PC che si riavvia da solo, SEMPRE... Giaky Hardware e Overclock 9 05-02-2005 11.07.45

Orario GMT +2. Ora sono le: 12.05.25.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.