Windows Vista Forums
Vista Forums Home Join Vista Forums Windows 7 Forum Vista Tutorials Tags
Welcome to Windows Vista Forums. Our forum is dedicated to helping you find solutions with any problems, errors or issues you are experiencing with Windows Vista. The Vista forum also covers news and updates and has an extensive Windows Vista tutorial section that covers a wide range of tips and tricks.

Go Back   Vista Forums > Misc Newsgroups > VB Script

Vista - Query csv and return all entries within last x days

Reply
 
Old 07-17-2008   #1 (permalink)
tstar31


 
 

Query csv and return all entries within last x days

I have a comma delimited file in the following format:
Computer Name,Time Date,Time Zone,Action
Workstation1,11/8/2007 12:03:34 PM,Central Standard Time,Executed Logon Script
Workstation1,11/8/2007 12:13:33 PM,Central Standard Time,Executed Logoff
Script

I am attempting to write a script that will parse this txt file and return
only the entire line for those entries that have occured within the last 30
days
Any assistance would be most appreciated.
Thanks in advance
Todd Starling


My System SpecsSystem Spec
Old 07-17-2008   #2 (permalink)
Old Pedant


 
 

RE: Query csv and return all entries within last x days

> I have a comma delimited file in the following format:
Quote:

> Computer Name,Time Date,Time Zone,Action
> Workstation1,11/8/2007 12:03:34 PM,Central Standard Time,Executed Logon Script
> Workstation1,11/8/2007 12:13:33 PM,Central Standard Time,Executed Logoff
> Script
>
> I am attempting to write a script that will parse this txt file and return
> only the entire line for those entries that have occured within the last 30
> days
You don't need/want to "parse" the file. You want to let the JET OLEDB
driver do that for you.
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\path\to\DIRECTORY\only\;" & _
"Extended Properties=""text;HDR=Yes;FMT=Delimited"""
'Then use SQL to find the relevant records:
SQL "SELECT * FROM nameOfFile.csv WHERE DateValue([Time Date]) >= DATE()-30"
Set RS = conn.Execute( SQL )
Do Until RS.EOF
Response.Write RS("Computer Name") & ": " & RS("Time Date") ... etc. ...
RS.MoveNext
Loop
RS.Close
conn.Close
%>

My System SpecsSystem Spec
Reply

Thread Tools


Similar Threads
Thread Forum
How to combine/return multiple values from a sql query VB Script
Query user id return computer name PowerShell
split source file into many files with 100 entries each to feedscripts that runs wmi query agains machines PowerShell
Re: A REG QUERY that does not return "ERROR" when key not found VB Script


Vista Forums is an independent web site and has not been authorized,
sponsored, or otherwise approved by Microsoft Corporation.
"Windows Vista", the Start Orb, and related materials are trademarks of Microsoft Corp.
© Designer Media Ltd

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