RE: script to combine lines in txt file

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

RE: script to combine lines in txt file

Logged in as: Guest

arrSession:exec spGetSession 2,2,58874

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> RE: script to combine lines in txt file
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: << < prev 1 [2]

Message

<< Older Topic Newer Topic >>

RE: script to combine lines in txt file - 4/8/2008 4:37:55 PM

chriswebb18

Posts: 71
Score: 0
Joined: 4/7/2008
Status: offline

ok so here is the final code i am going with for this project. well, I will test it tomorrow when i can see if the database accepts the info properly, but as far as i can tell, everything is perfect. added the date to the filename, changed else writeline... "" to vbTab.

Const ForReading = 1
Const ForWriting = 2

[b]mstrFilePath = "c:\output_"
mstrFileExtension = ".txt"
strDate = CStr(Year(Date) * 10000 + Month(Date) * 100 + Day(Date))
strFile = mstrFilePath & strDate &mstrFileExtension[/b]

Dim objRegEx : Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "(REC\d{8})"

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objInputFile : Set objInputFile = objFSO.OpenTextFile("C:\medctrin.txt", ForReading)
Dim strText : strText = objInputFile.ReadAll
objInputFile.Close
Dim colMatches : Set colMatches = objRegEx.Execute(strText)
Dim objNewFile : Set objNewFile = objFSO.OpenTextFile(strFile, ForWriting, True)
objNewFile.WriteLine Mid(strText, 1, colMatches(0).FirstIndex - 1)
Dim intCount, intLastCount, strOutput
For intCount = 1 To colMatches.Count
intLastCount = intCount - 1
If intCount = colMatches.Count Then
    strOutput = Mid(strText, colMatches(colMatches.Count - 1).FirstIndex + 1)
Else
    strOutput = Mid(strText, colMatches(intLastCount).FirstIndex + 1, colMatches(intCount).FirstIndex - colMatches(intLastCount).FirstIndex)
End If
[b] objNewFile.WriteLine Replace(strOutput, VbCrLf, vbTab)[/b]
Next
objNewFile.Close

(in reply to chriswebb18)

Post #: 21

RE: script to combine lines in txt file - 4/11/2008 5:30:33 AM

chriswebb18

Posts: 71
Score: 0
Joined: 4/7/2008
Status: offline

after some testing and new requirements per my superiors, i went with the other code you provided, because i liked splitting into array and using individual lines. It made it easier since i now have to copy some info from the middle of each line to the front, the other was only taking from first line is it was reading all as one. i thought i would post what i used in case someone needs something similar in the future:

Const ForReading = 1
Const ForWriting = 2

'name must include date
'copy first 5 chars of command type to front of line (ptadd, gremp...)
'first 87 lines must be preserved
'take all lines below REC******** and move up
'insert tab where carriage returns are so to keep columns seperate
'when chars 7-18(rec...) are different instert a line with stop character

mstrFilePath = "C:\Users\Chris\Desktop\develop\output_"
mstrFileExtension = ".txt"
strDate = CStr(Year(Date) * 10000 + Month(Date) * 100 + Day(Date))
strFile = mstrFilePath & strDate & mstrFileExtension

Dim objRegEx : Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.Pattern = "(REC\d{8})"

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objInputFile : Set objInputFile = objFSO.OpenTextFile("C:\medctrin.txt", ForReading)
Dim strText : strText = objInputFile.ReadAll
objInputFile.Close
Dim objNewFile : Set objNewFile = objFSO.OpenTextFile(strFile, ForWriting, True)
strText = objRegEx.Replace(strText, "��$1")
Dim arrText : arrText = Split(strText, "��")
Dim strLine, strTest, strTest2
For Each strLine In arrText
  strTest = Mid(strLine, 7, 11)  
 If objRegEx.Test(strLine) Then
    If strTest <> strTest2 Then
          objNewFile.WriteLine " "
          strLine2 = Mid(strLine, 63, 5)
          objNewFile.WriteLine strLine2 & vbTab & Replace(strLine, VbCrLf, vbTab)

Else
          strLine2 = Mid(strLine, 63, 5)
          objNewFile.WriteLine strLine2 & vbTab & Replace(strLine, VbCrLf, vbTab)
    End If
    strTest2 = strTest
 Else
    objNewFile.WriteLine strLine
 End If
Next
objNewFile.Close

< Message edited by chriswebb18 -- 4/11/2008 5:45:48 AM >

(in reply to chriswebb18)