Equating a String & Integer Variable

Collapse
This topic is closed.
X
X
 
  • Time
  • Show
Clear All
new posts
  • Roger Lord

    Equating a String & Integer Variable

    I am constructing a string in my program and then trying to use
    it to get the value of an integer variable whose label looks like
    that string. I can't figure out how to do it. For example:

    Dim aXYZ As Integer = 5
    Dim myString As String
    Dim myResults As Integer

    myString = "aXYZ"

    myResults = SomeFunction?(m yString)


    What I want is for myResults to equal 5 using "SomeFuncti on?" as
    shown above. How do I do that?

    In actuality, I have a large dataset (7,000 rows) where I count
    the number of occurrences of approximately 100 items sprinkled
    throughout the rows. I have 100 integer variables structured
    similar to aXYZ in my example above. As I do my counting in the
    dataset, I use the following code:

    For I = 0 To cntSpring - 1
    mMajor = DataSet.Tables( "Spring03").Row s(I).Item("MAJO R1")
    Select Case mMajor
    Case "ACT" : sACT += 1
    Case "AED" : sAED += 1
    Case "ANP" : sANP += 1
    Case "ARH" : sARH += 1
    etc.
    End Select
    Next

    ....where cntSprint is the number of rows in the dataset named
    "Dataset" and Spring03 is the name of one of the databases making
    up the dataset.

    Once I come out of the For...Next loop above, I have 100 integer
    variables (e.g., sACT, sAED, etc.) that represent the
    distribution of their occurrence in the dataset. In another part
    of my program, I am trying to construct a string like "sACT" and
    do something to it so that I get the associated integer number
    that came out of the For...Next loop. I'm baffled.


    Thanks
    Roger





  • Natty Gur

    #2
    Re: Equating a String & Integer Variable

    Hi,

    What about using System.Collecti on.HashTable. you can add to the hash
    table the keys (e.g., sACT, sAED, etc.) ) and values. then you can
    retrive the values by the key.

    Setting :

    For I = 0 To cntSpring - 1
    mMajor = DataSet.Tables( "Spring03").Row s(I).Item("MAJO R1")
    if OHashTable.Cont ainsKey(mMajor)
    OHashTable(mMaj or) += 1
    else
    OHashTable.Add( mMajor,1)
    end if
    Next

    Getting :

    myString = "aXYZ"

    myResults = OHashTable(mySt ring)

    Natty Gur, CTO
    Dao2Com Ltd.
    28th Baruch Hirsch st. Bnei-Brak
    Israel , 51114

    Phone Numbers:
    Office: +972-(0)3-5786668
    Fax: +972-(0)3-5703475
    Mobile: +972-(0)58-888377

    Know the overall picture


    *** Sent via Developersdex http://www.developersdex.com ***
    Don't just participate in USENET...get rewarded for it!

    Comment

    • Roger Lord

      #3
      Re: Equating a String & Integer Variable

      Natty,

      Your suggestion wasn't exactly what I had in mind; but, the
      bloody thing worked! Thanks for teaching me something new.

      Roger

      ---------------------------------------

      "Natty Gur" <natty@dao2com. com> wrote in message
      news:u6x06OFQDH A.1748@TK2MSFTN GP11.phx.gbl...
      Hi,

      What about using System.Collecti on.HashTable. you can add to the
      hash
      table the keys (e.g., sACT, sAED, etc.) ) and values. then you
      can
      retrive the values by the key.

      Setting :

      For I = 0 To cntSpring - 1
      mMajor = DataSet.Tables( "Spring03").Row s(I).Item("MAJO R1")
      if OHashTable.Cont ainsKey(mMajor)
      OHashTable(mMaj or) += 1
      else
      OHashTable.Add( mMajor,1)
      end if
      Next

      Getting :

      myString = "aXYZ"

      myResults = OHashTable(mySt ring)

      Natty Gur, CTO
      Dao2Com Ltd.
      28th Baruch Hirsch st. Bnei-Brak
      Israel , 51114

      Phone Numbers:
      Office: +972-(0)3-5786668
      Fax: +972-(0)3-5703475
      Mobile: +972-(0)58-888377

      Know the overall picture


      *** Sent via Developersdex http://www.developersdex.com ***
      Don't just participate in USENET...get rewarded for it!


      Comment

      Working...