crystal report公式按数字排序字符串

// 输入参数：字符串列表
// 返回值：按数字排序后的字符串列表
Function SortStringList(strings: Array[String]): Array[String]
    Local NumberVar i;
    Local NumberVar j;
    Local StringVar temp;
    Local NumberVar num1;
    Local NumberVar num2;
    
    For i := 1 to UBound(strings) do
        For j := i + 1 to UBound(strings) do
            // 提取字符串中的数字部分
            num1 := ToNumber(ExtractNumeric(strings[i]));
            num2 := ToNumber(ExtractNumeric(strings[j]));
            
            If num1 > num2 then
                // 交换字符串位置
                temp := strings[i];
                strings[i] := strings[j];
                strings[j] := temp;
            End If;
        Next j;
    Next i;
    
    // 返回排序后的字符串列表
    SortStringList := strings;
End Function;

// 提取字符串中的数字部分
Function ExtractNumeric(str: String): String
    Local StringVar result := "";
    Local NumberVar i;
    
    For i := 1 to Length(str) do
        If IsNumeric(Mid(str, i, 1)) then
            result := result + Mid(str, i, 1);
        End If;
    Next i;
    
    ExtractNumeric := result;
End Function;