Moving Element from one list to a other

[Josh]

Would be nice to have a native way to move an element from one list to a other. Doing it by hand, is a little bit complicated.

[DK_PETER]

? What's wrong with CopyStructure()?

[Josh]

? What's wrong with CopyStructure()?

Pointers to the listelement are lost in this case

[DK_PETER]

Hmmm..Okay..
How about this?

Code: Select all

Declare CopyTheElement(*src, *dest)

Structure ELEMENT_DATA
  id.i
  num.i
  var.s
EndStructure

Global NewList List1.ELEMENT_DATA()
Global NewList List2.ELEMENT_DATA()

Procedure CopyTheElement(*src, *dest)
  CopyStructure(*src, *dest, ELEMENT_DATA)
EndProcedure


For x = 0 To 100
  AddElement(List1())
  List1()\id = Random(255,10)
  List1()\num = Random(1000,100)
  List1()\var = "This is a string " + Str(x)
Next x

SelectElement(List1(),55)
AddElement(List2())
CopyTheElement(@List1(), @List2())

Debug Str(List2()\id)
Debug List2()\var

Wouldn't that work?

[STARGÅTE]

CopyStructure is to slow for big list elements.

MoveElement() change only the next- and previous element pointer, but only in one list.
PB 4.60 B1 - why MoveElement() isn't across lists?

We need some like TransferElement(SourceList(), DestinationList(), Location [, *RelativeElement])

[Demivec]

You could section a larger list into two portions and keep track of where they start and stop. Then you only have to use MoveElement() to make the transition between the two 'logical' lists.

Sorting can still be done by specifying the start and end for the list 'portion' you were interested in and you could iterate through their elements by using While/Wend or Repeat/Until instead of a ForEach/Next.

[Josh]

There is a way, but you have to create a temporary list and then you have to do this:

Code: Select all

ChangeCurrentElement (List1(), *Element)
MoveElement          (List1(), #PB_List_Last)
SplitList            (List1(), ListTemp())
MergeLists           (ListTemp(), List2)

I think Pb should do this by an easier native way.

[Demivec]

There is a way, but you have to create a temporary list and then you have to do this:

Code: Select all

ChangeCurrentElement (List1(), *Element)
MoveElement          (List1(), #PB_List_Last)
SplitList            (List1(), ListTemp())
MergeLists           (ListTemp(), List2)

I think Pb should do this by an easier native way.

That's a great idea.