' Applies URL encoding rules to the specified Text and returns the result' (similar to Server.URLEncode)Public Function URLEncodeEx(ByVal Text As String) As String Dim abytTokens() As Byte Dim lngTotal As Long Dim lngCount As Long Dim astrReturn() As String Dim strReturn As String strReturn = Text If Trim$(strReturn) <> "" Then ' convert to an array abytTokens = StrConv(Text, vbFromUnicode) lngTotal = UBound(abytTokens) ' dimension enough space for the return ReDim astrReturn(lngTotal) For lngCount = 0 To lngTotal Select Case abytTokens(lngCount) Case 48 To 57, 65 To 90, 97 To 122 ' don't touch alphanumeric chars astrReturn(lngCount) = Chr$(abytTokens(lngCount)) Case 32 astrReturn(lngCount) = "+" Case Else If abytTokens(lngCount) < 16 Then astrReturn(lngCount) = "%0" & Hex$(abytTokens(lngCount)) Else astrReturn(lngCount) = "%" & Hex$(abytTokens(lngCount)) End If End Select Next ' lngCount strReturn = Join(astrReturn, "") Erase astrReturn Erase abytTokens End If ' join the return tokens together URLEncodeEx = strReturn End Function'###################################'#'# This tip has been brought to you by www.omnisolvonline.com,'# makers of a host of software development, energy and information '# management tools.'#'###################################
4 Areas of Your Company Where Your Audio Really Matters
February 2, 2023
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a
