I am trying to use this script to filter out the last half of the file. However it has to be done dynamicly. so i can not use a fixedset of lines.

The error I get is file not found. what am i doing wrong?

Thank you

i have updated the code. here it is
I am getting and input error. File beyond limit

Here' a corrected code:

--------------------
Dim file, newFile, stream, strNew

Set file = CreateObject("Scripting.FileSystemObject")

Set stream = file.OpenTextFile("C:\test.txt")
Set newFile = file.CreateTextFile("C:\filtered.txt")

Do While strNew <> "LONDONDAY FOR- 600 HARVEYS"
strNew = stream.ReadLine
newFile.WriteLine strNew
Loop

stream.Close
--------------------

Now, there was a critical error in your code. First of all, you first set the variable "stream" to open a text file, and then you set it to create a text file. When calling CreateTextFile, you override the previous OpenTextFile command, and therefore your file is never opened for reading. So I used two variables to fix this problem.

Also, these two lines:

strTest = stream.ReadLine
stream.Write strNew

They are not needed before the loop. They are already called in the "Do While" loop, you do not need to add them before your loop.

Try out my code, and see if it works. You can replace "C:\test.txt" by "PW_GetJobFilename", and set the path of the filtered text file to suit your needs. Do not use PW_GetJobFilename with CreateTextFile however.

Hope that solved your problem.

Regards,
Rapha

Thank you for help that helped a lot. I have recieved another error though and that is "input past end of file"

How can i fix that. the data information is in ascii emulation so it should read it as a text file.

The client reported this as an issue via the web, and I was able to solve his problem by correcting the errors in his code. Everything is working fine now, so this issue is now closed.

Rapha