a questions about classes

[PamelaFoxcroft]

I have a class like this

Public Class Class1
Public Class Token
Public TokenString As String
Public TokenValue As Double
End Class
End Class

in my code I fill an array of these classes like this

Dim Tokens As New ArrayList

Dim token As Class1.Token= New Class1.Token
token.TokenString= "APPEAL"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "APPEALING"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "APPLAUD"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "ATTRACTIVE"
token.TokenValue = 2.0
Tokens.Add(token)

Now what I want to do is to retreive the TokenValue for the token
string "Attractive"

Can anyone tell me how to do this?

Thanks

[Branco Medeiros]

PamelaFoxcr wrote:
<snip>

Public Class Class1
Public Class Token
Public TokenString As String
Public TokenValue As Double
End Class
End Class

in my code I fill an array of these classes like this

Dim Tokens As New ArrayList

Dim token As Class1.Token= New Class1.Token
token.TokenString= "APPEAL"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "APPEALING"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "APPLAUD"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "ATTRACTIVE"
token.TokenValue = 2.0
Tokens.Add(token)

Now what I want to do is to retreive the TokenValue for the token
string "Attractive"

<snip>

Well, it's easy: 2.0! =)))

No kidding, now... You may want to use one of the generic collections
instead of an ArrayLIst:

<aircode>
Class TokenList
Inherits System.Collections.ObjectModel.KeyedCollection( _
Of String, Class1.Token)

Sub New()
MyBase.New( _
System.StringComparer.InvariantCultureIgnoreCase _
)
End Sub

Protected Overrides Function _
GetKeyForItem(ByVal Item As Token) As String
Return Item.TokenString
End Function

End Class

Dim Tokens As New TokenList

Dim token As Class1.Token= New Class1.Token
token.TokenString= "ATTRACTIVE"
token.TokenValue = 2.0

Tokens.Add(token)
Debug.Print Tokens("Attractive").TokenValue
</aircode>

HTH.

Regards,

Branco.

[Brian Gideon]

Hi,

First, you have a more serious problem. You've only created one Token
object. You then add the same token to the ArrayList over and over
again. But, each time you change it just before it's added. As a
result you have a list that contains 4 entries of the same object which
now ends up having the string "ATTRACTIVE" since that was the last
change. You need to create a new Token object everytime.

Second, maybe an ArrayList isn't what you want. If you store the
objects in a dictionary then you can key them for easy lookups. A
Hashtable or Dictionary<Of Tmight be better. In that case you'd use
TokenString for the key and the actual Token for the value.

Brian

On Jan 25, 10:42 am, [e-mail] wrote:

I have a class like this

Public Class Class1
Public Class Token
Public TokenString As String
Public TokenValue As Double
End Class
End Class

in my code I fill an array of these classes like this

Dim Tokens As New ArrayList

Dim token As Class1.Token= New Class1.Token
token.TokenString= "APPEAL"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "APPEALING"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "APPLAUD"
token.TokenValue = 2.0
Tokens.Add(token)
token.TokenString = "ATTRACTIVE"
token.TokenValue = 2.0
Tokens.Add(token)

Now what I want to do is to retreive the TokenValue for the token
string "Attractive"

Can anyone tell me how to do this?

Thanks