I dont understand this code.. help??

[Evan]

Hi all..

Im Sure something can explain some code I got
out of this site. Its a function by Yonatan , he
to be on a whole different level of vb then me.

So could someone explain this in ALOT of depth??

Option Explicit

' Function version and sub version... Use the one which looks more fun! 
#Const FunctionVersion = True ' Change to False to use the Sub version

#If FunctionVersion Then
Function TrimNulls(ByVal sString As String) As String
#Else
Sub TrimNulls(sString As String)
#End If
    Dim lPos As Long
    
    lPos = InStr(sString, vbNullChar)
    
    If lPos > 0 Then sString = Left(sString, lPos - 1)
#If FunctionVersion Then
    TrimNulls = sString
End Function
#Else
End Sub
#End If

The hash characters (#) are conditional compilation markers. Basically, the code can be written two ways, ad either a sub or a function.

For a function (which would be more useful, you need to either set #Const FuctionVersion = True, or trim the excess code you don't won't.

Therefore the function version would look more like:

Function TrimNulls(ByVal sString As String) As String
    Dim lPos As Long
    
    lPos = InStr(sString, vbNullChar)
    
    If lPos > 0 Then sString = Left(sString, lPos - 1)

    TrimNulls = sString
End Function

As to what the function does, well, it trims the null characters off the end of the string


Regardingthe use of conditional compilation characters, you will often see the hash used for function declaration /w 16 and 32it functions eg:

#If IsWin32 then
    Declare Function FooBar() as Long
#Else
    Declare Function FooBar() as Integer
#End If

This tells the compiler to check what the IsWin32 function returns (theoretically true if Win95 and greater or false in Win 3.11), and then uses the correct declare statement (this is necessary cos the declarations of long are different b/w windows versions)

Hope that helped a bit

- gaffa

[Evan]

Oh wow.

Thats not that bad. It just looked weird
sense ive never seen it done before..

Thanks alot!