Send the first text line (row) to RunPro.vbs to line...Etc. (in .vbs)

[Lucas90]

http://postimg.org/image/bqws1u3ov/full

||||(Here is picture with what I want to do, the script)


C:\0001.txt Send the first text line (row) to RunPro.vbs to line, after send | delete\remove first line in C:\0001.txt
C:\0002.txt Send the first text line (row) to RunPro.vbs to line, after send | delete\remove first line in C:\0002.txt
C:\0003.txt Send the first text line (row) to RunPro.vbs to line, after send | delete\remove first line in C:\0003.txt
C:\0004.txt Send the first text line (row) to RunPro.vbs to line, after send | delete\remove first line in C:\0004.txt

http://postimg.org/image/bqws1u3ov/full

<<<===| Please look here)

I need your help Thank you.

 

[markdmac]

What do you have so far?

What you will want to do is read the entire file into an array. You can then reference the first line as element 0. Then write the contents of element 1 to the UBound of the array back to your file to remove the first line.

Set oFSO = CreateObject("Scripting.FileSystemObject")
'open the data file
Set oTextStream = oFSO.OpenTextFile("c:\temp\file1.txt")
'make an array from the data file
lineArray = Split(oTextStream.ReadAll, vbNewLine)
'close the data file
oTextStream.Close

FirstLine = lineArray(0)

For x = 1 To UBound(lineArray)
	AllTheRest = AllTheRest & lineArray(x) & vbCrLf
Next 

WScript.Echo FirstLine
WScript.Echo AllTheRest

Make sure your file is in ANSI format and not Unicode.

I hope that helps.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.