<div dir="auto"><div><br><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Le mer. 26 août 2020 à 08:33, John Rose <<a href="mailto:john.aaron.rose@mailbox.org">john.aaron.rose@mailbox.org</a>> a écrit :<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">All the discussions on this topic have gone way over my knowledge & <br>
understanding, particularly the discussions on Class. I was wrong about <br>
Gianluigi's solution (on 24/08/2020, 08:43 digest for <br>
DinamixMatrixExample project from the farm) not working. Apologies, <br>
Gianluigi, for doubting you. Once I understood it, I adapted it slightly <br>
for the key on my 2D array and it worked. I doubt that anyone is <br>
interested now, but here is my adapted code for the Global variable <br>
aEpisodeData (defined as Private aEpisodeData As New String[][]):<br>
<br>
Procedure SortEpisodeData()' Sort by Series Name & Episode Name i.e. <br>
column 0<br>
   Dim e, i, n As Integer<br>
   Dim aSort, aOriginal As New String[]<br>
   ' Fills the array of the key to sort<br>
   For e = 0 To aEpisodeData.Max<br>
     aOriginal.Push(aEpisodeData[e][0])<br>
   Next<br>
   ' Copy the data in the sorting array, then sort<br>
   aSort = aOriginal.Copy()<br>
   aSort.Sort()<br>
   ' Find with "Find" the values to be sorted and' with<br>
   ' "swap" swaps reversing them<br>
   For e = 0 To aSort.Max<br>
     n = aOriginal.Find(aSort[e], 0, e)<br>
     For i = 0 To aEpisodeData[e].Max<br>
       Swap aEpisodeData[e][i], aEpisodeData[n][i]<br>
     Next<br>
     ' Clean and fill the array with current data<br>
     aOriginal.Clear()<br>
     For i = 0 To aEpisodeData.Max<br>
       aOriginal.Push(aEpisodeData[i][0])<br>
     Next<br>
   Next<br>
End ' SortEpisodeData<br>
<br>
where aEpisodeData has previously been populated by:<br>
     ' All the other variables below are strings previously given values<br>
     ' Column 0 of aEpisodeData is the key of a row<br>
     'Columns 1-7 are the data for each row<br>
     Inc iRows  ' Number of rows in aEpisodeData defined as Integer<br>
     aEpisodeData.Resize(iRows)<br>
     aEpisodeData[iRows - 1] = New String[8]<br>
     aEpisodeData[iRows - 1][0] = sSN30 & "|" & sEN30  ' SN30 & sEN30 <br>
are the first 30 characters of sSeriesName & sEpisodeName respectively <br>
padded out with spaces<br>
     aEpisodeData[iRows - 1][1] = sSeriesName<br>
     aEpisodeData[iRows - 1][2] = sSeriesDescription<br>
     aEpisodeData[iRows - 1][3] = sEpisodeName<br>
     aEpisodeData[iRows - 1][4] = sEpisodeNumber<br>
     aEpisodeData[iRows - 1][5] = sEpisodeDescription<br>
     aEpisodeData[iRows - 1][6] = sEpisodeDatePublished<br>
     aEpisodeData[iRows - 1][7] = sEpisodeIdentifier<br></blockquote></div></div><div dir="auto"><br></div><div dir="auto"><br></div><div dir="auto">😱</div><div dir="auto"><br></div><div dir="auto">It can work ..but where the benefit ?</div><div dir="auto"><br></div><div dir="auto">I will show you how we do that in the Gambas way.</div><div dir="auto"><br></div><div dir="auto"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<br>
<br>
----[ <a href="http://gambaswiki.org/wiki/doc/netiquette" rel="noreferrer noreferrer" target="_blank">http://gambaswiki.org/wiki/doc/netiquette</a> ]----<br>
</blockquote></div></div></div>