|
Creato da developer.web il 14/03/2014
Web Developer
|
Chi puņ scrivere sul blog
Solo l'autore puņ pubblicare messaggi in questo Blog e tutti gli utenti registrati possono pubblicare commenti.
Area personale
- Login
Menu
I miei link preferiti
Cerca in questo Blog
Tag
« VBScript Cercare stringa... |
VBScript Elencante VBS v 2.0
' ElencanteVBS v 3.0 Set oggetti = WScript.Arguments Dim conta, inizio, serie, pois, a, z, msg conta = oggetti.Count If conta = 0 Then MsgBox "Devi trascinare qui, col mouse, i files da rinominare!",0,"Uso sbagliato" WScript.Quit ElseIf conta = 1 Then MsgBox "Richiesto un numero minimo di 2 files selezionati per procedere!",0,"Uso sbagliato" WScript.Quit End If inizio = InputBox("Indicare il numero di partenza:", "Selezionati " & conta & " files", 1) If inizio = false Then MsgBox "Operazione deliberatamente annullata!",0,"Operazione annullata!" WScript.Quit End If If IsNumeric(inizio) = false Then MsgBox "Era richiesto un valore numerico positivo.",0,"Operazione annullata!" WScript.Quit Else If inizio < 0 Then MsgBox "Era richiesto un valore numerico positivo.",0,"Operazione annullata!" WScript.Quit End If End If serie = (inizio - 1) + conta pois = Len("S" & serie) - 1 a = Mid("S" & ((10 ^ pois) + inizio), 3) z = Mid("S" & ((10 ^ pois) + serie), 3) msg = InputBox("Inserire il nome ricorsivo dei files:" & VbCrlf & VbCrlf & "( il valore $ verra' sostituito dalla cifra crescente )", "Lista Files dalla cifra '" & a & "' alla cifra '" & z & "'", "NomeFile$.*") If msg = false Then MsgBox "Operazione deliberatamente annullata!",0,"Operazione annullata!" WScript.Quit End If If InStr(msg, "$") = 0 Then MsgBox "Era richiesto il simbolo $ come punto di inserzione del valore numerico crescente.",0,"Operazione annullata!" WScript.Quit End If Dim n, d, e, p, c, u, cartella, exo, ext, Fso d = InStrRev(msg, ".") u = Mid(msg, d+1) e = Mid(msg, 1, d-1) Set Fso = WScript.CreateObject("Scripting.FileSystemObject") For I = 0 to conta - 1 c = InStrRev(oggetti(I), "") cartella = Mid(oggetti(I), 1, c) p = InStrRev(oggetti(I), ".") exo = Mid(oggetti(I), p+1) ext = u If u = "*" Then ext = exo If u = "-" Then ext = LCase(exo) If u = "+" Then ext = UCase(exo) n = Mid("S" & ((10 ^ pois) + inizio + I), 3) Fso.MoveFile oggetti(I), cartella & Replace(e, "$", n) & "." & ext 'MsgBox oggetti(I) & VbCrlf & VbCrlf & cartella & Replace(e, "$", n) & "." & ext, 0, "prova" & I Next MsgBox "Operazione terminata!", 0, "Fine"
|