PDA

Visualizza la versione completa : problema con script vbs


deskob
03-06-2010, 18:11
salve a tutti avrei un problema con un script e non sono un programmatore
praticamente quello attuale legge i nomi dei file pdf in una cartella e crea un Excel con il criterio che legge : NOME - COGNOME - N POLIZZA
io vorrei aggiungere una colonna codice ma mi da sempre errore,
di seguito il programma esistente



' apre excel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add

' scorre la directory
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim Filter
Select Case WScript.Arguments.Count
Case 0: Filter = "." ' list current directory
Case 1: Filter = WScript.Arguments(0)
Case Else: WScript.Echo "Numero di parametri errato!": WScript.Quit
End Select

Set Folder = fso.GetFolder(Filter)
Dim Files: Set Files = Folder.Files

' intestazione
objExcel.Cells(1, 1).Value = "COGNOME"
objExcel.Cells(1, 2).Value = "NOME"
objExcel.Cells(1, 3).Value = "POLIZZA"

' loop lettura file PDF
Dim n : n = 2
Dim File, pos, pos2, pos3, cogn, nome, pol
For Each File In Files
If fso.GetExtensionName(File)="pdf" Then
pos = Instr(1,File.Name,"-")
cogn = left(File.Name, pos-1)
pos2 = Instr(pos+1, File.Name,"-")
pos3 = Instr(pos2+1, File.Name,".pdf")
nome = mid(File.Name,pos+1,pos2-pos-1)
pol = mid(File.Name,pos2+1, pos3-pos2)
objExcel.Cells(n, 1).Value = cogn
objExcel.Cells(n, 2).Value = nome
objExcel.Cells(n, 3).Value = pol
n = n + 1
end if
next

:




Grazie a tutti quelli che vorranno aiutarmi in questa cosa che forse semplice per gli addetti ai lavori

LeleFT
03-06-2010, 18:41
Ciao e benvenuto nel forum.
Alcune considerazioni:

1) C' un forum apposito per Visual Basic e figli: Visual Basic e .NET Framework
2) C' un regolamento interno (http://forum.html.it/forum/showthread.php?s=&threadid=973887) ad ogni sezione che va letto e spiega come aprire nuove discussioni (titoli, contenuti, posting del codice, ecc).
3) Come da regolamento succitato, necessario descrivere qual l'errore che si ottiene e non limitarsi a dire "mi d errore". E' necessario, altres, fornire quante pi informazioni possibili sul codice che genera l'errore (dove viene generato, se possibile)
4) Nondimeno, questo un forum rivolto ai programmatori. Quindi si suppone che chiede informazioni sia in grado di recepirle. Non si svolgono lavori a titolo gratuito in questo forum. Per la ricerca di collaborazioni c' il forum "Offro Lavoro / Collaborazione".

Ti invito, quindi, a riaprire una nuova discussione nell'area che ritieni pi opportuna ("Visual Basic e .NET Framework" o "Offro Lavoro / Collaborazione") seguendone il regolamento interno.


Ciao. :ciauz:

Loading