[2008]Prob in calculation...simple math!

[esafwan]

I'm doing a project in which it calculates the characters with space and without space in RTF files.

After that the

Val(char without space is) / 65

--that is val of char divided by 65

But the problem is when i do the same calculation by getting the counts from msword and calculate it in windows calculator the result is different... i'm getting a small variation in result sometime in decimals maybe upto 1 value.
________________________________-
I declared all the variables in decimal.
__________________________________

This is the code i used for getting the counts!

Dim words() As String = rtf1.Text.Split(" ")
        Dim charsInc As Integer = rtf1.Text.Length
        Dim charsExc As Integer = rtf1.Text.Replace(" ", "").Length
        lblword.Text = words.Length & " words"
        lblchar.Text = charsInc & " characters including spaces"
        lblnochar.Text = charsExc & " characters excluding spaces"
        lblline.Text = rtf1.Lines.Length.ToString() & " lines"

___________________________________________________

Please help me out... is there anything else that is should know while working with division and decimals in VB?

[esafwan]

that is the char count from VB and Word differs by around 50-60 in both including space and excluding!

[.paul.]

do you just want the integer (whole number) part of the calculation?

math.floor(Val(char without spaces) / 65)

[.paul.]

that is the char count from VB and Word differs by around 50-60 in both including space and excluding!

how are you getting the text in vb.net, and how in word?

[dbasnett]

What is 65? "A"? Why?

[obi1kenobi]

I'm not sure about your problem, but I did notice something odd...You are using Val(). Why? It's legacy, carried over from VB6, yet you are still using it in VB9. Use CInt and TryParse instead.

[gnaver]

also you dont need it as it is already an integer.

[esafwan]

but isn't val() and direct calling different?!!!


say text.text = 5 and text2.text= 6

I mean val(text.text)+val(text2.text) = 11
and text.text + text2.text = 56

this is what i understood...

Is there any way?!!

[esafwan]

See my project is to get word counts of RTFS file in Dir based 3 formulas.

1. No of characters including space / 65
2. No of characters excluding space/ 65
3. No of words in the RTF / 11

The result is calculated like this in a loop!
________________________________________
In the firts formula:
1st file counts / 65 + 2nd file counts / 65 + nth file counts / 65 = final result
________________________________________

[jmcilhinney]

You should use a Regex to get word counts.

[esafwan]

well whts that? any reference to it...

like how i could implement it in this ?

[esafwan]

is there any way that i can get the word counts of ms word in vb?

[obi1kenobi]

Val is VB6, it's legacy, like, 100 year old legacy. CInt(TextBox1.Text) does the same thing, as does Integer.TryParse(TextBox1.Text), only it's newer, better and very likely faster. Regex stands for Regular Expressions, google it and you'll see. There are also plenty of tutorials on this forum about using Regex.

[jmcilhinney]

well whts that? any reference to it...

I don't know, MSDN maybe? Did you put regex into the search box and see what comes back? Look first, ask questions later.

[alex_read]

Imports System.Text
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Load
        Const stringOfText As String = "The cat sat on the mat, hyphenated-test too."
        Dim regExParagraghInfo As New Regex(".")
        MessageBox.Show("Character count with spaces: " & regExParagraghInfo.Matches(stringOfText).Count.ToString)
    End Sub

End Class

[alex_read]

Imports System.Text
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles Me.Load
        Const stringOfText As String = "The cat sat on the mat, hyphenated-test too."
        MessageBox.Show("Characters count without spaces: " & _
                        Regex.Replace(stringOfText, " ", String.Empty).Count.ToString)
    End Sub

End Class

Those are the regex way. There is a discrepancy between the way regex and MSWord treat hyphenated words though - regex will treat "some-text" as 2 words whereas Word counts it as 1.

Val when I've used it in the past performs some sort of rounding if you're using decimals and as everyone's stated above, there are far better current .Net framework methods you can use so there should be no need to ever use the older style Val() statement ever again.

Instanciating Word and reading a count of characters is overkill. You'd possibly need to account for differing versions of Word, whether Word is installed or not, the memory hit and time delay of instanciating Word in order to just get this information. There are also many issues you can encounter when trying to kill the process also. This shouldn't be an option for just a textbox word count.

You haven't really described why you're dividing by 65 there - are you trying to get the characters typed per minute and should this be a value of 60, or are you trying to accomplish something different with this part?

[alex_read]

but isn't val() and direct calling different?!!!

say text.text = 5 and text2.text= 6

I mean val(text.text)+val(text2.text) = 11
and text.text + text2.text = 56

Yes they are in that instance. Perhaps someone can back me up here but sometimes the + symbol used like that adds the values and sometimes it concatenates them if numbers are encountered, I'm sure I've read of odd behaviour with using that on string numbers from these forums.

For the top one, you can use any of the .Net framework calls shown below and there's probably others too:

directcast(text1.text, integer) + directcast(text2.text, integer) 
ctype(text1.text, integer) + ctype(text2.text, integer)
Convert.toint32(text1.text) + Convert.toint32(text2.text)
integer.tryparse(text1.text) + integer.tryparse(text2.text)

If ever you did want concatenation (the 56 result), use the & symbol instead of the + there also.

[esafwan]

that was very helpful...
___________________________

I'm just a beginner in this....