Sorting UDTs - GameCreators Forum

Author

Message

DARKBASIC PRO 3d WORLD EDITOR

13

Years of Service

User Offline

Joined: 2nd May 2012

Location:

Posted: 2nd May 2015 07:50

Link

Okay.. I have been using the concept of sorting arrays as non-UDT arrays but I decided to go the UDT route because it is just easier to read and write. I also seen Ian's commands which made me want to do this even more. However, I've run into a problem in sorting where I can't sort like I want to...

non-UDT array sort

do
flag=0

for i=1 to 399
if PlayerStats(team,i,0)>PlayerStats(team,i+1,0)
a=PlayerStats(team,i,0): b=PlayerStats(team,i+1,0)
PlayerStats(team,i,0)=b: PlayerStats(team,i+1,0)=a
for j=1 to 40
a=PlayerStats(team,i,j): b=PlayerStats(team,i+1,j)
PlayerStats(team,i,j)=b: PlayerStats(team,i+1,j)=a
next j
flag=1
endif
next i

if flag=0 then exit

loop

This method worked when the '0' in the variable -----> PlayerStats(team,i,0) was the variable to sort

but now I have instead of PlayerStats(team,player,0-40)
I have... PlayerStats(team,player).Name which is then first item.. I can't seem to sort with Ian's commands.. help!!

- Infinity is Simplicity -

Back to top

Profile PM

Ortu

DBPro Master

17

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 2nd May 2015 10:01 Edited at: 2nd May 2015 10:04

Link

Why not do

+ Code Snippet

Type playerdata
   Player as integer
   Team as integer
   Name as string
Endtype

Dim PlayerStats() as playerdata

Should be easier to sort if it is not mixing both udt and multi dimension

Back to top

Profile PM Email Website

DARKBASIC PRO 3d WORLD EDITOR

13

Years of Service

User Offline

Joined: 2nd May 2012

Location:

Posted: 2nd May 2015 22:53

Link

Quote: "Should be easier to sort if it is not mixing both udt and multi dimension"

Well to give a better detail, this is what I'm doing now with the UDT..

+ Code Snippet

type playerdata
    
    Name as String
    Pos as String
    Height as Integer
    Age as Integer
    Minutes as Integer
    Money as Double Integer
    YearsLeft as Integer

    OFF as float
    DEF as float
    FG as float
    FT as float
    P3 as float
    REB_RAT as float
    AST_RAT as float
    STL_RAT as float
    BLK_RAT as float
    OVR as float
endtype
global dim player(40,15) as playerdata

I dont know if anyone is familiar with basketball but this is an array to hold players data.. 40 teams, 15 players a peice
All the players have been randomly given values from name to ratings..
Doing this however, it doesn't fix the depth chart accordingly...

like..

.Name .Pos .Height .Age .OVR
---------------------------------------------------
player(1,1) Justin Powers PF 6'11" 26 77 starters
player(1,2) Rob Manowski SF 6'10" 23 82
player(1,3) Jim Jefferson C 6'11" 27 78
player(1,4) Brandon Hollis PG 6'2" 29 76
player(1,5) Jimmy Gordon SG 6'5" 32 73
---------------------------------------------------
player(1,6) Al Harris PF 6'8" 30 73 bench
player(1,7) Steve Porter SF 6'8" 35 61
player(1,8) Harold Woods C 6'10" 30 72
player(1,9) Stevie Hardy PG 6'7" 21 70
player(1,10) Prince Powers SG 6'5" 22 84
player(1,11) Jin Lee PF 6'11" 22 74
player(1,12) John Martinez SF 6'10" 22 70
player(1,13) Jeff Brown C 6'11" 25 68
player(1,14) Daquan Sanders PG 6'1" 18 68
player(1,15) Drazen Mozgov SG 6'4" 19 69

If your familiar with basketball.. You know the starting five most likely are the best 5 players. This isn't the case here as random values are given. I want to sort it so the best PF overall is always first. E.g. player(x,1) with x being the team number. The 2nd best PF would be 6 and last would be 11.

starting bench bench
1 PF 6 PF 11 PF
2 SF 7 SF 12 SF
3 C 8 C 13 C
4 PG 9 PG 14 PG
5 SG 10 SG 15 SG

so looking back at the data table..
Prince Powers should be the starting SG because he is 84 OVR and the current starter is only 73 OVR

My fault to get into detail, but thats the only way I can explain it fully...

*side note* if you want a name generator or a schedule maker, I have source available...

- Infinity is Simplicity -

Back to top

Profile PM

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 3rd May 2015 14:49 Edited at: 3rd May 2015 20:46

Link

How about use 'Linked Lists', parent and child structure for this.

You'd have an array that holds all the team data, then you'd have one that holds all the player data and each player is just added to a team in a list fashion.

I prefer this method because players or entities are treated singularly, can be easily moved and edited and aren't bound to a specific array.

Another advantage is it saves memory cause you only use want you need and don't need to predefine array limits which affect every team. Say team A has 30 players (b players etc...) and team B as 10 players, you'd have to make the array _data(2,30) < but this means that team B has 20 empty players stored in memory doing nothing and it's limited to 20 more players. But doing link listed we can have any amount of teams and players in a team without empty arrays and doesn't affect other arrays elements when we want to add or delete entries.

Here's an example:

gosub declare_gamedata

sync on : sync rate 60

` setup teams
team0 = create_team( "Orange Nuggets" )
team1 = create_team( "Hot Potatoes" )

` setup players
_playerdata.name            = "Justin Powers"
_playerdata.position        = "PF"
_playerdata.height          = "6'11"
_playerdata.age             = 26
add_playerToTeam( create_player(), team0 )

_playerdata.name            = "Rob Manowski"
_playerdata.position        = "SF"
_playerdata.height          = "6'10"
_playerdata.age             = 23
add_playerToTeam( create_player(), team0 )

_playerdata.name            = "Chips Magee"
_playerdata.position        = "C"
_playerdata.height          = "5'11"
_playerdata.age             = 26
add_playerToTeam( create_player(), team1 )

_playerdata.name            = "Dorito King"
_playerdata.position        = "PH"
_playerdata.height          = "0'2"
_playerdata.age             = 1
add_playerToTeam( create_player(), team1 )

do : cls

` display players and teams
    x = 64 : y = 64
    for teams = 0 to array count(_teamdata())
        
        ` print teams
        text x+(teams*256), y, _teamdata(teams).name
        
        ` check to see if this team has player then process
        child = _teamdata(teams).firstPlayer
        
        if child > -1
        
            for n = 0 to 64     `exit before it hits this, apparently for-next loops are better for the system
                
                if child  = - 1 then exit   `no more players, ext
                
                ` print player names
                text x+24+(teams*256), y+24+(n*46), _playerdata(child).name
                
                ` print player attributes
                s$ = _playerdata(child).position + ", " + _playerdata(child).height + ", " + str$(_playerdata(child).age)
                text x+32+(teams*256), y+38+(n*46), s$
                
                `next player and repeat
                child = _playerdata(child).nextPlayer
                
            next
            
        endif
            
    next

sync
loop

type teamdata

` core
    firstPlayer
    lastPlayer

` attributes
    name        as string
    
endtype

type playerdata
    
    ` core
    parent
    prevPlayer
    nextPlayer
    
    ` attributes
    name        as string
    position    as string
    height      as string
    age

endtype

`declare variables for function
declare_gamedata:

global dim _teamdata() as teamdata
    global dim _playerdata() as playerdata

`This is used to pass large amounts of UDT data into a function.
    `With this we can add or use any amount of attributes without
    `having to editing anything, specifically the function syntax
    `just make sure to reset it if your using it dynamically

global _playerdata as playerdata        `passing variable
    
    `core pass setup
    _playerdata.parent = -1
    _playerdata.prevPlayer = -1
    _playerdata.nextPlayer = -1
    
return

function create_team( name as string )

array insert at bottom _teamdata()
    out = array count(_teamdata())

`core
    _teamdata().firstPlayer = -1
    _teamdata().lastPlayer = -1

` attributes
    _teamdata().name = name
    
endfunction out

function create_player()

array insert at bottom _playerdata()
    out = array count(_playerdata())

_playerdata() = _playerdata
    
endfunction out

function add_playerToTeam( player, team )

if _teamdata(team).firstPlayer = -1
        _teamdata(team).firstPlayer = player
    else
        _playerdata(_teamdata(team).lastPlayer).nextPlayer = player
        _playerdata(player).prevPlayer = _teamdata(team).lastPlayer
    endif

_playerdata(player).parent = team
    _teamdata(team).lastPlayer = player

endfunction

+ Code Snippet

gosub declare_gamedata

sync on : sync rate 60

` setup teams
team0 = create_team( "Orange Nuggets" )
team1 = create_team( "Hot Potatoes" )

` setup players
_playerdata.name            = "Justin Powers"
_playerdata.position        = "PF"
_playerdata.height          = "6'11"
_playerdata.age             = 26
add_playerToTeam( create_player(), team0 )

_playerdata.name            = "Rob Manowski"
_playerdata.position        = "SF"
_playerdata.height          = "6'10"
_playerdata.age             = 23
add_playerToTeam( create_player(), team0 )

_playerdata.name            = "Chips Magee"
_playerdata.position        = "C"
_playerdata.height          = "5'11"
_playerdata.age             = 26
add_playerToTeam( create_player(), team1 )

_playerdata.name            = "Dorito King"
_playerdata.position        = "PH"
_playerdata.height          = "0'2"
_playerdata.age             = 1
add_playerToTeam( create_player(), team1 )

do : cls

    ` display players and teams
    x = 64 : y = 64
    for teams = 0 to array count(_teamdata())
        
        ` print teams
        text x+(teams*256), y, _teamdata(teams).name
        
        ` check to see if this team has player then process
        child = _teamdata(teams).firstPlayer
        
        if child > -1
        
            for n = 0 to 64     `exit before it hits this, apparently for-next loops are better for the system
                
                if child  = - 1 then exit   `no more players, ext
                
                ` print player names
                text x+24+(teams*256), y+24+(n*46), _playerdata(child).name
                
                ` print player attributes
                s$ = _playerdata(child).position + ", " + _playerdata(child).height + ", " + str$(_playerdata(child).age)
                text x+32+(teams*256), y+38+(n*46), s$
                
                `next player and repeat
                child = _playerdata(child).nextPlayer
                
            next
            
        endif
            
    next

    sync
loop

type teamdata

    ` core
    firstPlayer
    lastPlayer

    ` attributes
    name        as string
    
endtype

type playerdata
    
    ` core
    parent
    prevPlayer
    nextPlayer
    
    ` attributes
    name        as string
    position    as string
    height      as string
    age

endtype

`declare variables for function
declare_gamedata:

    global dim _teamdata() as teamdata
    global dim _playerdata() as playerdata

    `This is used to pass large amounts of UDT data into a function.
    `With this we can add or use any amount of attributes without
    `having to editing anything, specifically the function syntax
    `just make sure to reset it if your using it dynamically

    global _playerdata as playerdata        `passing variable
    
    `core pass setup
    _playerdata.parent = -1
    _playerdata.prevPlayer = -1
    _playerdata.nextPlayer = -1
    
return

function create_team( name as string )

    array insert at bottom _teamdata()
    out = array count(_teamdata())

    `core
    _teamdata().firstPlayer = -1
    _teamdata().lastPlayer = -1    

    ` attributes
    _teamdata().name = name
    
endfunction out

function create_player()

    array insert at bottom _playerdata()
    out = array count(_playerdata())

    _playerdata() = _playerdata
    
endfunction out

function add_playerToTeam( player, team )

    if _teamdata(team).firstPlayer = -1
        _teamdata(team).firstPlayer = player
    else
        _playerdata(_teamdata(team).lastPlayer).nextPlayer = player
        _playerdata(player).prevPlayer = _teamdata(team).lastPlayer
    endif

    _playerdata(player).parent = team
    _teamdata(team).lastPlayer = player

endfunction

"Get in the Van!" - Van B

Back to top

Profile PM Email

Chris Tate

DBPro Master

16

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 5th May 2015 19:37

Link

Agreed. Using multidimensional arrays reduces the amount of array manipulation functionality available to you if you stick with one column; its logic is easier to work with and permits you to give the teams some crucial information:

Teams( Player(MyPlayer).Team ).Score = 0

Sets the teams score to zero

Player(MyTeam, MyPlayer).Score = 0

Would only set the player's score to zero, you'd have to iterate all the other players to set their scores aswell. Even if you worked around that, the name of the variable is not self descriptive; think of reading the following in 12 months time after college/uni/holiday/marriage or some other conflicting event:

Player(4,3).Age = 30 // Tired programmer asks 'Is that team 4 or player 4'

Quote: "players or entities are treated singularly, can be easily moved and edited and aren't bound to a specific array. "

I think this is the cruicial point; what if you decide to allow teams to employ substitute players, or what if you wanted to add a reserves team?

Obviously what Ortu and Sasuke stated is more than sufficient; but it doesn't hurt to contribute an additional opinion.

Back to top

Profile PM Email Website

Bored of the Rings

User Banned

Posted: 8th May 2015 09:42 Edited at: 8th May 2015 09:52

Link

I don't know if this is any help, but the code below is how I performed a UDT sort:

The function for the UDT sort is:
function AlphaSortUDT(sortorder,debug).

The program as a whole just does a sort (on a data list of functions) without UDT and then does it with UDT. I wanted to see how long both ways took and too see which was more efficient/practical for the project I wanted to use it in.

`declare type (in this case the details of a function)
 type t_function
    `positions are in bytes
 `   start_position as integer  `keyword start position
 `   end_position as integer    `closing block keyword start position
 `   func_name as string        `name of the func-tion including parameters 
    func_short_name as string  `name of func-tion only without the parameters in parenthesis
 `   func_location as string `directory location of function
 `   func_source as string   `source file name e.g. main.dba, myproject.dbpro
 `  func_return_var as string `return variable specified after END-FUNCTION keyword
 endtype

`set up global vars
`set up the function list as that of type t_function declared above
global dim funclist() as t_function `set to -1 intialliy
global dim templist1() as t_function 
global dim templist2() as t_function
global dim functions$()

cls
print "Test 1: Sort without UDT"

`read in some data
restore mydata
    repeat
        read func$
            `insert an array element/item into the global var functions$() 
            array insert at bottom functions$(0)
        
        functions$()=func$
            print func$
    `no more data to be read?
    until func$=""
print "List before sort"
wait 3000
print "Performing sort - updated version."
`call alphasort function
alphasort(0,1) `param1 : 0=ascending sort order, 1=descending sort order, param2 : 0=no debug, 1=debug 
`display the results post sort process
for i = 0 to array count(functions$(0))-1
    print str$(i+1)+": "+functions$(i)
next i
undim functions$()
wait key

cls
print "Test 2: Sort with UDT"

firstrun=1
restore mydata
    repeat
        read func$
        `insert an array element/item into the global var funclist() 
        array insert at bottom funclist(0)
        funclist().func_short_name=func$
        print func$
    `no more data to be read?
    until func$=""
    
dim templist1(array count(funclist()))
dim templist2(array count(funclist()))

print "List before sort"
wait 3000
print "Performing sort - updated version."
`call alphasort function on UDT
AlphaSortUDT(0,1) `param1 : 0=ascending sort order, 1=descending sort order, param2 : 0=no debug, 1=debug 
`display the results post sort process
for i = 0 to array count(funclist(0))-1
    print str$(i+1)+": "+funclist(i).func_short_name
next i

print
print "Press a key to quit application."
wait key

end

`AlphaSort on strings
function alphasort(sortorder,debug)
    if debug = 1
        `reset timer to zero
        timer()=0
        `record start time
        begintime=timer()
    endif
    
    ` repeat for every string in the array (outer loop)
    for i = 0 to array count(functions$())-1

` repeat for every string in the array (inner loop)
        for i2=0 to array count(functions$())-1   
            
            `return first letter of the string in the outer loop 
            f$=upper$(left$(functions$(i),1))
            
            `return first letter of the string in the inner loop 
            fi$=upper$(left$(functions$(i2),1))

`compare the ascii values of both string and
            `swap if values not the same
            `NOTE: use < for ascending order and > for descending order
            `i.e. Z-A order
            if sortorder =0
                if asc(f$) < asc(fi$)
                    SwapPositions(i,i2)
                    `message "First Letter differs : sort order is no- "+str$(i)+" : "+str$(i2)
                    `SwapPositions3(i,i2)
                endif
            else if sortorder = 1
                    if asc(f$) > asc(fi$)
                        SwapPositions(i,i2)
                    `message "First Letter differs : sort order is yes- "+str$(i)+" : "+str$(i2)
                        `SwapPositions3(i,i2)
                    endif
                 endif
            endif
           `compare the first letter in both strings
           `are they the same? 
           if f$ = fi$
           
                `if the are the same, get length
                `of the first string in the outer loop
                for l=2 to len(functions$(i))
                    `get next character in both strings
                    f$=upper$(mid$(functions$(i),l))
                    fi$=upper$(mid$(functions$(i2),l))
                        
                    `if the next character is not the same
                    if f$ <> fi$
                        `compare ascii values to see
                        `which is higher or lower 
                        `note: use the < for ascending and > for descening order
                        if sortorder = 0
                            if asc(f$) < asc(fi$)
                                `swap positions in the array
                                SwapPositions(i,i2)
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                `SwapPositions3(i,i2)
                            endif
                        else if sortorder = 1
                                if asc(f$) > asc(fi$)
                                    `swap positions in the array
                                    SwapPositions(i,i2)
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                    `SwapPositions3(i,i2)
                                endif
                             endif
                        endif
                        ` exit the loop 
                        exit
                    endif
                next l
           endif                
        next i2
    next i
    
    if debug=1
        ` record end time 
        endtime=timer()
        `get duration in milliseconds
        execution_time=endtime-begintime
        print 
        print "Sort took "+str$(execution_time)+" millseconds to process "+str$(array count(functions$(0)))+" functions."
        print
    endif
endfunction

`AlphaSort on strings
function AlphaSortUDT(sortorder,debug)
    if debug = 1
        `reset timer to zero
        timer()=0
        `record start time
        begintime=timer()
    endif
    
    ` repeat for every string in the array (outer loop)
    for i = 0 to array count(funclist())-1

` repeat for every string in the array (inner loop)
        for i2=0 to array count(funclist())-1 
            
            `return first letter of the string in the outer loop 
            f$=upper$(left$(funclist(i).func_short_name,1))
            
            `return first letter of the string in the inner loop 
            fi$=upper$(left$(funclist(i2).func_short_name,1))

`compare the ascii values of both string and
            `swap if values not the same
            `NOTE: use < for ascending order and > for descending order
            `i.e. Z-A order
            if sortorder =0
                if asc(f$) < asc(fi$)
                    `message "First Letter differs : sort order is no- "+str$(i)+" : "+str$(i2)
                    SwapPositionsUDT(i,i2)
                endif
            else if sortorder = 1
                    if asc(f$) > asc(fi$)
                    `message "First Letter differs : sort order is yes- "+str$(i)+" : "+str$(i2)
                        SwapPositionsUDT(i,i2)
                    endif
                 endif
            endif
           `compare the first letter in both strings
           `are they the same? 
           if f$ = fi$
           
                `if the are the same, get length
                `of the first string in the outer loop
                for l=2 to len(funclist(i).func_short_name)
                    `get next character in both strings
                    f$=upper$(mid$(funclist(i).func_short_name,l))
                    fi$=upper$(mid$(funclist(i2).func_short_name,l))
                        
                    `if the next character is not the same
                    if f$ <> fi$
                        `compare ascii values to see
                        `which is higher or lower 
                        `note: use the < for ascending and > for descening order
                        if sortorder = 0
                            if asc(f$) < asc(fi$)
                                `swap positions in the array
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                SwapPositionsUDT(i,i2)
                            endif
                        else if sortorder = 1
                                if asc(f$) > asc(fi$)
                                    `swap positions in the array
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                    SwapPositionsUDT(i,i2)
                                endif
                             endif
                        endif
                        ` exit the loop 
                        exit
                    endif
                next l
           endif                
        next i2
    next i
    
    if debug=1
        ` record end time 
        endtime=timer()
        `get duration in milliseconds
        execution_time=endtime-begintime
        print 
        print "Sort took "+str$(execution_time)+" millseconds to process "+str$(array count(funclist(0)))+" functions."
        print
    endif
endfunction

function SwapPositions(i,i2)
    temp$=functions$(i2)
    functions$(i2)=functions$(i)
    functions$(i)=temp$
endfunction

function SwapPositionsUDT(i,i2)
 `put all UDT vars into temp vars ready for swapping - must be better way
 `may be to find out pointer ref to point to type definition???
`    templist1(i).func_name=funclist(i).func_name
    templist1(i).func_short_name=funclist(i).func_short_name                
 `   templist1(i).func_return_var=funclist(i).func_return_var
 `   templist1(i).start_position=funclist(i).start_position  
 `   templist1(i).end_position=funclist(i).end_position 
 `   templist1(i).func_location=funclist(i).func_location
 `   templist1(i).func_source=funclist(i).func_source

`    templist2(i).func_name=funclist(i2).func_name
    templist2(i).func_short_name=funclist(i2).func_short_name  
`    templist2(i).func_return_var=funclist(i2).func_return_var
`    templist2(i).start_position=funclist(i2).start_position
`    templist2(i).end_position=funclist(i2).end_position
`    templist2(i).func_location=funclist(i2).func_location
`    templist2(i).func_source=funclist(i2).func_source

`===========================================================================================================                    
`    funclist(i).func_name=templist2(i).func_name
    funclist(i).func_short_name=templist2(i).func_short_name
`    funclist(i).func_return_var=templist2(i).func_return_var
`    funclist(i).start_position=templist2(i).start_position
`    funclist(i).end_position=templist2(i).end_position
`    funclist(i).func_location=templist2(i).func_location
`    funclist(i).func_source=templist2(i).func_source
    
 `   funclist(i2).func_name=templist1(i).func_name
    funclist(i2).func_short_name=templist1(i).func_short_name
 `   funclist(i2).func_return_var=templist1(i).func_return_var
 `   funclist(i2).start_position=templist1(i).start_position
 `   funclist(i2).end_position=templist1(i).end_position
 `   funclist(i2).func_location=templist1(i).func_location
 `   funclist(i2).func_source=templist1(i).func_source
endfunction

mydata:
data "load_img"
data "get_img"
data "load_sound"
data "make_spr"
data "open_to_read"
data "open_to_write"
data "GetAppName"
data "assignid"
data "downld"
data "PointCameraUsingMouse"
data "FindMatchingVertices"
data "SetUpScreen"
data "PositionOfString"
data "OccursInString"
data "Insrt$"
data "Del$"
data "Replce$"
data "Cpy$"
data "instr2$"
data "subString"
data "FlipBackSlash$(p1$)"
data "MakeScreenFromMemory"
data "MakeImageFromMemory"
data "Export"
data "ViewFile"
data "ExportToExcelFormat"
data "ExportToTextFormat"
data "StoreAsExcel"
data "StoreAsText"
data "CutOutImages"
data "EstablishConnection"
data "UserSelectFile$"
data "ConvertFilename"
data "GenerateLicenseNumbers"
data "GenerateLicenseNumbersV2"
data "SaveLicensesToFile"
data "ClearLicensesFromMem"
data "LoadLicensesIntoMem"
data "ViewLicensesFromMem"
data "SelectScreenMode"

+ Code Snippet

`declare type (in this case the details of a function)
 type t_function
    `positions are in bytes
 `   start_position as integer  `keyword start position
 `   end_position as integer    `closing block keyword start position
 `   func_name as string        `name of the func-tion including parameters 
    func_short_name as string  `name of func-tion only without the parameters in parenthesis
 `   func_location as string `directory location of function
 `   func_source as string   `source file name e.g. main.dba, myproject.dbpro
 `  func_return_var as string `return variable specified after END-FUNCTION keyword
 endtype

`set up global vars
`set up the function list as that of type t_function declared above
global dim funclist() as t_function `set to -1 intialliy
global dim templist1() as t_function 
global dim templist2() as t_function
global dim functions$()

cls
print "Test 1: Sort without UDT"

`read in some data
restore mydata
    repeat
        read func$
            `insert an array element/item into the global var functions$() 
            array insert at bottom functions$(0)
        
        functions$()=func$
            print func$
    `no more data to be read?
    until func$=""
print "List before sort"
wait 3000
print "Performing sort - updated version."
`call alphasort function
alphasort(0,1) `param1 : 0=ascending sort order, 1=descending sort order, param2 : 0=no debug, 1=debug 
`display the results post sort process
for i = 0 to array count(functions$(0))-1
    print str$(i+1)+": "+functions$(i)
next i
undim functions$()
wait key


cls
print "Test 2: Sort with UDT"

firstrun=1
restore mydata
    repeat
        read func$
        `insert an array element/item into the global var funclist() 
        array insert at bottom funclist(0)
        funclist().func_short_name=func$
        print func$
    `no more data to be read?
    until func$=""
    
dim templist1(array count(funclist()))
dim templist2(array count(funclist()))

print "List before sort"
wait 3000
print "Performing sort - updated version."
`call alphasort function on UDT
AlphaSortUDT(0,1) `param1 : 0=ascending sort order, 1=descending sort order, param2 : 0=no debug, 1=debug 
`display the results post sort process
for i = 0 to array count(funclist(0))-1
    print str$(i+1)+": "+funclist(i).func_short_name
next i

print
print "Press a key to quit application."
wait key

end

`AlphaSort on strings
function alphasort(sortorder,debug)
    if debug = 1
        `reset timer to zero
        timer()=0
        `record start time
        begintime=timer()
    endif
    
    ` repeat for every string in the array (outer loop)
    for i = 0 to array count(functions$())-1

    ` repeat for every string in the array (inner loop)
        for i2=0 to array count(functions$())-1   
            
            `return first letter of the string in the outer loop 
            f$=upper$(left$(functions$(i),1))
            
            `return first letter of the string in the inner loop 
            fi$=upper$(left$(functions$(i2),1))

            `compare the ascii values of both string and
            `swap if values not the same
            `NOTE: use < for ascending order and > for descending order
            `i.e. Z-A order
            if sortorder =0
                if asc(f$) < asc(fi$)
                    SwapPositions(i,i2)
                    `message "First Letter differs : sort order is no- "+str$(i)+" : "+str$(i2)
                    `SwapPositions3(i,i2)
                endif
            else if sortorder = 1
                    if asc(f$) > asc(fi$)
                        SwapPositions(i,i2)
                    `message "First Letter differs : sort order is yes- "+str$(i)+" : "+str$(i2)
                        `SwapPositions3(i,i2)
                    endif
                 endif
            endif
           `compare the first letter in both strings
           `are they the same? 
           if f$ = fi$
           
                `if the are the same, get length
                `of the first string in the outer loop
                for l=2 to len(functions$(i))
                    `get next character in both strings
                    f$=upper$(mid$(functions$(i),l))
                    fi$=upper$(mid$(functions$(i2),l))
                        
                    `if the next character is not the same
                    if f$ <> fi$
                        `compare ascii values to see
                        `which is higher or lower 
                        `note: use the < for ascending and > for descening order
                        if sortorder = 0
                            if asc(f$) < asc(fi$)
                                `swap positions in the array
                                SwapPositions(i,i2)
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                `SwapPositions3(i,i2)
                            endif
                        else if sortorder = 1
                                if asc(f$) > asc(fi$)
                                    `swap positions in the array
                                    SwapPositions(i,i2)
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                    `SwapPositions3(i,i2)
                                endif
                             endif
                        endif
                        ` exit the loop 
                        exit
                    endif
                next l
           endif                
        next i2
    next i
    
    if debug=1
        ` record end time 
        endtime=timer()
        `get duration in milliseconds
        execution_time=endtime-begintime
        print 
        print "Sort took "+str$(execution_time)+" millseconds to process "+str$(array count(functions$(0)))+" functions."
        print
    endif
endfunction

`AlphaSort on strings
function AlphaSortUDT(sortorder,debug)
    if debug = 1
        `reset timer to zero
        timer()=0
        `record start time
        begintime=timer()
    endif
    
    ` repeat for every string in the array (outer loop)
    for i = 0 to array count(funclist())-1

    ` repeat for every string in the array (inner loop)
        for i2=0 to array count(funclist())-1 
            
            `return first letter of the string in the outer loop 
            f$=upper$(left$(funclist(i).func_short_name,1))
            
            `return first letter of the string in the inner loop 
            fi$=upper$(left$(funclist(i2).func_short_name,1))

            `compare the ascii values of both string and
            `swap if values not the same
            `NOTE: use < for ascending order and > for descending order
            `i.e. Z-A order
            if sortorder =0
                if asc(f$) < asc(fi$)
                    `message "First Letter differs : sort order is no- "+str$(i)+" : "+str$(i2)
                    SwapPositionsUDT(i,i2)
                endif
            else if sortorder = 1
                    if asc(f$) > asc(fi$)
                    `message "First Letter differs : sort order is yes- "+str$(i)+" : "+str$(i2)
                        SwapPositionsUDT(i,i2)
                    endif
                 endif
            endif
           `compare the first letter in both strings
           `are they the same? 
           if f$ = fi$
           
                `if the are the same, get length
                `of the first string in the outer loop
                for l=2 to len(funclist(i).func_short_name)
                    `get next character in both strings
                    f$=upper$(mid$(funclist(i).func_short_name,l))
                    fi$=upper$(mid$(funclist(i2).func_short_name,l))
                        
                    `if the next character is not the same
                    if f$ <> fi$
                        `compare ascii values to see
                        `which is higher or lower 
                        `note: use the < for ascending and > for descening order
                        if sortorder = 0
                            if asc(f$) < asc(fi$)
                                `swap positions in the array
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                SwapPositionsUDT(i,i2)
                            endif
                        else if sortorder = 1
                                if asc(f$) > asc(fi$)
                                    `swap positions in the array
                    `message "First Letter same : sort order is no- "+str$(i)+" : "+str$(i2)
                                    SwapPositionsUDT(i,i2)
                                endif
                             endif
                        endif
                        ` exit the loop 
                        exit
                    endif
                next l
           endif                
        next i2
    next i
    
    if debug=1
        ` record end time 
        endtime=timer()
        `get duration in milliseconds
        execution_time=endtime-begintime
        print 
        print "Sort took "+str$(execution_time)+" millseconds to process "+str$(array count(funclist(0)))+" functions."
        print
    endif
endfunction

function SwapPositions(i,i2)
    temp$=functions$(i2)
    functions$(i2)=functions$(i)
    functions$(i)=temp$
endfunction

function SwapPositionsUDT(i,i2)
 `put all UDT vars into temp vars ready for swapping - must be better way
 `may be to find out pointer ref to point to type definition???
`    templist1(i).func_name=funclist(i).func_name
    templist1(i).func_short_name=funclist(i).func_short_name                
 `   templist1(i).func_return_var=funclist(i).func_return_var
 `   templist1(i).start_position=funclist(i).start_position  
 `   templist1(i).end_position=funclist(i).end_position 
 `   templist1(i).func_location=funclist(i).func_location
 `   templist1(i).func_source=funclist(i).func_source

`    templist2(i).func_name=funclist(i2).func_name
    templist2(i).func_short_name=funclist(i2).func_short_name  
`    templist2(i).func_return_var=funclist(i2).func_return_var
`    templist2(i).start_position=funclist(i2).start_position
`    templist2(i).end_position=funclist(i2).end_position
`    templist2(i).func_location=funclist(i2).func_location
`    templist2(i).func_source=funclist(i2).func_source

`===========================================================================================================                    
`    funclist(i).func_name=templist2(i).func_name
    funclist(i).func_short_name=templist2(i).func_short_name
`    funclist(i).func_return_var=templist2(i).func_return_var
`    funclist(i).start_position=templist2(i).start_position
`    funclist(i).end_position=templist2(i).end_position
`    funclist(i).func_location=templist2(i).func_location
`    funclist(i).func_source=templist2(i).func_source
    
 `   funclist(i2).func_name=templist1(i).func_name
    funclist(i2).func_short_name=templist1(i).func_short_name
 `   funclist(i2).func_return_var=templist1(i).func_return_var
 `   funclist(i2).start_position=templist1(i).start_position
 `   funclist(i2).end_position=templist1(i).end_position
 `   funclist(i2).func_location=templist1(i).func_location
 `   funclist(i2).func_source=templist1(i).func_source
endfunction

mydata:
data "load_img"
data "get_img"
data "load_sound"
data "make_spr"
data "open_to_read"
data "open_to_write"
data "GetAppName"
data "assignid"
data "downld"
data "PointCameraUsingMouse"
data "FindMatchingVertices"
data "SetUpScreen"
data "PositionOfString"
data "OccursInString"
data "Insrt$"
data "Del$"
data "Replce$"
data "Cpy$"
data "instr2$"
data "subString"
data "FlipBackSlash$(p1$)"
data "MakeScreenFromMemory"
data "MakeImageFromMemory"
data "Export"
data "ViewFile"
data "ExportToExcelFormat"
data "ExportToTextFormat"
data "StoreAsExcel"
data "StoreAsText"
data "CutOutImages"
data "EstablishConnection"
data "UserSelectFile$"
data "ConvertFilename"
data "GenerateLicenseNumbers"
data "GenerateLicenseNumbersV2"
data "SaveLicensesToFile"
data "ClearLicensesFromMem"
data "LoadLicensesIntoMem"
data "ViewLicensesFromMem"
data "SelectScreenMode"

Back to top

Profile

Sasuke

19

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 8th May 2015 13:31 Edited at: 9th May 2015 01:12

Link

@Bored of the Rings, there's a few things you can do to greatly reduce and make it more efficient.

In your code this adds an empty array element at the end... probably want to remove that

+ Code Snippet

restore mydata
    repeat
        read func$
            `insert an array element/item into the global var functions$() 
            array insert at bottom functions$(0)
        
        functions$()=func$
            print func$
    `no more data to be read?
    until func$=""

Timer() can't be set, it just returns system clock so you can remove timer()=0

You can simply do if upper$(string$(n)) > upper$(string$(n+1)) to see if it needs to be swapped, make some sort of recursion round it and it's sorted.

Treat the UDT's exactly the same when swapping, so:

+ Code Snippet

function SwapPositionsUDT(i,i2)
    temp as t_function
    temp = funclist(i2)
    funclist(i2) = funclist(i)
    funclist(i) = temp
endfunction

"Get in the Van!" - Van B

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Sorting UDTs