Visual Basic

‘ convert a positive number to any base’ BASE can be in the range 2-36Function Dec2Any(ByVal number As Long, ByVal base As Short) As String Dim index As Integer Dim

I love the way VB

‘ Change the extension of a file name’ if the last argument is True, it adds the extension even if the file doesn’t ‘ have oneFunction ChangeFileExtension(ByVal FileName As String,

‘ Append a backslash (or any character) at the end of a path’ if it isn’t there alreadyFunction AddBackslash(ByVal Path As String, Optional ByVal ch As Char = “”c) _

‘ Put quotes around a string and double any embedded Chr$(34)” convert all control characters into ControlChars.*** VB constants’ or CHR() functions” This function is useful, for example, when you

‘ “Explode” a string by inserting a given filling character’ between consecutive characters in the original string” The source string cannot contain Chr$(0) charactersFunction ExplodeString(ByVal Source As String, Optional ByVal

‘ If INCLUDE is True or is omitted, return the first occurrence of a character ‘ in a group’ or -1 if SOURCE doesn’t contain any character among those listed

‘ Return True if a string is a valid name for a Visual Basic variable or ‘ procedure.’ This function turns to be useful when writing add-ins that generate code.’

‘ Replicate a string a given number of timesFunction ReplicateString(ByVal Source As String, ByVal Times As Integer) As _ String Dim i As Integer Dim sb As New Text.StringBuilder(Source.Length *