bar code or just go to a bar?

• How could I write a macro to format my data like I need it? I have a text file of data (windows) that I have created with a portable bar code scanner, but the data is not in the format that I need it to be... What I have are boxes with folders in them. Each folder in the box is bar coded and each box has a bar code. My box bar code always begins with Z and the folder bar codes are random numeric and may have a space in the code. My current data looks like this.... Z00000000000123 675497765 580263739 878654737 67937 0883 6393 87833 Z00000000000124 8293618373 6364 99127 849437882 939384489 Z00000000000125 64636 0483 993746283 738399402 839304004 But what i need as an end result (after the macro) is two columns of related data such as.... Z00000000000123 , 675497765 Z00000000000123 , 580263739 Z00000000000123 , 878654737 Z00000000000123 , 67937 0883 Z00000000000123 , 6393 87833 Z00000000000124 , 8293618373 Z00000000000124 , 6364 99127 Any help from the hive is greatly appreciated.....

• Answer:

  This is a quick and dirty vbscript which should do the job in most windows flavours. Copy it to a text file and save it as something.vbs. Double click to run - it will output another text file called final.txt to the same directory. You will need to change the name of the readfile from data.txt(take a copy first, of course). It assumes that this file, and the starting text file are in the same directory/folder. Hope this formatting works! ----------------------------dim filesys, text, readfile, contents, textFinal, currentZset filesys=CreateObject("Scripting.FileSystemObject")set readfile = filesys.OpenTextFile("data.txt", 1, false)Set textFinal=filesys.CreateTextFile("final.txt", True)Do While readfile.AtEndOfStream True contents=readfile.readline if inStr(contents, "Z") 0 Then currentZ = contents End If if currentZ contents Then textFinal.Write(currentZ & "," & contents & VbCr & VbLf) End ifloopreadfile.closetextFinal.close>>>