Best practice for enumerating string constants

[Shayne H]

What is the best way to enumerate a grouping of strings?
The way I have been doing it is:

Public Enum PlatformID
Unknown
Win16
Win32
Win32NT
WinCE
End Enum

Private Shared sPlatform() As String = { _
"Unknown", _
"Microsoft Windows 16-bit", _
"Microsoft Windows 32-bit", _
"Microsoft Windows NT 32-bit", _
"Microsoft Windows CE"}

Private Shared Function PlatformToStrin g(ByVal platform As
OSInfo.Platform ID) As String
Return sPlatform(platf orm)
End Function

Is there a better way to do this?
I feel that the strings should be constants rather than stored in a private
array field, but I cannot see a way other than a really long select case
statement.

--
Thanks for any help,
Shayne H

[Jay B. Harlow [MVP - Outlook]]

Shayne,
I would consider adding a custom attribute to each value of the Enum, then
in the PlatformToStrin g use Reflection to retrieve the value of the custom
attribute.

This way the meta data about the value (the description) is associated
directly with the value. Of course if you did not author the enum this won't
work ;-)

Another option I would consider is to store the values in a Resource file
(.resx) then using System.Resource s.ResourceManag er retrieve the description
based on the text name of the enum value. The benefit of this method is its
easy to internationaliz e.

I do not have specific examples of either of the above, post if you have
questions implementing either.

Hope this helps
Jay

"Shayne H" <shaynehATlycos SPAMGOTOHELLcoD OTuk> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

What is the best way to enumerate a grouping of strings?
The way I have been doing it is:

Public Enum PlatformID
Unknown
Win16
Win32
Win32NT
WinCE
End Enum

Private Shared sPlatform() As String = { _
"Unknown", _
"Microsoft Windows 16-bit", _
"Microsoft Windows 32-bit", _
"Microsoft Windows NT 32-bit", _
"Microsoft Windows CE"}

Private Shared Function PlatformToStrin g(ByVal platform As
OSInfo.Platform ID) As String
Return sPlatform(platf orm)
End Function

Is there a better way to do this?
I feel that the strings should be constants rather than stored in a private array field, but I cannot see a way other than a really long select case
statement.

--
Thanks for any help,
Shayne H

[_Andy_]

On Mon, 13 Oct 2003 00:25:17 +0930, "Shayne H"
<shaynehATlycos SPAMGOTOHELLcoD OTuk> wrote:

What is the best way to enumerate a grouping of strings?
The way I have been doing it is:

Public Enum PlatformID
Unknown
Win16
Win32
Win32NT
WinCE
End Enum
I'm guessing you're not talking about System.Platform ID.

Private Shared sPlatform() As String = { _
"Unknown", _
"Microsoft Windows 16-bit", _
"Microsoft Windows 32-bit", _
"Microsoft Windows NT 32-bit", _
"Microsoft Windows CE"}

I don't suppose this is what you're after...

Dim oPlatformID As PlatformID
oPlatformID = PlatformID.Win3 2
MsgBox( oPlatformID.ToS tring() )

If internationalis ation is an issue, then you should use resources.
(Unlikely, as "Microsoft Windows CE" is the same in most languages)

If you require spaces (etc.) to be in the name, the best way is to
implement a singleton class that wraps up a StringDictionar y
(initialised in its constructor) - see below.

And if you fancy being a pedant, you should implement a Platform class
instead of an enum, a PlatformCollect ion of some sorts (an inherited
HybridDictionar y is a good one), a PlatformFactory object to serialise
the objects from resources (and implement the GetCurrentPlatf orm
method)... and be sure to implement IComparable and IEnumerable on the
Platform and PlatformCollect ion respectively. Infact, inherit your own
IPlatformEnumer able so that you can iterate though any other ADT
collections you decide to implement. Ooh! And don't forget to
implement an IPlatform interface in case anyone wants to alter the
implementation of a Platform... ;]

More seriously, the following allows for future extension (and the
model can be applied to other things... for your reference)

Public Class PlatformFactory
Private Shared mPlatformMap As HybridDictionar y

Shared Sub New()
mPlatformMap = New HybridDictionar y()
mPlatformMap.Ad d(PlatformID.Un known, "Unknown")
mPlatformMap.Ad d(PlatformID.Wi n16, "Microsoft Windows 16-bit")
' etc...
End Sub

Public Shared Function GetName(ByVal oPlatformID As PlatformID) _
As String
Return mPlatformMap(oP latformID)
End Function

End Class
Rgds,

[Fergus Cooney]

Hi Shayne,

I can't say I've developed any respect for Enums yet - too many
limitations against too few advantages.

As always, VB./NET has several ways to skin a cat.
Here's a way of doing the job with a Class and a Structure.

A bit of a palaver, perhaps - but it works! ;-)

Regards,
Fergus

<code>
Public Class Platform
Public Structure IdName
Private _Id As Integer
Private _Name As String
Public Sub New (Id As Integer, Name As String)
_Id = Id : _Name = Name
End Sub
Public ReadOnly Property Id As Integer
Get
Return _Id
End Get
End Property
Public Overrides Function ToString As String
Return _Name
End Function
End Structure

Public ReadOnly Shared Unknown As New IdName (0, "Unknown")
Public ReadOnly Shared Win16 As New IdName (1, "Win 16-bit")
Public ReadOnly Shared Win32 As New IdName (2, "Win 32-bit")
Public ReadOnly Shared Win32NT As New IdName (3, "Win NT 32-bit")
Public ReadOnly Shared WinCE As New IdName (4, "Win CE")
End Class

S = Platform.Unknow n.Id & ", " & Platform.Unknow n.ToString
</code>

[Shayne H]

Thanks guys

"Shayne H" <shaynehATlycos SPAMGOTOHELLcoD OTuk> wrote in message
news:#V******** ******@tk2msftn gp13.phx.gbl...

What is the best way to enumerate a grouping of strings?
The way I have been doing it is:

Public Enum PlatformID
Unknown
Win16
Win32
Win32NT
WinCE
End Enum

Private Shared sPlatform() As String = { _
"Unknown", _
"Microsoft Windows 16-bit", _
"Microsoft Windows 32-bit", _
"Microsoft Windows NT 32-bit", _
"Microsoft Windows CE"}

Private Shared Function PlatformToStrin g(ByVal platform As
OSInfo.Platform ID) As String
Return sPlatform(platf orm)
End Function

Is there a better way to do this?
I feel that the strings should be constants rather than stored in a private array field, but I cannot see a way other than a really long select case
statement.

--
Thanks for any help,
Shayne H