问用于按升序对列表值进行排序的函数

EN

define temp-table numberList
  field number as integer
  index number-idx as primary number
.

create numberList.
numberList.number = 4.

create numberList.
numberList.number = 6.

create numberList.
numberList.number = 8.

create numberList.
numberList.number = 1.

for each numberList:
  display number.
end.

define temp-table numberList
  field number as integer
  index number-idx as primary number
.

function sortList returns character ( input csv as character ):
  define variable n as integer no-undo.
  define variable i as integer no-undo.
  define variable s as character no-undo.
  empty temp-table numberList.
  n = num-entries( csv ).
  do i = 1 to n:
    create numberList.
    numberList.number = integer( entry( i, csv )).
  end.
  for each numberList:
    s = s + string( numberList.number ) + ",".
  end.
  return trim( s, "," ).
end.

display sortList( "4,6,8,1" ).

function sortCSV returns character ( input csv as character ):

  define variable n as integer no-undo.    // number of entries in the list
  define variable i as integer no-undo.    // loop counter, number of entries sorted
  define variable j as integer no-undo.    // inner loop counter
  define variable b as integer no-undo.    // temporary minimum
  define variable x as integer no-undo.    // working value
  define variable a as integer no-undo.    // absolute minimum
  define variable z as integer no-undo.    // absolute maximum
  define variable s as character no-undo.  // csv string to return

  n = num-entries( csv ).                  // how many entries in the list?

  a = integer( entry( 1, csv )).           // assume the first entry is the smallest
  z = a.                                   // also assume it is the largest
  do i = 1 to n:
    x = integer( entry( i, csv )).
    a = minimum( a, x ).                   // find the real smallest
    z = maximum( z, x ).                   // and the real largest
  end.

  i = 0.                                   // track the number of sorted entries

  do while i < n:                          // loop until we have sorted all entries

    // add each occurrence of "a" to the sorted list

    do j = 1 to n:
      if integer( entry( j, csv )) = a then
        assign
          i = i + 1                        // increment the count of sorted entries
          s = s + "," + string( a )
        .
    end.

    // look for something smaller than "z"
    // but larger than "a"

    b = z.                                 // reset the temporary minimum to the actual maximum

    do j = 1 to n:                         // scan every entry
      x = integer( entry( j, csv )).
      if x > a then                        // values less than or equal to "a" have already been sorted
        b = minimum( x, b ).
    end.

    a = b.                                 // "a" is ready to add to the list

  end.

  return trim( s, "," ).                   // remove the extra ","

end.

display sortCSV( "4,6,4,-3,8,1" ) format "x(30)".