Condividi:        

Creare un file di "userdefinited" dimensione

Hai problemi con i file Zip, vuoi formattare l'HD, non sai come funziona FireFox? O magari ti serve proprio quel programmino di cui non ricordi il nome! Ecco il forum dove poter risolvere i tuoi problemi.

Moderatori: Dylan666, hydra, gahan

Creare un file di "userdefinited" dimensione

Postdi BianConiglio » 19/08/02 00:25

Se volessi creare un file di una certa ( predefinita ) dimensione, come posso fare ? Mi sembrava si potesse fare e che fosse semplice..ma è tardi e non ho voglia di pensare... Chi mi da una mano ? :D
BianConiglio
Utente Senior
 
Post: 4710
Iscritto il: 26/12/01 01:00
Località: Varese / Lugano

Sponsor
 

Postdi piercing » 19/08/02 00:40

un bello script che scrive un tot numero di caratteri su un file non và bene?

(ma che diamine ci dovrai fare co sta roba!!! sempre te!! :lol: )
Avatar utente
piercing
Moderatore
 
Post: 7569
Iscritto il: 10/04/02 10:34
Località: Roma

Postdi zello » 19/08/02 16:03

Io, per dimensioni < 64 kilobytes, di solito faccio così:

- Apro un prompt dei comandi
- do un bel "debug"
- al prompt di debug, do un bel "r cx" (senza virgolette)
- indico, su quattro cifre ed in esadecimale, la dimensione del file
- al nuovo prompt di debug, do "n <nome del file" (nota: il nome del file è uno squallido 8+3 alla dos, non è colpa mia se debug è stato scritto ai tempi del dos 2.0 e mai aggiornato...)
- do w per salvare il file
- do q per uscire da debug.

Si può naturalmente fare qualcosa di più carino con uno script vbs.

Ciao,

--
zello
Avatar utente
zello
Moderatore
 
Post: 2351
Iscritto il: 06/05/02 13:44

Postdi piercing » 19/08/02 16:46

Visto che non c'ho na mazza da fare (pare vero!! dovevo finire lo sviluppo di un progettino moooolto simile...) beccati questo....

Copialo in un file .htm e buon divertimento... per usarlo aprilo in explorer e ovviamente abilita l'interazione degli ActiveX...

;)

Codice: Seleziona tutto
<html>
<head>
   <script language="VbScript">
   sub createfile
      if checkform then
         Set fso = CreateObject("Scripting.FileSystemObject")
         Set ts = fso.OpenTextFile(filename.value, 2, True)
         for i = 1 to dimension.value
            ts.Write(0)
         next
         Set ts = Nothing
         Set fso = Nothing
         msgbox("Missione Compiuta!")
      end if   
   end sub
   function checkform
      checkform = true
      if filename.value = "" then
         msgbox("Inserisci un nome di file")
         checkform = false
      end if      
      if not isNumeric(dimension.value) then
         msgbox("Inserisci un valore numerico")
         checkform = false
      end if
   end function
   </script>
   <title>Only for BC</title>
</head>
<body bgcolor="LightGrey">
<font face="MS Sans Serif" size="-2">

<div style="position: relative; top:20px; left:10px; width:610px; height:50px; border-width:1px 1px 1px 1px; border-style: solid; border-color: black;">
   <div style="position: relative; top:-8px; left:5px; width:200px; height:16px; background-color:white; border:1px solid black;">
      Seleziona percorso e nome del file
   </div>
   <div style="position: relative; top:2px; left:5px;">
      <input type="file" id="filename" style="width:600px; font-face: MS Sans Serif; font-size:7pt;">
   </div>   
</div>
<div style="position: relative; top:20px; left:10px; width:610px; height:50px; border-width:0px 1px 1px 1px; border-style: solid; border-color: black;">
   <div style="position: relative; top:-8px; left:5px; width:200px; height:16px; background-color:white; border:1px solid black;">
      Dimensione del file (bytes)
   </div>
   <div style="position: relative; top:2px; left:5px;">
       <input type="text" id= "dimension" style="width:600px; font-face: MS Sans Serif; font-size:7pt;">
   </div>   
</div>
<div style="position: relative; top:20px; left:10px; width:610px; height:50px; border-width:0px 1px 1px 1px; border-style: solid; border-color: black;"">
   <div style="position: relative; top:12px; left:5px;">
      <input type="button" id="clickme" style="width:600px; font-face: MS Sans Serif; font-size:7pt;" value="Elabora" onclick="call createfile">
   </div>   
</div>
</font>
</body>
</html>


E NON FARE DANNI SCRIVENDO SU UN FILE DI SISTEMA (il file crealo prima... magari vuoto!! eheh) !!! CHE POI TE LA PRENDI CON ME!!! :D
Ultima modifica di piercing su 19/08/02 17:28, modificato 1 volte in totale.
Avatar utente
piercing
Moderatore
 
Post: 7569
Iscritto il: 10/04/02 10:34
Località: Roma

Postdi zello » 19/08/02 16:49

Tipo questo:

args=WScript.Arguments;
if(args.count()==2)
{
fs = new ActiveXObject( "Scripting.FileSystemObject" );
fs.CreateTextFile( args.Item(0) );
os = fs.GetFile(args.Item(0) );
os = os.OpenAsTextStream(2,0);
for(n=0;n<args.Item(1);++n)
os.write( "a" );
os.close();
}
else
{
WScript.Echo("Usage: <prog> <filename> <lenght>\nCreate a file named <filename> of <lenght> bytes\n");
}

Salvalo come "qualcosa.js". Prende due argomenti: il nome del file e la lunghezza

Disclaimer: mai usato jscript in vita mia prima...

Ciao,

--
zello
Avatar utente
zello
Moderatore
 
Post: 2351
Iscritto il: 06/05/02 13:44

Postdi piercing » 19/08/02 16:53

zello... comunione d'intenti??? eheheh :lol:
Avatar utente
piercing
Moderatore
 
Post: 7569
Iscritto il: 10/04/02 10:34
Località: Roma

Postdi BianConiglio » 19/08/02 18:55

Bè, grazie ad entrambi :D
BianConiglio
Utente Senior
 
Post: 4710
Iscritto il: 26/12/01 01:00
Località: Varese / Lugano


Torna a Software Windows


Topic correlati a "Creare un file di "userdefinited" dimensione":


Chi c’è in linea

Visitano il forum: Nessuno e 250 ospiti