Come cambiare i nomi dei file?<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Ciao a tutti,
In precedenza ho chiesto come estrarre i file e funziona alla grande!Ora voglio utilizzare questi file, ma i file vengono salvati con ".pda-iv" (i file provengono da un analizzatore di parametri B1506).Nel mio script per aprire il file (ronFolder = Open(directory || nomedispositivo || "\" || "RDS-ID.pda-iv");), ricevo un errore "Errore con il file: percorso non valido".
C'è un modo per cambiare il nome del file?Ad esempio, invece di RDS-ID.pda-iv, impostalo come RDS-ID.text.
Ecco il mio codice da come ho estratto i file:
/* 1) Questo script presuppone che tutti i file all'interno dei file zippati siano file di testo.
2) Assicurarsi che nella directory siano presenti solo file zippati (ovvero, solo file zippati della scheda tecnica B1506A)*/
directory = Scegli Directory () ; //Scegli la directory in cui si trovano le cartelle zippate
filesInDirectory = File nella directory ( directory ) ; //ottiene l'elenco dei file nella directory
nFile = N articoli ( filesInDirectory ) ; //ottiene il numero di file zip nella directory
Per ( io = 1 , io <= nFile , io ++,
nome del file = filesInDirectory [ io ] ; //seleziona il file nell'elenco di
/********Determina il nome del dispositivo************/
pos = Contiene ( nome del file , "_" ) ; ///(nome file di esempio: GS66508T 65R6 #1_7-19-2016_11-04-28_AM.pda-ds)
nome del dispositivo = Sinistra ( nome del file , pos - 1 ) ;
/****************************************/
/*******Crea una sottodirectory per i file estratti.
Assicurati che sia in una directory separata da tutti i file zippati*****/
sottodir = "C:\Dati R&D\TSMC\E-HEMT\GS66508T\GS66508T estrazioni 65R6\" || nome del dispositivo || "\" ;
Crea directory ( sottodir ) ;
/**************************************************** ************************/
za = Aprire ( directory || nome del file , cerniera lampo ) ; //Apre la cartella compressa
dirlist = za << dir ; //Ottiene l'elenco dei file nella cartella compressa
nZippedFiles = N articoli ( dirlist ) ; //ottiene il numero di file nella dirlist
/*Scorri la lista dirlist e salva ogni file di testo nella nuova sottodirectory*/
per ( K = 1 , K <= nZippedFiles , K ++,
Se ( Giusto ( dirlist [ K ] , 4 ) == ".TXT" ,
testo = za << Leggere ( dirlist [ K ]) ;
Salva file di testo ( sottodir || dirlist [ K ] , testo ) , ) ;
) ;
/**************************************************** ***********************/
) ;
Ri: Come cambiare i nomi dei file?Fatto!È stato davvero semplice.Non sono sicuro del motivo per cui sono rimasto bloccato sulla funzione Salva file di testo.
/* 1) Questo script presuppone che tutti i file all'interno dei file zippati siano file di testo.
2) Assicurarsi che nella directory siano presenti solo file zippati (ovvero, solo file zippati della scheda tecnica B1506A)*/
directory = Scegli directory (); //Scegli la directory in cui si trovano le cartelle zippate
filesInDirectory = File nella directory(directory); //ottiene l'elenco dei file nella directory
nFiles = N Elementi(fileInDirectory); //ottiene il numero di file zip nella directory
For(i=1, i<=nFile, i++,
nomefile = fileInDirectory ; //seleziona il file nell'elenco di
/********Determina il nome del dispositivo************/
pos = Contiene(nomefile, "_"); ///(nome file di esempio: GS66508T 65R6 #1_7-19-2016_11-04-28_AM.pda-ds)
nomedispositivo = left(nomefile,pos-1);
/****************************************/
/*******Crea una sottodirectory per i file estratti.
Assicurati che sia in una directory separata da tutti i file zippati*****/
subDir = "C:\R&D Data\TSMC\E-HEMT\GS66508T\GS66508T 65RG nuove estensioni\" || nomedispositivo || "\";
Crea directory(sottodir);
/**************************************************** ************************/
za = Open(directory || nomefile, zip); //Apre la cartella compressa
listadir = za << dir; //Ottiene l'elenco dei file nella cartella compressa
nZippedFiles = N Elementi(dirlist); //ottiene il numero di file nella dirlist
/*Scorri la lista dirlist e salva ogni file di testo nella nuova sottodirectory*/
for(k=1, k<=nZippedFiles , k++,
Se(Destra(dirlist,4) == ".txt",
testo = za << leggi (dirlist);
nomefileZip = listadir;
pos = Contiene(nomefileZip, ".");
nuovoNomeFile = Left(NomeFileZip, pos-1);
nuovoNomeFile = nuovoNomeFile || ".TXT";
Salva file di testo(subDir || newFileName, text),);
);
/**************************************************** ***********************/
);
Ri: Come cambiare i nomi dei file?Strano, posso aprirli manualmente ma non riesco a far funzionare lo script?
