Fråga : DOS & Vbs

Hi

Iam som har en vinande, sparar. Skriva måste att göra efter works
1) som den behöver att dra ned blixtlåset på, att file
2) under sparar, många .csv sparar är present.
3) skrivar måste att läsa varje, & varje spara, och den behöver grep daterar i sparar, slutsumman fodrar i sparar, och den bör omdirigeras till another sparar. Alla sparar tillverkat bör behöva att vara fästar i 1 ska tillverkade file.


This är tufft att göra i DOS.So-vbs skrivar kan göra detta lättare arbete. Förklara briefly.
, som iam som är ny till vbs, behar " klar "

Svar : DOS & Vbs

försök nu:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

pathToZipFile= " C:\temp\test.zip ",
extractTo= " C:\temp\unzip ",

uppsättning fs = CreateObject (”Scripting.FileSystemObject”)
fastställd objLog = fs.CreateTextFile (”c:\temp\output.log”)
	
Dunkel oShell
Fastställd oShell = WScript.CreateObject (”WScript.Shell”)
oShell.run ”cmd/c mkdir” & extractTo
Fastställd oShell = ingenting

Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
Fastställd mapp = fso.getfolder (extractTo)
För varje som är oFile i  mapp. Sparar
	(riktig) oFile.Delete,
Därefter

uppsättning sa = CreateObject (”Shell.Application”)
uppsättning ns = (pathToZipFile) sa.NameSpace,
fastställd filesInzip = ns.items
sa.NameSpace (extractTo) .CopyHere (filesInzip) 

EnumCSV extractTo

objLog.Close

underEnumCSV (targetdir)
	Dunkel fso
	Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
	Fastställd mapp = fso.getfolder (targetdir)
	För varje spara i Folder.Files
		Om fso.GetExtensionName (spara), = " csv " därefter
			ParseCSV (spara),		
		Avsluta om
	Därefter
avsluta suben

sub (csv_file) ParseCSV,
	uppsättning fs = CreateObject (”Scripting.FileSystemObject”)
	fastställdt objTextFile = (csv_file) fs.OpenTextFile,
	dunkel arrStr, fodrar, lastdate, lasttime
	lines=0
	
	Gör stunder INTE objTextFile.AtEndOfStream
		arrStr = splittring (objTextFile.ReadLine, ”,”)
		lines=lines+1
	Kretsa
	
	lastdate = byter ut (arrStr (0), """", "")
	lasttime = byter ut (arrStr (1), """", "")
	
	objLog.WriteLine ”sparar: ” & csv_file
	den objLog.WriteLine-”slutsumman fodrar: ” & fodrar
	sist objLog.WriteLine ”daterar: ” & lastdate
	objLog.WriteLine-”sista gång: ” & lasttime
	objLog.WriteLine
	objTextFile.Close
avsluta suben
Andra lösningar  
 
programming4us programming4us