








COM(+) Security: Follow-up
Introduction In my previous article [1], published atVB2TheMax site, I’ve described briefly how COM+ security and role-based securitywork. I promised you to discuss in the next article about web/IIS security;still
Introduction In my previous article [1], published atVB2TheMax site, I’ve described briefly how COM+ security and role-based securitywork. I promised you to discuss in the next article about web/IIS security;still
‘ convert a reversed full name back to the “FirstName LastName” format” for example, ConvertReverseFullName(“Smith, John A.”) ==> “John A. Smith”Function ConvertReverseFullName(ByVal ReverseFullName As String) As String Dim i As
‘ convert a string to camel case’ for example: CamelCase(“new file name”) => “NewFileName”‘Function CamelCase(ByVal Text As String) As String Dim i As Long ‘ convert all non-alphanumeric chars to
‘ Modify a phone-number to the format “XXX-XXXX” or “(XXX) XXX-XXXX”.Function FormatPhoneNumber(ByVal text As String) As String Dim i As Long ‘ ignore empty strings If Len(text) = 0 Then
‘ reverse a full name” for example: ReverseFullName(“John A. Smith”) ==> “Smith, John A.”Function ReverseFullName(ByVal FullName As String) As String Dim i As Long ‘ search for the last space
‘ Takes a first and last name and converts it to the format LastName, FirstNameFunction FormatFullName(ByVal FirstName As String, ByVal LastName As String) As _ String FirstName = Trim$(FirstName) LastName
‘ change a sentence in CamelCase to a sentence with spaces’ for example ConvertCamelCase(“FileExchange”) => “File Exchange”Public Function ConvertCamelCase(ByVal Value As String) As String Dim i As Long For i
‘ Format a credit card numberFunction FormatCreditCard(ByVal text As String) As String Dim i As Long ‘ ignore empty strings If Len(text) = 0 Then Exit Function ‘ get rid