Input #1 won't bring in the entire line
I have a simple, but LARGE text file that I'd like to weed through automatically (using VB).
Basically, it's a log listing of certain files on my servers.
What I'd like to do is step through the log and check two lines, keeping them both in another file, if line 2 meets certain criteria.
Sample of my log:
--------------------------
Directory of \\FileServer5\Marketing\Ph
04/09/1999 11:42 AM 32,768 OurTrip.jpg
--------------------------
Now, if OurTrip.jpg exceeds 100,000,000, I want to make note of that in another file.
The problems I have are:
1> My log isn't consistent. Sometimes, I'll have the first line, but not the second (for whatever reason, my script didn't pull the file info, I suppose). So, if the second line (acutally the 3rd, cause there is a blank space between each line), is empty, I want to discard that entry and move on.
2> I've tried to pull the file in using the following code:
Open "C:\files.log" For Input As #1
Do While Not EOF(1)
Input #1, mystring
If Left(Trim(mystring), 15) = "Directory of \\" Then dirRoutine (mystring)
'****
Loop
Close #1
End Sub
The comment line '**** is where I'd like to check the size, but after the first loop, it only reads in "4" for that second line. If I add a second variable to the input line, it will also pull in 11 from that second field, but I can't get it to pull in the entire line into one string - why not??
Can what I want to do, be done?
Should I go about it another way?
TIA!
~sirbounty
Basically, it's a log listing of certain files on my servers.
What I'd like to do is step through the log and check two lines, keeping them both in another file, if line 2 meets certain criteria.
Sample of my log:
--------------------------
Directory of \\FileServer5\Marketing\Ph
04/09/1999 11:42 AM 32,768 OurTrip.jpg
--------------------------
Now, if OurTrip.jpg exceeds 100,000,000, I want to make note of that in another file.
The problems I have are:
1> My log isn't consistent. Sometimes, I'll have the first line, but not the second (for whatever reason, my script didn't pull the file info, I suppose). So, if the second line (acutally the 3rd, cause there is a blank space between each line), is empty, I want to discard that entry and move on.
2> I've tried to pull the file in using the following code:
Open "C:\files.log" For Input As #1
Do While Not EOF(1)
Input #1, mystring
If Left(Trim(mystring), 15) = "Directory of \\" Then dirRoutine (mystring)
'****
Loop
Close #1
End Sub
The comment line '**** is where I'd like to check the size, but after the first loop, it only reads in "4" for that second line. If I add a second variable to the input line, it will also pull in 11 from that second field, but I can't get it to pull in the entire line into one string - why not??
Can what I want to do, be done?
Should I go about it another way?
TIA!
~sirbounty
This would be the whole picture :
Open "C:\files.log" For Input As #1
Do While Not EOF(1)
Line Input #1, mystring
If Left(Trim(mystring), 15) = "Directory of \\" Then dirRoutine (mystring)
'****
Loop
Close #1
End Sub
Open "C:\files.log" For Input As #1
Do While Not EOF(1)
Line Input #1, mystring
If Left(Trim(mystring), 15) = "Directory of \\" Then dirRoutine (mystring)
'****
Loop
Close #1
End Sub
ASKER
That works much better - thanx.
Is there a for me to break down line 2 so that I can assign a variable to the date (the 1st part), time (2nd), size (3rd) and filename (which may include spaces...)
Is there a for me to break down line 2 so that I can assign a variable to the date (the 1st part), time (2nd), size (3rd) and filename (which may include spaces...)
What exactly is the contruction of you log file. What do you use as seperators ?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
It's just the one log file. Format should be the same. I should be able to get it from here. I'll let you know shortly.
Thanx for the help!!!
Thanx for the help!!!
ASKER
aelatik, this is perfect!
Can you perhaps give me a brief description of split and buffer? (or a web ref).
I'm taking my 3rd course in VB, but I've taken so much time over the holidays (and then some) away from it, that I think I've lost a bit. Although, I don't recall these commands, but we're mostly working with ADO stuff. . .
Thanx again!
Can you perhaps give me a brief description of split and buffer? (or a web ref).
I'm taking my 3rd course in VB, but I've taken so much time over the holidays (and then some) away from it, that I think I've lost a bit. Although, I don't recall these commands, but we're mostly working with ADO stuff. . .
Thanx again!
First of all, buffer doesnt mean a thing. Its a simple variable declaration.
The Split() function will split a given string to an array, you can set the delimeter yourself.
Example :
S = "1;2;3;4;5"
F = Split(S,";")
The results are as following :
F(0) = 1
F(1) = 2
F(2) = 3
F(3) = 4
F(4) = 5
example : msgbox F(0)
or a for each loop
For each X in F
msgbox X
next
The Split() function will split a given string to an array, you can set the delimeter yourself.
Example :
S = "1;2;3;4;5"
F = Split(S,";")
The results are as following :
F(0) = 1
F(1) = 2
F(2) = 3
F(3) = 4
F(4) = 5
example : msgbox F(0)
or a for each loop
For each X in F
msgbox X
next
ASKER
So it creates an array - great. Thanx again!
instead of
Input #1, mystring