ansaurus

Question

Count what number that appears the most. In VBScript

Answer 1

A:

I would suggest using the FileSystemObjects, specifically the OpenTextFile method to read the file, then use split function to separate based on columns. Then iterate the array returned, and count the number of times each number occurs.

The following code will count your array for you. It uses the useful Dictionary object.

Set counts = CreateObject("Scripting.Dictionary")

For i = Lbound(arr) to Ubound(arr)
    If Not counts.Exists(arr(i)) Then
        counts.add arr(i), 1
    Else
        currCount = counts.Item(arr(i))
        counts.Item(arr(i)) = currCount + 1
    End If
Next 

nums = counts.Keys()
currMax = 0
currNum = 0

For i = Lbound(nums) to Ubound(nums)
    If counts.Item(nums(i)) > currMax Then
        currMax = counts.Item(nums(i))
        currNum = nums(i)
    End If
Next 

num = currNum ' Most often found number
max = currMax ' Number of times it was found

C. Ross 2010-03-02 14:30:30

This isn't homework, its for use at work.I know how to loop through the file, I just dont know how to see how many time a number appears.

Lasse 2010-03-02 14:34:07

The if statement in the lower loop could be moved into the upper loop, that way you wouldn't have to loop through the file and then through the dictionary. Just check to see if counts.Item(arr(i)) > currMax after adding 1 to the counts.Item(arr(i))

Tester101 2010-03-02 18:27:21

I prefer a clearer solution, especially when explaining.

C. Ross 2010-03-02 20:09:41

Answer 2

A:

hello i would go through the text and count the number of your nubmers. after that i would redim an dynamic array. - go throught the text from beginning to end, and store them in the array.

after that i would pick the first number, go through the array and count (for example in tmpcounter) the number of dublicates. [you could store the counted number from the textfile in tmphit]

the you pick the second number, count the number of dublicates ( tmpcounter2 /tmphit2)

compare the two counters,you "keep" the higher one and use the lowe one for the next number

...go on until the last field is validated.

at the end you know which number appearse most and how often.

i hope this help you. this is how i would programm it, maybe there is a better way or an API.

at the end you know

Tyzak 2010-03-02 14:39:11

Answer 3

A:

Try this

Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Test.txt",1)
Set dictNumbers = CreateObject("Scripting.Dictionary")

Dim MostKey
intHighest = -1

do while NOT objFile.AtEndOfStream
    LineArray = Split(objFile.ReadLine,";")
    for i = 0 to UBound(LineArray)
        if dictNumbers.Exists(LineArray(i)) Then
            dictNumbers.Item(LineArray(i)) = dictNumbers.Item(LineArray(i)) + 1
        else
            dictNumbers.Add LineArray(i), 1
        end if
        if dictNumbers.Item(LineArray(i)) > intHighest Then
            intHeighest = dictNumbers.Item(LineArray(i))
            MostKey = LineArray(i)
        end if
    next
Loop 

MsgBox MostKey

Tester101 2010-03-02 18:33:06

ansaurus

tags:

views:

answers:

Count what number that appears the most. In VBScript

related questions