Database Search

TechHome

• !!Processing Templates Files with BinaryTag - Insider Tech Notes
• Binary Sort Two Different Fields
• BinaryPeek versus BinaryPeekStr
• BinaryPoke and Bit Swapping Discussion
• BinaryRead File Line by Line
• BinaryReplace With NULL Characters
• BinarySort Considerations
• BinarySort Example
• BinaryXlate Explanation
• Convert to UTF-8
• Could Not Allocate Binary Buffer Error
• Create Zero Length Binary Value
• CryptAcquireContext Gets a Handle to a Key Container within a CSP
• Example of Keeping Track of Multiple Pointers
• Extract Line 79 from a File
• Insert a Delimiter Every 5 Chars
• Nested Binary Sort
• Offset beyond binary EOD
• Parsing Dilemma
• Remove Line from File that Contains a string
• Remove Line from File
• Replace First Instance of a String in a File
• Retrieve last line from a File
• Search and Replace Another Example
• Search and Replace in Binary Buffer
• Splitting Registry Binary Entry for Writing to INI File
• System Ini writing multiple device lines to
• System.Ini and Device lines
• Use Binary Functions to Edit INI Files
• Use BinaryRead Like FileRead
• Using BinaryPeek to Find Null 00 Character

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Nested Binary Sort

Keywords: 	  Nested Binary Sort

;Fields are (from left to right):
;
;Invoice Number - represented by I's (increasing numeric field)
;Product indicator - represented by X (S or C)
;VAT indicator     - indicated by V  (1 VAT or 3 zero VAT)
;
;Note that the initial row would not normally be there. I've just placed that
;there to indicate fields.
;
;I will need to perform a nested sort by:
;
;Invoice number
;   Product Indicator
;      VAT indicator
;
;Unfortunately, I've given you a poor file in that the section I've
;highlighted was actually in order.  Due to the way the file is generated, it
;is not necessarily in order.
;
;The files generated vary in size (so far) from a minimum of 50Kb to a max of
;1,540Kb.
;
;If you could give me a few more clues of how to perform a WinBatch nested
;sort, that would be great.
;
; IIIIIIII                                               P                                                                                 V
; 00023176xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx3xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; 00023177xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx3xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; 00023178xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx3xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; 00023246xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; 00023247xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; 00023247xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxSxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx1xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx




infile="C:\Incoming\1 work\orderfile.txt"
outfile="C:\Incoming\1 work\orderfile.out"


fs=FileSize(infile)
bb=BinaryAlloc(fs + fs/20) ; approix buffer size.  Slightly high
bbptr=0
recsize=417

handle=FileOpen(infile,"READ")
records=0
while 1
   line=FileRead(handle)
   if line=="*EOF*" then break
   if strlen(line) !=recsize
       yy=strlen(line)
       Pause("Eeek","bad record found %yy%")
   endif
   records=records+1
   inv=strsub(line,1,8)
   prod=strsub(line,56,1)
   vat=strsub(line,138,1)
   keyline=strcat(inv,prod,vat,line) ; maybe strcat(vat,prov,inv,line)
   bbptr=bbptr+BinaryPokeStr(bb,bbptr,keyline)
endwhile
FileClose(handle)

keysize=10
bbrecsize=recsize+keysize ; width added 10 byte key
keyoffset=0
flags= @ASCENDING | @STRING


bb2=BinaryAlloc(BinaryEODGet(bb))
BinaryCopy(bb2, 0, bb, 0, BinaryEODGet(bb) )
BinaryFree(bb)
BinarySort( bb2, bbrecsize, keyoffset, keysize, flags )

handle=FileOpen(outfile,"WRITE")

records=records-1
for xx=0 to records
   line=BinaryPeekStr(bb2, (bbrecsize * xx) +keysize , recsize)
   FileWrite(handle,line)
next
FileClose(handle)
BinaryFree(bb2)
Message("All","Done")

Article ID:   W14825

File Created: 2001:11:08:12:40:10

Last Updated: 2001:11:08:12:40:10