I am in the process of writing a VB.Classic application that will convert VB Code into HTML code so that it is nicely formatted. E.g.
Private Function FindNumberOfUniqueCharactersInString(ByVal strVvText As String _
, ByVal blnVvCaseSensitive As Boolean _
) As Integer
Dim intLvIndex As Integer
Dim intLvCount As Integer: intLvCount = 1
strVvText = IIf(blnVvCaseSensitive, strVvText, UCase$(strVvText))
For intLvIndex = 2 To Len(strVvText)
If InStr(Left(strVvText, intLvIndex - 1) _
, Mid(strVvText, intLvIndex, 1) _
) = 0 Then
intLvCount = intLvCount + 1
End If
Next
FindNumberOfUniqueCharactersInString = intLvCount
End Function
becomes
, ByVal blnVvCaseSensitive As Boolean _
) As Integer
Dim intLvIndex As Integer
Dim intLvCount As Integer: intLvCount = 1
strVvText = IIf(blnVvCaseSensitive, strVvText, UCase$(strVvText))
For intLvIndex = 2 To Len(strVvText)
If InStr(Left(strVvText, intLvIndex - 1) _
, Mid(strVvText, intLvIndex, 1) _
) = 0 Then
intLvCount = intLvCount + 1
End If
Next
FindNumberOfUniqueCharactersInString = intLvCount
End Function
When I have completed the application I will post it at vbCity. As you can see from the above code (created using my application) the basics are working. I just need to allow the application to know about more reserved words, perform more testing, and correct any bugs the testing shows up and then it will be ready.
Image may be NSFW.Clik here to view.
