Solved

Convert Enum to/from string

Posted on 2008-10-29
4
992 Views
Last Modified: 2010-05-25
I need to be able to do two things, convert a string value to the enum integer
an
convert an integer to the enum string value

e.g.


Public Enum MyEnum
  A = 1
  B = 2
  C = 3
  D = 4
  E = 5
  F = 6
End Enum
 
Dim columnInt as integer = ConvertToInteger("B") 'returns 2
Dim columnStr as string = ConvertToString(2+3) 'returns "E"

Open in new window

0
Comment
Question by:raterus
  • 2
4 Comments
 
LVL 13

Expert Comment

by:TechTiger007
ID: 22831870
You will have to write switch case statement inside the functions to return appropriate values
0
 
LVL 33

Accepted Solution

by:
raterus earned 0 total points
ID: 22831907
I figured it out,

'To String
[Enum].Getname(GetType(MyEnum), 3)

'From String to Enum
[Enum].Parse(gettype(MyEnum), "C")
0
 
LVL 16

Expert Comment

by:HooKooDooKu
ID: 22832002
Write the code for ConvertToInteger and ConvertToString with Select Case

However, the thing I usually like to do is define the functions to convert ENum to String and String to Enum and forget about the actual underlaying values.


Public Enum MyEnum
  MyEnum_Invalid = 0
  A = 1
  B = 2
  C = 3
  D = 4
  E = 5
  F = 6
End Enum
 
Public Function MyEnumToString( Value as MyEnum ) as String
    Select Case Value
        Case A: MyEnumToString = "A"
        Case B: MyEnumToString = "B"
        Case C: MyEnumToString = "C"
        Case D: MyEnumToString = "D"
        Case E: MyEnumToString = "E"
        Case F: MyEnumToString = "F"
        Case Else: MyEnumToString = ""
    End Select
End Function
 
Public Function StringToMyEnum( Value as String ) as MyEnum
    Select Case Value
        Case "A": StringToMyEnum = A
        Case "B": StringToMyEnum = B
        Case "C": StringToMyEnum = C
        Case "D": StringToMyEnum = D
        Case "E": StringToMyEnum = E
        Case "F": StringToMyEnum = F
        Case Else: StringToMyEnum = MyEnum_Invalid
    End Select
End Function
 
*** If you want to stick with Integers and Strings, then try this ***
 
Public Function ConvertToInteger( Value as string ) as Integer
    Select Case Left( Value,1 )
        Case "A": ConvertToInteger = 1
        Case "B": ConvertToInteger = 2
        Case "C": ConvertToInteger = 3
        Case "D": ConvertToInteger = 4
        Case "E": ConvertToInteger = 5
        Case "F": ConvertToInteger = 6
        Case Default: ConvertToInteger = 0
    End Select
End Function
 
Public Function ConvertToString( Value as Integer ) as String
    Select Case Value
        Case 1: ConvertToString = "A"
        Case 2: ConvertToString = "B"
        Case 3: ConvertToString = "C"
        Case 4: ConvertToString = "D"
        Case 5: ConvertToString = "D"
        Case 6: ConvertToString = "F"
        Case Default: ConvertToString = ""
    End Select
End Function

Open in new window

0
 
LVL 13

Expert Comment

by:TechTiger007
ID: 22832024
Thats good one. I did not know that before. Thank you raterus
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Well, all of us have seen the multiple EXCEL.EXE's in task manager that won't die even if you call the .close, .dispose methods. Try this method to kill any excels in memory. You can copy the kill function to create a check function and replace the …
It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

685 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question