@coders

Could you guys make the left() & right() statements , so you can set values for them??

Like:

left( string , 5 ) = "Hello"
right( string , 3 ) = "End"

Like the mid() statement....

@Dodicat Can you work your magic , and make this code faster??? It's taking like 4 seconds per loop... Not counting the time to create the initial string of bits.. screen 19 dim as double time_s , time_e do dim as string bits = "" for a as longint = 1 to 1000000 * 8 step 1 bits+= bin( int(...

@Richard

Got it Richard!! I'll work alone in it ...

I wont post any more here , till i got the decompression done...
Just sometimes ; you need a proof reader , to check the code , or to respond with ideas , for speeding it up..

@Dodicat For the "Row , Column Cancel Encoding" ( RCCE ) , I finally got the the mapping figured out... It's compressing 1,000,000 bytes input , by 23% , on the first run through the compressor.. So i might have an error , or an omission somewhere... I've gone over the code many times now ...

@Dodicat I wrote a grid analyzing program... You set the grid size , then it runs through all the binary values of that grid size.. It checks all the times that the row grid = the column grid. For a size 2 grid , if row(0) = col(0) and row(1) = col(1) then record the value and increment the count......

@Dodicat I've been having fun , playing around with the idea of ; Row-Column Cancel Encoding.. ( RCCE ) I'm still trying to figure out , how to map the equates.. For a 3 x 3 grid n2 = "0" if row( 0 ) = "000" then n2+= "0" if row( 1 ) = "000" then n2+= "00...

I wrote a grid analyzing program... You set the size var , 4x4 grid = 4 , 8x8 grid = 8 , 6x6 grid = 6 , etc.. It lets you know how many bytes compression you can expect from a particular grid size... It goes to 99,999 bytes of grids , and then pauses.. size = 4 , gives the best values.. 'Column Canc...

@Dodicat With the 12 bit Grids... How would you make the mapping of equated rows and columns?? 1110 1010 0110 Column 3 ( 1's ) equates.. Column 4 ( 0's ) equates.. Would you map it to a ; 21 ?= ( 101) and a 30 ?= ( 110 ) ?? = 6 bits , so it's 1 for 1 ?? I got to figure a way to do the mapping... One...

@Dodicat With my above CCE ( Column Cancel Encoding ) , compression idea.. You bring in two bytes for the initial column check. If you get 1 or more columns with like bits , then you bring in another byte and add it to the grid , else you just output 1 byte.. If the number of like columns increases ...

@Dodicat I thought that if 7 bit chars compress.. Then i could utilize it in a formula.. So , i stepped by 8 bits and turned 7 bits into a chr , and added 1 bit into a map.. When the map got to 7 bits , i added the map chr to the stream and zeroed the map , to start it over again.. It failed to comp...

@Dodicat

I fumbled upon a quirk with Zlib...

If you make the random string s+= chr( int( rnd *128 ) )
It compresses on it's own , with no formula code..

@srvaldez Anyone who manages to compress random data,, Would win worldwide acclaim , and could earn billions of dollars.. If you could zip a *.zip file and make it smaller?? Since I'm home bound , i can work 8 hours a day on it.. So far I've tried 10's of thousands of formulas.. so far no luck.. But...

@Dodicat

Decompression failure!!!
It seems ; that i forgot to address the case of , no bits being set..
it was returning a null string in those cases.. so it wasn't being added to the output...

So i set it to return a "0" if null , and it expands 3,500 bytes per loop of 1,000,000..

@Dodicat I think i got a working formula... Get ready to be rich!! I'm pondering the decompression... If it's less or equal to a previous val , then you do nothing.. if it's greater than a previous val , then you add a "0" to the front.. Compresses 1,000,000 bytes , down to under 1,000 byt...

@Dodicat Here's your zlib1 code , i thought to post it here so i can search the forum for it , if need be... ' copy zlib.bi to folder and rename it zlib1.bi ' download zlib1.dll and place in same folder #include once "zlib1.bi" Function getpassedinfo(text As String,Byref passed_length As I...