
Moderatori: Dylan666, hydra, gahan
<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>
variabile da utilizzare per tanti file Autore: giorgioa |
Forum: Applicazioni Office Windows Risposte: 8 |
formula che conta erroneamente celle "vuote" Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: riferimento ultima riga piena da file esterno Autore: Eko1 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 35 ospiti