' Count how many characters of a given type are in a file' Example:' Dim charCount(255) As Integer' CountFileCharacters("c: est.txt", charCount)' Debug.WriteLine("the char 'A' was found " & charCount(Asc("A")) & " times")' Debug.WriteLine("the char 'a' was found " & charCount(Asc("a")) & " times")Sub CountFileCharacters(ByVal filePath As String, ByVal charCount() As Integer) Dim i As Integer, acode As Integer Dim fs As System.IO.FileStream Dim fileLength As Integer = New System.IO.FileInfo(filePath).Length Dim content(fileLength - 1) As Byte Try ' read the file contents in a temporary Byte array fs = New System.IO.FileStream(filePath, IO.FileMode.Open) fs.Read(content, 0, fs.Length) Finally If Not fs Is Nothing Then fs.Close() End Try ' parse the array, update charCount() For i = 0 To content.GetUpperBound(0) acode = content(i) charCount(acode) = charCount(acode) + 1 Next iEnd Sub
Top Careers at Microsoft
February 3, 2023
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job
