_FileReadToArray declares all information as char?

[Qousio]

Hello.

I'm just transfering some of my old Pascal programs into Autoit (Want to make some pretty GUI's)

And allot of them have something to do with importing/exporting arrays.

For example, Bubble sorting (Yeah I know Shells and Hoars algorithm is better, just testing)

Func Sort()
    _FileReadToArray(@ScriptDir & "\test.txt", $A)
    $Loop = $A[0]
$I=2; {Шаг поиска}
While $I<=$Loop;{Пока шаг поиска меньше кол-ва элементов массива}
$J=$Loop; {Максимальный номер массива}
While $J>=$I;{Пока номер элемента больше шага}
    If $A[$J-1]>$A[$J] then;{И Предыдущий элемент больше следующего}
    $X=$A[$J-1]; {Помещаем элемент в X}
    $A[$J-1]=$A[$J]; {Меняем местами элементы}
    $A[$J]=$X;
    EndIf; {/If}
$J=$J-1; {Исключаем отсортированный элемент из поиска}
    WEnd; {/While}
    $I=$I+1; {Увеличиваем шаг поиска}
WEnd; {/While}
_FileWriteFromArray(@ScriptDir & "\Sorted.txt", $A, 1)
EndFunc

This

4
3
4
3
4
3
4
34
2
2
3
2
3
4
2
3
4
23
4
3
2
3
4
3
2

Gets sorted into this:

2
2
2
2
2
2
23
3
3
3
3
3
3
3
3
3
34
4
4
4
4
4
4
4
4

I tried this with lots of numbers, and the only numbers it sorts correctly are 0-9 numbers.

So I figured FileReadToArray stores all information as strings or chars. Is it possible to store it as Integer?

I figured this was asked before, but couldn't find it while searching....

Edited May 9, 2009 by Qousio

[Yashied]

Ты можешь использовать функцию Int().

TRANSLATE: You can use the Int() function.

[SmOke_N]

Func _ArraySortNum(ByRef $n_array, $i_descending = 0, $i_start = 1)
    For $i_count = $i_start To UBound($n_array) - 2
        Local $i_se = $i_count
        If $i_descending Then
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) < Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        Else
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) > Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        EndIf
        Local $i_hld = $n_array[$i_count]
        $n_array[$i_count] = $n_array[$i_se]
        $n_array[$i_se] = $i_hld
    Next
EndFunc

[Qousio]

Ты можешь использовать функцию Int().

Спасибо за совет! Всё работает Я думал в Аутоит нельзя обьявлять типы.

Func _ArraySortNum(ByRef $n_array, $i_descending = 0, $i_start = 1)
    For $i_count = $i_start To UBound($n_array) - 2
        Local $i_se = $i_count
        If $i_descending Then
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) < Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        Else
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) > Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        EndIf
        Local $i_hld = $n_array[$i_count]
        $n_array[$i_count] = $n_array[$i_se]
        $n_array[$i_se] = $i_hld
    Next
EndFunc

Excuse me, but that doesnt have anything to do with FileReadToArray

Anyhow, Yashied's advice solved my problem.

Thank you!

[SmOke_N]

Excuse me, but that doesnt have anything to do with FileReadToArray

No kidding, I was showing you how to sort with numbers.

[Yashied]

Func _ArraySortNum(ByRef $n_array, $i_descending = 0, $i_start = 1)
    For $i_count = $i_start To UBound($n_array) - 2
        Local $i_se = $i_count
        If $i_descending Then
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) < Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        Else
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) > Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        EndIf
        Local $i_hld = $n_array[$i_count]
        $n_array[$i_count] = $n_array[$i_se]
        $n_array[$i_se] = $i_hld
    Next
EndFunc

Or use this function before sorting. Perhaps it will be faster.

Func _ArrayConvert(ByRef $Array)
    For $i = 1 To $Array[0]
        $Array[$i] = Int($Array[$i])
    Next
EndFunc; _ArrayConvert

[GEOSoft]

Спасибо за совет! Всё работает Я думал в Аутоит нельзя обьявлять типы.

Excuse me, but that doesnt have anything to do with FileReadToArray

Anyhow, Yashied's advice solved my problem.

Thank you!

Excuse me but if you had checked the function SmOke_N gave you then you might have noticed that passing the array created by _FileReadToArray() to the function would have sorted the origional array as integers.

[Qousio]

No kidding, I was showing you how to sort with numbers.

Oh, thanks!

Its just 2 am and my brain is completely focused on other things.... Thanks again.

Edited May 9, 2009 by Qousio

[MrCreatoR]

Func _ArraySortNum(ByRef $n_array, $i_descending = 0, $i_start = 1)
    For $i_count = $i_start To UBound($n_array) - 2
        Local $i_se = $i_count
        If $i_descending Then
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) < Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        Else
            For $x_count = $i_count To UBound($n_array) - 1
                If Number($n_array[$i_se]) > Number($n_array[$x_count]) Then $i_se = $x_count
            Next
        EndIf
        Local $i_hld = $n_array[$i_count]
        $n_array[$i_count] = $n_array[$i_se]
        $n_array[$i_se] = $i_hld
    Next
EndFunc

Nice! Could be an UDF for File.au3 include; _FileSortNumLines (or something )...

#include <File.au3>

_FileSortNumLines(@ScriptDir & "\Sort.txt")

Func _FileSortNumLines($sSrc_File, $sDest_File = $sSrc_File, $iDescending = 0, $iStart = 1)
    Local $avArray, $iRet
    
    _FileReadToArray($sSrc_File, $avArray)
    If @error Then Return SetError(@error, 0, 0)
    
    ;Func __ArraySortNums(ByRef $avArray, $i_descending = 0, $iStart = 1)
    Local $iSE, $iHold
    
    For $iCount = $iStart To UBound($avArray) - 2
        $iSE = $iCount

        For $xCount = $iCount To UBound($avArray) - 1
            If ($iDescending And Number($avArray[$iSE]) < Number($avArray[$xCount])) Or _
            (Not $iDescending And Number($avArray[$iSE]) > Number($avArray[$xCount])) Then $iSE = $xCount
        Next

        $iHold = $avArray[$iCount]
        
        $avArray[$iCount] = $avArray[$iSE]
        $avArray[$iSE] = $iHold
    Next
    ;EndFunc ;__ArraySortNums
    
    $iRet = _FileWriteFromArray($sDest_File, $avArray, 1)
    SetError(@error, 0, $iRet)
EndFunc

And afaik, we don't have a simple _FileSortLines function as well...

Edited May 9, 2009 by MrCreatoR

[kittykat]

this is interesting. thank you for sharing

simulation rachat de credit