Fast LEN()

Date: 02-16-2022

Return to Index

 
'Compilable Example
'Credit: Michael M.
#Compile Exe
#Dim All
#Include "win32api.inc"
Function PBMain () As Long
   Local s As String
   s = "012345679"
   ? Str$(SLENPost20(s))
End Function
 
Function SLENPost20(ByVal s As String) As Long
   Local n As Long
   !mov ebx, s
   !cmp ebx, 0
   !jz bail
   !sub ebx ,4
   !mov ebx ,[ebx]
   !mov n ,ebx
   bail:
   Function = n
End Function
 
'gbs_01447
'Date: 10-17-2014            

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm