sort arrylist

[Anonymous]

Hello

I have an array that consists of the largest overall size and location. Now I would like to sort of smallest overall size to the largest. I can not split the array because I want to open in the next stage the parts from small to big and I need the location for this action.

So how can I sort the array so that I can open the parts from small to large.

Sub Main()





' Get the active assembly document.
 Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument
 ' Iterate through all of the documents referenced by the assembly.
 Dim oDoc As Document

Dim laserwerklist As New ArrayList 




For Each oDoc In oAsmDoc.AllReferencedDocuments

'Try

' Verify that the document is a part.
 If oDoc.DocumentType = kPartDocumentObject Then
 Dim oPartDoc As PartDocument = oDoc
 'Manipulate part 

 Dim model As String = oPartDoc.FullFileName
 Dim emodel As String = oPartDoc.DisplayName
 'emodel = emodel & ".ipt"

eMuppet = Left(iProperties.Value(emodel,"summary","category"),5)

'MessageBox.Show(eMuppet, "Title")

If eMuppet = "Laser" Then

overmeten=iProperties.Value(emodel,"Custom", "lengte")'dit is de overmeten lengte


laserwerklist.add(overmeten &" "& model )



'laserwerk.sort()




Else

End If

End If

'Catch
 'End Try

Next



myComponent = InputListBox("Select one.", laserwerklist, laserwerklist.item(4), "iLogic", "List")


end sub

 Thanks in advance

[MechMachineMan]

laserwerklist.Reverse()

Google-fu is a wonderful thing.

[Anonymous]

Thank you for the reply but is not what I mean. I know this command. Maybe my explanation is not completely clear so I still have a picture of what I want as a solution

[MechMachineMan]

What does it do when you UNcomment your sort line?

laserwerk.sort()

[Anonymous]

 

It sorts as a string

[rikard.nilsson]

Hi,

If I would have done this I would do it with one of these 2 solutions.

Create a List with my own created Class with (Length as Double, fileName as String) and after that sort on Length.

Or use a Dictionary(of String, Double) and after that sort on Value. Wich is the Length.

Most of the times I use my first suggestion with my Class.

Regards
Rikard

[Anonymous]

yesterday evening I have found a solution. I made a test with a simple example. What do you think of this solution. Is this ok?

 This evening I will do a test with your solution. Can you give me a example of you solution? 

Thanks in advance

Dim Dictionary As New Dictionary(Of String, Integer)
        Dictionary.Add("please", 32)
        Dictionary.Add("help", 16)
        Dictionary.Add("program", 256)
        Dictionary.Add("computers", 1)

           'Dim test As Integer  
           Dim test As New ArrayList
Dim muppet As New ArrayList

        ' Loop over entries.
        Dim pair As KeyValuePair(Of String, Integer)
		
		
				For Each pair In Dictionary
            ' Display Key and Value.
          
			
			
			
			
			test.add(pair.Value)
			
			
			
			
			
			'MsgBox(pair.Value)
        Next
		
		
		
		
		
		test.sort
		
		
		'myComponent = InputListBox("Select one.", test, test.item(1), "iLogic", "List")
		
		Dim kom As String
		For Each item In test
		For Each pair In Dictionary
		
		'For Each item In test
		
		
		If item = pair.Value
		
		kom= item & "-" & (pair.key)
		
		muppet.add(kom)
		
		Else 
		
	      
		
		End If
		
		
		Next
		
		Next
		
		
		
myComponent = InputListBox("Select one.", muppet, muppet.item(1), "iLogic", "List")