<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#009900" bgcolor="#FFFFFF">
Thanks to everyone for the input<br>
<br>
Dave<br>
<br>
<br>
<div class="moz-cite-prefix">On 6/5/2018 3:05 PM, Bill Randall
wrote:<br>
</div>
<blockquote type="cite"
cite="mid:a2d57590-d95e-7abd-788a-e228f3540454@fptech.com">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<font face="Arial">I just changed the top 4 lines of the code to
show alpha.<br>
It has always worked well every time I have needed it.<br>
<br>
@keyc::declare junk(6,*):<br>
::dim dat(10)(6,*):<br>
::dat("1")="Happy";dat("2")="Able";dat("3")="Doggy";dat("4")="Jump";dat("5")="Baby":<br>
::dat("6")="Cat";dat("7")="Ezra";dat("8")="Poppy";dat("9")="Menu";dat("10")="System":<br>
<br>
</font><br>
<div class="moz-cite-prefix">On 6/5/2018 12:59 PM, Richard D.
Williams wrote:<br>
</div>
<blockquote type="cite"
cite="mid:a7189bd0-84e7-6ab7-1c5a-555c6d21eb04@appgrp.net">
<meta http-equiv="Content-Type" content="text/html;
charset=utf-8">
<div class="moz-cite-prefix">I've never tried this technique. I
assume it works with alpha-numeric data as well.<br>
<br>
I will experiment with this.<br>
<br>
Thanks,<br>
<br>
Richard<br>
<br>
<br>
On 6/5/2018 10:50 AM, Bill Randall wrote:<br>
</div>
<blockquote type="cite"
cite="mid:cae18e6c-7218-b396-3a4c-124428992847@fptech.com">
<meta http-equiv="Content-Type" content="text/html;
charset=utf-8">
<font face="Arial">This is a sample of how I have always
sorted arrays in filePro if needed.<br>
<br>
@keyc::declare junk(2,.0):<br>
::dim dat(10)(2,.0):<br>
::dat("1")="6";dat("2")="1";dat("3")="4";dat("4")="8";dat("5")="2":<br>
::dat("6")="3";dat("7")="5";dat("8")="10";dat("9")="7";dat("10")="9":<br>
::zx(2,.0)="1":<br>
::ct(2,.0)="1":<br>
loop:::<br>
:dat(zx) gt dat(zx+ct):gosub swap:<br>
:junk ne "" and ct+zx lt "10":ct=ct+"1" ; goto loop:<br>
:zx ne "9":zx=zx+"1" ; ct="1" ; goto loop:<br>
::x=listbox (dat,"1","10"):<br>
::end:<br>
swap:::<br>
::junk=dat(zx+ct);dat(zx+ct)=dat(zx);dat(zx)=junk:<br>
::return:<br>
<br>
<br>
</font><br>
<div class="moz-cite-prefix">On 6/5/2018 11:26 AM, Richard D.
Williams via Filepro-list wrote:<br>
</div>
<blockquote type="cite"
cite="mid:fcc827e9-9f09-98a3-5814-9bfb6b730281@appgrp.net">Dave,
<br>
<br>
I don't know of any function in FP that will sort an array.
<br>
<br>
What I do is write the array data out to a temporary file
that has an index built in the correct order, <br>
clear the array, reach back into the temporary file, and
fill the array again. <br>
<br>
You can use the tty as a unique identifier for each
instance. <br>
<br>
Hope this helps, <br>
<br>
Richard <br>
<br>
<br>
On 6/5/2018 9:28 AM, davidrottkamp via Filepro-list wrote: <br>
<blockquote type="cite">Hi <br>
<br>
Is there a way to sort an array made inside filepro <br>
<br>
version <br>
<br>
linux <br>
<br>
<br>
</blockquote>
<br>
_______________________________________________ <br>
Filepro-list mailing list <br>
<a class="moz-txt-link-abbreviated"
href="mailto:Filepro-list@lists.celestial.com"
moz-do-not-send="true">Filepro-list@lists.celestial.com</a>
<br>
Subscribe/Unsubscribe/Subscription Changes <br>
<a class="moz-txt-link-freetext"
href="http://mailman.celestial.com/mailman/listinfo/filepro-list"
moz-do-not-send="true">http://mailman.celestial.com/mailman/listinfo/filepro-list</a>
<br>
<br>
</blockquote>
<br>
<div id="DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2"><br>
<table style="border-top: 1px solid #D3D4DE;">
<tbody>
<tr>
<td style="width: 55px; padding-top: 13px;"><a
href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=icon"
target="_blank" moz-do-not-send="true"><img
src="https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif"
alt="" style="width: 46px; height: 29px;"
moz-do-not-send="true" height="29" width="46"></a></td>
<td style="width: 470px; padding-top: 12px; color:
#41424e; font-size: 13px; font-family: Arial,
Helvetica, sans-serif; line-height: 18px;">Virus-free.
<a
href="https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=emailclient&utm_term=link"
target="_blank" style="color: #4453ea;"
moz-do-not-send="true">www.avast.com</a> </td>
</tr>
</tbody>
</table>
<a href="#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2" width="1"
height="1" moz-do-not-send="true"> </a></div>
</blockquote>
<br>
</blockquote>
<br>
</blockquote>
<br>
<div class="moz-signature">-- <br>
David Rottkamp<br>
Century 21 Select Group<br>
Phone : 570-620-8027
<br>
<br>
<a class="moz-txt-link-abbreviated" href="http://www.poconolakeproperties.com">www.poconolakeproperties.com</a></div>
</body>
</html>