sorting data in file to another file

[bogQ]

whas up whall night and still cant do it right

i need data from Lista.edit.dat that have lines in it

b00123^test^test2^1^
b00123^test^test2^2^
b00123^test^test2^3^
b00321^test^test2^4^
b00321^test^test2^5^
b00321^test^test2^6^
b00123^test^test2^7^
b00123^test^test2^8^
b00123^test^test2^9^

to sort to Excel.list.dat to b

b00123^test^test2^1^
b00123^test^test2^2^
b00123^test^test2^3^
b00123^test^test2^7^
b00123^test^test2^8^
b00123^test^test2^9^
b00321^test^test2^4^
b00321^test^test2^5^
b00321^test^test2^6^

so that i can write it after that to excel

i need that all b00123 and all other b.... that r in one file to b line under line in next file sorted in one place

everything i try it whas whit no results or with wrong results

can someone pls telme some some other way to do this

this is last what dident worked (not sorted data and i lost some data along the way)

expandcollapse popup

Case $msg = $Button_1
            do
            $file = FileOpen("Lista.edit.dat", 0)
            $file_db = FileOpen("Excel.list.dat", 1)
            If $file = -1 Then
                MsgBox(0, "Error", "Unable to open file.")
                Exit
            EndIf
            
            
            $line8 = FileReadLine($file, 1)
            $file8 = StringSplit($line8, "^")
            $find = $file8[1]
            If $line8 <> "" Then
                Dim $search = "Lista.edit.dat"
                ;next finde in file line that have that name in it
                Dim $aRecords
                If Not _FileReadToArray($search,$aRecords) Then
                EndIf
                For $x = 1 to $aRecords[0]
                Select
                case not StringInStr($aRecords[$x], $find)
                    If $find <> "" Then
                        $file = FileOpen("Lista.edit.dat", 0)
                        $line8 = FileReadLine($file, 1)
                        $file8 = StringSplit($line8, "^")
                        $find = $file8[1]
                        FileClose($file)
                    EndIf
                case StringInStr($aRecords[$x], $find)
                        $file = FileOpen("Lista.edit.dat", 0)
                        $line = FileReadLine($file, $x)
                        $file8 = StringSplit($line, "^")
                        If StringInStr($file8[1], $find) Then
                            FileWriteLine($file_db, $line)
                            FileClose($file_db)
                            FileClose($file)
                            _FileWriteToLine("Lista.edit.dat", $x, "", 1)
                        EndIf
                    EndSelect           
                Next
            EndIf
            Until $line8 = ""
#cs         
            $file_db = FileOpen("Excel.list.dat", 0)
            $oExcel = _ExcelBookOpen(@ScriptDir&$exceldir,1)
            While 1
                $line = FileReadLine($file_db)
                If @error = -1 Then ExitLoop
                MsgBox(0, "Line read:", $line)
                $file4 = StringSplit($line, "^")
                _ExcelWriteCell($oExcel, $file4[3], "b"&($l+7))
                _ExcelWriteCell($oExcel, $file4[5], "e"&($l+7))
                _ExcelWriteCell($oExcel, $file4[6], "i"&($l+7))
                _ExcelWriteCell($oExcel, $file4[4], "m"&($l+7))
                _ExcelWriteCell($oExcel, $file4[10], "c"&($l+7))
                $l = $l+1
            Wend
            FileClose($file)
            FileClose($file_db)
#ce

[Jos]

I would use the "good old" sort for that:

RunWait(@ComSpec & " /c Sort < inputfile > outputfile", @ScriptDir, @SW_HIDE)

[bogQ]

I would use the "good old" sort for that:

RunWait(@ComSpec & " /c Sort < inputfile > outputfile", @ScriptDir, @SW_HIDE)

ty 4