Get enum-values with variable?

Dev Shed Forums Sponsor:

Stay one step ahead of the competition. Evaluate and give feedback on some of the hottest web development tools on the market today. Make your opinion heard! Click Here

April 21st, 2008, 02:56 AM

matte_172

Registered User

Join Date: Apr 2008

Posts: 3

Time spent in forums: 1 h 28 m 16 sec
Reputation Power: 0

Get enum-values with variable?

I have bit of a problem with enum.
The base story is that the enum membernames is not allowed to contain invalid characters as in my case "-". Instead i have done a wrapper that replaces the "-" with "_" wich ought to work in my case. But when the translation is done i want to read the the translated line from a enum...
Heres th code:

PHP Code:


		
			
Protected Overridable Function ReadFloatPre(ByVal CHECK As String, Optional ByVal enflags As enRFlags = 0)

Dim fval As String          

Dim strToConv = CHECK          

Dim enNTF_OKI As Int32          

Dim enNTF_OK As DOLA.enNTF_CHK  'This is the enum relacement            

Dim strBeenConv = Replace(strToConv, "-", "_")    'The replacement of characters            

LogArray(strToConv, strBeenConv)    'Just a printout of the text            

enNTF_OKI = enNTF_OK.Format(strBeenConv)    'My latest try                   

End Function

Thanks !!

April 21st, 2008, 03:11 AM

matte_172

Registered User

Join Date: Apr 2008

Posts: 3

Time spent in forums: 1 h 28 m 16 sec
Reputation Power: 0

Using

PHP Code:


		
			
 enNTF_OKI = enNTF_OK.strBeenConv

Only gives back
Error 1 'strBeenConv' is not a member of 'DOLA.DOLA.enNTF_CHK'. C:\DOLABase.vb 352 21 DOLA

April 21st, 2008, 06:04 AM

matte_172

Registered User

Join Date: Apr 2008

Posts: 3

Time spent in forums: 1 h 28 m 16 sec
Reputation Power: 0

Did like this instead...

Code:

Protected Overridable Function ReadFloatPre(ByVal CHECK As String, Optional ByVal enflags As enRFlags = 0)            
Dim fval As Double          
Dim strToConv As String = CHECK          
Dim i As Integer = 1          
Dim nmbNTF As Int32          
Dim arNTF As Array            
Dim strBeenConv As String = Replace(strToConv, "-", "_")    'The replacement of characters            
arNTF = [Enum].GetNames(GetType(DOLA.enNTF_CHK))[Enum].GetNames(GetType(DOLA.enNTF_CHK))          
For Each cnvNTF As String In arNTF              
i = i + 1              
If (cnvNTF = strBeenConv) Then                  
nmbNTF = i              
End If            
Next          
'Do the stuff we want
Return fval        
End Function

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Get enum-values with variable?

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Accelerating Trading Partner Performance
One in five. That's how many partner transactions have at least one error. That is an amazing statistic, particularly given the extraordinary leaps in innovation across the global supply chain during the past two decades. Download this white paper to learn more.

Competing on Analytics
This Tech Analysis is designed to help identify characteristics shared by analytics competitors, and includes information about 32 organizations that have made a commitment to quantitative, fact-based analysis.

Cost Effective Scaling with Virtualization and Coyote Point Systems
An overview of the industry trend toward virtualization, how server consolidation has increased the importance of application uptime and the steps being taken to integrate load balancing technology with virtualized servers.

Five Checkpoints to Implementing IP Telephony
Implementation planning for IP PBX software and IP telephony has become vital as businesses replace discontinued legacy PBX phone systems. This informative whitepaper outlines five "checkpoints" for any implementation plan that will help make IP communications a successful proposition.

Hosted Email Security: Staying Ahead of New Threats
In the last two years, email has become a fierce battleground between the nefarious forces of spam and malware, and the heroes of messaging protection. The spam volumes increased alarmingly every month, bringing clever new forms of phishing and virus propagation attacks.

More Free IT White Papers!