Words to Number

[Condeh]

Hi There

Im looking to do something, although im not sure if its possible.

Say for instance, the word "Fred" the numerical value of that word is
"6+18+5+4 = 33"

Is there anything i can do to get a phrase such as "humpty dumpty sat
on the wall" converted into number, and then added together?

Thanks for any help!

[Phill W.]

Condeh wrote:

Say for instance, the word "Fred" the numerical value of that word is
"6+18+5+4 = 33"

How about this?

Function AddUp( ByVal sText As String ) As Integer

Const kSet As String = "abcdefghijklmnopqrstuvwxyz"
Dim iTotal As Integer = 0

For iSub As Integer = 0 To sText.Length - 1
Dim iPos As Integer _
= kSet.IndexOf( sText.SubString( iSub, 1 ).ToLower() )

If iPos -1 Then
iTotal = iTotal + ( iPos + 1 )
End If
Next

Return iTotal
End Function

? AddUp( "Fred" )
33
? AddUp( "humpty dumpty sat on the wall" )
352

HTH,
Phill W.

[iwdu15]

i think youl have to write your own function to do that
--
-iwdu15

[Mythran]

"Phill W." <p-.-a-.-w-a-r-d@o-p-e-n-.-a-c-.-u-kwrote in message
news:ea**********@south.jnrs.ja.net...

Condeh wrote:

>Say for instance, the word "Fred" the numerical value of that word is
"6+18+5+4 = 33"

How about this?

Function AddUp( ByVal sText As String ) As Integer

Const kSet As String = "abcdefghijklmnopqrstuvwxyz"
Dim iTotal As Integer = 0

For iSub As Integer = 0 To sText.Length - 1
Dim iPos As Integer _
= kSet.IndexOf( sText.SubString( iSub, 1 ).ToLower() )

If iPos -1 Then
iTotal = iTotal + ( iPos + 1 )
End If
Next

Return iTotal
End Function

? AddUp( "Fred" )
33
? AddUp( "humpty dumpty sat on the wall" )
352

HTH,
Phill W.

Good example, the OP should know that "ABCDEFG1234" will return the same
value as "ABCDEFG" :D

Mythran

[eSolTec, Inc. 501(c)(3)]

My question is: Does each letter or word have a value associated with it?

If so, a CaseSelect statement would work, wouldn't it? Assign a value for
each character/word and when that character or word is used create an
equation?

Michael

"Mythran" wrote:

>
"Phill W." <p-.-a-.-w-a-r-d@o-p-e-n-.-a-c-.-u-kwrote in message
news:ea**********@south.jnrs.ja.net...

Condeh wrote:

Say for instance, the word "Fred" the numerical value of that word is
"6+18+5+4 = 33"

How about this?

Function AddUp( ByVal sText As String ) As Integer

Const kSet As String = "abcdefghijklmnopqrstuvwxyz"
Dim iTotal As Integer = 0

For iSub As Integer = 0 To sText.Length - 1
Dim iPos As Integer _
= kSet.IndexOf( sText.SubString( iSub, 1 ).ToLower() )

If iPos -1 Then
iTotal = iTotal + ( iPos + 1 )
End If
Next

Return iTotal
End Function

? AddUp( "Fred" )
33
? AddUp( "humpty dumpty sat on the wall" )
352

HTH,
Phill W.

Good example, the OP should know that "ABCDEFG1234" will return the same
value as "ABCDEFG" :D

Mythran

[Condeh]

Wow, thats spot on, thanks very much, I'll now try and mkae sense of it
all!

Thanks again!
Phill W. wrote:

Condeh wrote:

Say for instance, the word "Fred" the numerical value of that word is
"6+18+5+4 = 33"

How about this?

Function AddUp( ByVal sText As String ) As Integer

Const kSet As String = "abcdefghijklmnopqrstuvwxyz"
Dim iTotal As Integer = 0

For iSub As Integer = 0 To sText.Length - 1
Dim iPos As Integer _
= kSet.IndexOf( sText.SubString( iSub, 1 ).ToLower() )

If iPos -1 Then
iTotal = iTotal + ( iPos + 1 )
End If
Next

Return iTotal
End Function

? AddUp( "Fred" )
33
? AddUp( "humpty dumpty sat on the wall" )
352

HTH,
Phill W.