21 lines
612 B
Text
21 lines
612 B
Text
Public Sub Form_Open()
|
|
Dim sData As String = File.Load("data.txt")
|
|
Dim iCount, iSpaces, iLetters, iOther As Integer
|
|
Dim bPunctuation As Boolean
|
|
|
|
For iCount = 1 To Len(sData)
|
|
If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZ", UCase(Mid(sData, iCount, 1))) Then
|
|
Inc iLetters
|
|
bPunctuation = True
|
|
End If
|
|
If Mid(sData, icount, 1) = " " Then
|
|
Inc iSpaces
|
|
bPunctuation = True
|
|
End If
|
|
If bPunctuation = False Then Inc iOther
|
|
bPunctuation = False
|
|
Next
|
|
|
|
Message("Text contains " & Len(sData) & " characters\n" & iLetters & " Letters\n" & iSpaces & " Spaces\n" & iOther & " Punctuation, newlines etc.")
|
|
|
|
End
|