论坛 › 已解决问题区 › INI排序问题[已解决]

jackywjl 发表于 2011-7-27 10:35:17

INI排序问题[已解决]

本帖最后由 jackywjl 于 2011-7-27 16:57 编辑

想要将INI档内的值依照降序排列,但执行后变成下方排序,一直查不出哪边出问题,请大大帮帮忙,谢谢
c=19
b=6
a=8

ini内容

a=8
b=6
c=19

源码
#include <Array.au3>
$var=IniReadSection ( "test.ini", "test" )
_ArraySort($var,1,1)
_ArrayDisplay($var)

3mile 发表于 2011-7-27 12:30:19

#include <Array.au3>
$var=IniReadSection ( "test.ini", "test" )
__ArraySort($var,1,1,0,1);降序
_ArrayDisplay($var)
IniDelete( "test.ini", "test")
for $i=1 to $var
        IniWrite( "test.ini", "test",$var[$i],$var[$i])
Next

;~ __ArraySort($var,0,1,0,1);升序
;~ _ArrayDisplay($var)



Func __ArraySort(ByRef $avArray, $iDescending = 0, $iStart = 0, $iEnd = 0, $iSubItem = 0)
        If Not IsArray($avArray) Then Return SetError(1, 0, 0)

        Local $iUBound = UBound($avArray) - 1

        ; Bounds checking
        If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound
        If $iStart < 0 Then $iStart = 0
        If $iStart > $iEnd Then Return SetError(2, 0, 0)

        ; Sort
        Switch UBound($avArray, 0)
                Case 1
                        __ArrayQuickSort1D($avArray, $iStart, $iEnd)
                        If $iDescending Then
                        For $i=$iStart to $iEnd
                                $avArray[$i]=StringFormat("%19d",$avArray[$i])
                        Next
                        _ArrayReverse($avArray, $iStart, $iEnd)
                        For $i=$iStart to $iEnd
                                $avArray[$i]=StringFormat("%1d",$avArray[$i])
                        Next
                        EndIf
                Case 2
                        Local $iSubMax = UBound($avArray, 2) - 1
                        If $iSubItem > $iSubMax Then Return SetError(3, 0, 0)

                        If $iDescending Then
                                $iDescending = -1
                        Else
                                $iDescending = 1
                        EndIf
                       
                        For $i=$iStart to $iEnd
                                $avArray[$i][$iSubMax]=StringFormat("%19d",$avArray[$i][$iSubMax])
                        Next
                        __ArrayQuickSort2D($avArray, $iDescending, $iStart, $iEnd, $iSubItem, $iSubMax)
                        For $i=$iStart to $iEnd
                                $avArray[$i][$iSubMax]=StringFormat("%1d",$avArray[$i][$iSubMax])
                        Next
                Case Else
                        Return SetError(4, 0, 0)
        EndSwitch

        Return 1
EndFunc   ;==>_ArraySort

jackywjl 发表于 2011-7-27 16:55:04

谢谢3mile大大解决我的问题,看完3mile大大程式码,还真是复杂,看来还需要更加努力

xiaozui 发表于 2011-7-28 00:52:28

3mile 发表于 2011-7-27 12:30 http://www.autoitx.com/images/common/back.gif


    学习了，正需要这个

查看完整版本: INI排序问题[已解决]