Referencing a TYPE data type variable with an unknown number in the name

Author

Message

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 23rd Sep 2014 01:11

Link

If you create a TYPE data type with a variable that has a number in it, is there a way to reference that name later if the number is unknown?

Below is what I tried which didn't work:

+ Code Snippet

type thingy
	id as byte
	name1 as string
	name2 as string
	name3 as string
endtype

dim level(7) as thingy
	level(1).id = 1
	level(1).name1 = "Sam"
	level(1).name2 = "Sally"
	level(1).name3 = "Sarah"
	
	level(2).id = 2
	level(2).name1 = "Bob"
	level(2).name2 = "Boris"
	level(2).name3 = "Barnaby"
	
	level(3).id = 3
	level(3).name1 = "Tex"
	level(3).name2 = "Timmy"
	level(3).name3 = "Tiger"

for x=1 to 3

	attribute$ = "name" + str$(x)
	print "Name: " + level(x).attribute$
next x

wait key

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 23rd Sep 2014 01:44

Link

Something like this?

+ Code Snippet

type thingy
   id as byte
   name1 as string
   name2 as string
   name3 as string
endtype

dim level(7) as thingy
   level(1).id = 1
   level(1).name1 = "Sam"
   level(1).name2 = "Sally"
   level(1).name3 = "Sarah"

   level(2).id = 2
   level(2).name1 = "Bob"
   level(2).name2 = "Boris"
   level(2).name3 = "Barnaby"

   level(3).id = 3
   level(3).name1 = "Tex"
   level(3).name2 = "Timmy"
   level(3).name3 = "Tiger"

for x=1 to 3

   attribute$ = level(x).name1

   if lower$(attribute$)="bob"
      print "The id# is: ";level(x).id
      exit
   endif

next x

print "Name: " + level(x).name1

wait key

Back to top

Profile PM Email

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 23rd Sep 2014 02:10

Link

Not quite. I'm looking for a way to call each of the name# variables without specifying the number at the end of the name like this:

+ Code Snippet

for x=1 to 3
    for y=1 to 3
         print "Level: " + level(x).namey
    next y
next x

The idea, is to print out all of the names for each "thingy" in the array.

Back to top

Profile PM

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 23rd Sep 2014 02:19

Link

Since you explicitly name the variables name1, name2 and name3, you cannot index them as such. This is the reason everybody wants arrays in UDT’s. Unless someone beats me to it, I’ll try to work something out.

Back to top

Profile PM Email

WickedX

15

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 23rd Sep 2014 03:33

Link

The honey do’s, kind of eat up my time for tonight. I’m working on a completely dynamic system. Maybe tomorrow.

Back to top

Profile PM Email

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 23rd Sep 2014 16:45

Link

Please don't spend your time on this on my behalf. I was asking because I preferred using a UDT to an array for a specific function for the sake of clarity, but it works perfectly well with the array. You answered my question already -- you cannot dynamically create the name of a UDT variable on-the-fly, and I thank you very much for that!

Back to top

Profile PM

Rick the Programmer

20

Years of Service

User Offline

Joined: 23rd Mar 2004

Location: Maryland

Posted: 23rd Sep 2014 16:46 Edited at: 23rd Sep 2014 17:18

Link

I would do something like this with a Case/Select-

+ Code Snippet

for x=1 to 3
    for y=1 to 3
         Select y
              Case 1
                   print "Level: " + level(x).name1$
              EndCase

              REM These function identically to Case 1, but I like
              REM putting the entirety of simple Cases on a single 
              REM line to improve overall readability of the code.
              REM ------------------------------------------------
              Case 2 : print "Level: " + level(x).name2$ : EndCase
              Case 3 : print "Level: " + level(x).name3$ : EndCase
         EndSelect
    next y
next x

Here's the minimalist snippet of the same thing

+ Code Snippet

for x=1 to 3
    for y=1 to 3
         Select y
              Case 1 : print "Level: " + level(x).name1$ : EndCase
              Case 2 : print "Level: " + level(x).name2$ : EndCase
              Case 3 : print "Level: " + level(x).name3$ : EndCase
         EndSelect
    next y
next x

There is no way, that I know of, to directly call Type data with a variable as you are describing. The compiler would assume that the "y" was a part of the variable's name and not a separate value to be appended to the "name" variable name. The compiler would look for the "namey" variable every time, and never look to substitute the value of the "y" variable in place of the y in "namey". The closest you'll find to this functionality is with arrays, i.e. name(y). As was mentioned earlier, DarkBASIC does not allow for arrays to be defined within User Defined Types(yet?- we all wish)

If we could use arrays in UDTs, you'd be able to get away with something like this, but alas, it is not possible

+ Code Snippet

for x=1 to 3
    for y=1 to 3
        print "Level " + level(x).name$(y)
    next y
next x

Your initial workaround was well-conceived, but you have to reference all UDT data verbatim as far as I know. Your code has the compiler looking for the "attribute$" data in your type, which doesn't exist. The element names of a UDT are separate from even Global Variables, in my experience. You could have a "Global ID as integer" declared but still be able to use a Level(x).ID variable since it is declared within your UDT.

Ask not for whom the bell tolls;
It tolls for ye!

Back to top

Profile PM

Ortu

DBPro Master

17

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 23rd Sep 2014 17:16 Edited at: 23rd Sep 2014 17:31

Link

This is somewhat messy, but it does give you the functionality you are looking for using a multidimensional typed array:

+ Code Snippet

type propertyData
    property as string
    value as string
endtype

dim level(7, 3) as propertyData

level(0, 0).property = "id"    : level(0, 0).value = "1"
level(0, 1).property = "name1" : level(0, 1).value = "Sam"
level(0, 2).property = "name2" : level(0, 2).value = "Sally"
level(0, 3).property = "name3" : level(0, 3).value = "Sarah"

level(1, 0).property = "id"    : level(1, 0).value = "2"
level(1, 1).property = "name1" : level(1, 1).value = "Bob"
level(1, 2).property = "name2" : level(1, 2).value = "Boris"
level(1, 3).property = "name3" : level(1, 3).value = "Barnaby"

lineY = 0
for x = 0 to 1
    for y = 0 to 3
        text 0, lineY, level(x, y).property + ": " + level(x, y).value
        inc lineY, 20
    next y
next x

sync
wait key

I am not sure that I would recommend this though, the whole purpose of being able to iterate over the types by numerical index is if you don't know the types. In the example given, the types name1, name2, name3 aren't really different types, they are just different items in a list of similar items, I am not sure why you would need to access them in the manner you are requesting and not just do something like:

+ Code Snippet

    type levelData
        id as integer
        name as string
    endtype

    dim level() as levelData

    array insert at bottom level()
    level().id = 1 : level().name = "Sam"

    array insert at bottom level()
    level().id = 1 : level().name = "Sally"

    array insert at bottom level()
    level().id = 1 : level().name = "Sarah"

    array insert at bottom level()
    level().id = 2 : level().name = "Bob"

    array insert at bottom level()
    level().id = 2 : level().name = "Boris"

    array insert at bottom level()
    level().id = 2 : level().name = "Barnaby"

    lineY = 0
    for i = 0 to array count(level())
        text 0, lineY, level(i).id + ", " + level(i).name
        inc lineY, 20
    next i

    sync
    wait key

I guess the question is, does it really matter that "Sam" is exactly "name1" and "Sally" is exactly "name2" or do you really just need to know that both Sam and Sally are names within level 1?

Back to top

Profile PM Email Website

roswell1329

14

Years of Service

User Offline

Joined: 12th Apr 2010

Location:

Posted: 23rd Sep 2014 17:30

Link

Thanks Rick and Ortu! Even if the way I was thinking isn't possible, it's cool to see several different answers to the same problem!

Back to top

Profile PM

Rick the Programmer

20

Years of Service

User Offline

Joined: 23rd Mar 2004

Location: Maryland

Posted: 23rd Sep 2014 18:26

Link

You're welcome

Programming is a lot like Yoshi Valley in Mariokart - There are many ways, some better than others, to achieve your goal... and if you're reckless you fall off the sides XD

Ask not for whom the bell tolls;
It tolls for ye!

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Referencing a TYPE data type variable with an unknown number in the name