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
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
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.