E
Eric
I try to insert some data in my table name customer(Customer_Name,
Street, Account_No) from data:
[Customer's Name]
[Street]
[Account Number]
How to i do that needs help
-----------------------------------------------------
Set con = Server.CreateObject("ADODB.Connection")
sConnection ="Provider=MSDASQL.1;Persist Security Info=False;Data
Source=emp1"
con.Open(sConnection)
Function EnumerateFolder( sFolder )
Dim fso, ts, data
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.Getfolder ( server.mappath(sfolder) )
For each fil in fol.files
Set customer = CreateObject("Scripting.Dictionary")
Set ts = fil.openastextstream(1)
ary = Split(ts.ReadAll(),"[")
ts.Close
For i = 1 to Ubound(ary)
data = Split(ary(i),"]")
customer.Add data(0), data(1)
Next
next
End Function
EnumerateFolder "c:\txt"
Function test(s)
Select Case s
Case "[Dat"
test = True
Case "[Nov"
test = True
Case "[Sub"
test = True
Case "[Cus"
test = True
Case "[Str"
test = True
Case "[Cit"
test = True
Case "[Acc"
test = True
Case "[Ins"
test = True
Case "[Las"
test = True
Case "[PPV"
test = True
Case "[Mon"
test = True
Case "[Cur"
test = True
Case "[Typ"
test = True
Case "[Lan"
test = True
Case "[CRC"
test = True
Case "[Eve"
test = True
Case "[Sum"
test = True
Case "[Box"
test = True
Case "[MD"
test = True
Case "[Con"
test = True
End Select
End Function
-----SAMPLE DATA-----
[Date]
Sat Aug 05 14:06:12 EDT 2006
[Novell ID]
NSMITH4
[Subject]
PPV / VOD Research - Dispute - 1st Time - 711579
[Customer's Name]
EDWARD CAMPBELL
[Street]
5 WHEELER AVE APT 2
[City, State, Zip]
BRIDGEPORT CT, 06606
[Account Number]
006-0416-08
[Install Date]
06/21/2001
[Last Known Event Date]
06/29/2006
[PPV Hold]
No
[Monthly Rate]
186.52
[Current Services]
Optimum Voice
OOL FamilyorAbv
OR$20Discount
iO Silver Pkg
iO Box
PPOF
Addset: C/Rdy
OV World Call
OV Ported Number
[Type of Request]
Dispute - 1st Time
[Language]
English
[CRC PIN Instructions]
Yes
[Event Numbers/Date Range]
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28
[Summary]
cust states that they and no one in the household ever
ordered those ppv movies.cust requesting credit of
$35.80.
[Box Verification by Customer]
2,SABKDTHBF,Yes,Yes,Yes,Yes
[MD Page ID]
1
[Control Number]
651789
Street, Account_No) from data:
[Customer's Name]
[Street]
[Account Number]
How to i do that needs help
-----------------------------------------------------
Set con = Server.CreateObject("ADODB.Connection")
sConnection ="Provider=MSDASQL.1;Persist Security Info=False;Data
Source=emp1"
con.Open(sConnection)
Function EnumerateFolder( sFolder )
Dim fso, ts, data
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.Getfolder ( server.mappath(sfolder) )
For each fil in fol.files
Set customer = CreateObject("Scripting.Dictionary")
Set ts = fil.openastextstream(1)
ary = Split(ts.ReadAll(),"[")
ts.Close
For i = 1 to Ubound(ary)
data = Split(ary(i),"]")
customer.Add data(0), data(1)
Next
next
End Function
EnumerateFolder "c:\txt"
Function test(s)
Select Case s
Case "[Dat"
test = True
Case "[Nov"
test = True
Case "[Sub"
test = True
Case "[Cus"
test = True
Case "[Str"
test = True
Case "[Cit"
test = True
Case "[Acc"
test = True
Case "[Ins"
test = True
Case "[Las"
test = True
Case "[PPV"
test = True
Case "[Mon"
test = True
Case "[Cur"
test = True
Case "[Typ"
test = True
Case "[Lan"
test = True
Case "[CRC"
test = True
Case "[Eve"
test = True
Case "[Sum"
test = True
Case "[Box"
test = True
Case "[MD"
test = True
Case "[Con"
test = True
End Select
End Function
-----SAMPLE DATA-----
[Date]
Sat Aug 05 14:06:12 EDT 2006
[Novell ID]
NSMITH4
[Subject]
PPV / VOD Research - Dispute - 1st Time - 711579
[Customer's Name]
EDWARD CAMPBELL
[Street]
5 WHEELER AVE APT 2
[City, State, Zip]
BRIDGEPORT CT, 06606
[Account Number]
006-0416-08
[Install Date]
06/21/2001
[Last Known Event Date]
06/29/2006
[PPV Hold]
No
[Monthly Rate]
186.52
[Current Services]
Optimum Voice
OOL FamilyorAbv
OR$20Discount
iO Silver Pkg
iO Box
PPOF
Addset: C/Rdy
OV World Call
OV Ported Number
[Type of Request]
Dispute - 1st Time
[Language]
English
[CRC PIN Instructions]
Yes
[Event Numbers/Date Range]
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28
[Summary]
cust states that they and no one in the household ever
ordered those ppv movies.cust requesting credit of
$35.80.
[Box Verification by Customer]
2,SABKDTHBF,Yes,Yes,Yes,Yes
[MD Page ID]
1
[Control Number]
651789