Any way to speed this up ?

[Steven Pringels 3 Member Find all posts View Profile Close Steven Pringels 3]

Hello everyone,

Anyway to speed this up without assembler ?

bData is a string containing the contents of a file.

 Dim aByte(Len(bData)) As Byte

 For c = 1 To Len(bData)
     aByte(c - 1) = Asc(Mid$(bData, c, 1))
 Next
 let Blobdata = aByte()

Blobdata is a Variant

Thanks in advance,
Steven

[Petr Schreiber jr Member Find all posts View Profile Close Petr Schreiber jr]

Hi,

following tweaks work in PB/WIN 8.04

Way #1
on my PC I got 90% speed boost when replacing:

aByte(c - 1) = ASC(MID$(bData, c, 1))

with

aByte(c - 1) = Asc(bData, c)

Way #2
But if bData is STRING, you can use magic trick allowing avoiding of any loops.

 DIM aByte(LEN(bData)-1) AS BYTE AT STRPTR(bData)    

 ' -- Yes, no loop here

 let Blobdata = aByte()

... using this approach the aByte array will be filled with ASCII values immediately. Lightning fast, much faster than "Way #1"


Bye,
Petr

[Edwin Knoppert Member Find all posts View Profile Close Edwin Knoppert]

MoveMemory( Byval VarPtr( aByte(0) ), ByVal StrPtr( bData ), Len(bData) )

[Edwin Knoppert Member Find all posts View Profile Close Edwin Knoppert]

>DIM aByte(LEN(bData)-1) AS BYTE AT STRPTR(bData)

Even better..

[Steven Pringels 3 Member Find all posts View Profile Close Steven Pringels 3]

thanks

Thank you for looking into this !

Kind Regards
Steven