Numbering lines

[Command3r]

Hello, i have 2 questions:

First: Read an text file and numbering every line.

Second: Write ">>>" or any text i want every first line.

Ex.1

blablablablababla
blablablablabala
blablablablababl
blablablablababb

l want make texts above like that:


1- blablablablababla
2- blablablablabala
3- blablablablababl
4- blablablablababb

Ex.2

blablablablababla
blablablablabala
blablablablababl
blablablablababb

Put an text at every line at first.


>>> blablablablababla
>>> blablablablabala
>>> blablablablababl
>>> blablablablababb

Although i searched, i don't tried because i don't know from where should i start or try.

Please post first solution in single script and second solution in single script too.

Thanks.

[Melba23]

Command3r,

You can write the scripts yourself like this:

- Read the file into an a array with _FileReadToArray.

- Then loop through the array and add either the loop variable or the ">>>" to each line depending on whether you want line numbers or the arrows.

- Finally rewrite the file with _FileWriteFromArray.

Give it a go and see how you get on.

M23

[Command3r]

@M23

Thanks alot i tried that and worked!!!

#include <File.au3>

$File = @ScriptDir & "test.txt"

Local $aRecords
If Not _FileReadToArray($File, $aRecords) Then
MsgBox(4096, "Error", " Error reading log to Array   error:" & @error)
Exit
EndIf
For $x = 1 To $aRecords[0]
MsgBox(0, 'Record:' & $x, $aRecords[$x])
FileWrite(@ScriptDir & "Writed.txt", ">>>" & $aRecords[$x]& @CRLF)
Next

Thanks again <3333

EDIT: i'll try FileWriteFromArray >> got the script from help file and edit it a little.

Edited January 29, 2012 by Command3r

[Command3r]

I can't write the file from "_FileWriteFromArray" what's wrong?

#include <File.au3>

$File = @ScriptDir & "test.txt"

Local $aRecords
If Not _FileReadToArray($File, $aRecords) Then
MsgBox(4096, "Error", " Error reading log to Array   error:" & @error)
Exit
EndIf
For $x = 1 To $aRecords[0]
MsgBox(0, 'Record:' & $x, $aRecords[$x])
;~  FileWrite(@ScriptDir & "Writed.txt", ">>> " & $aRecords[$x]& @CRLF) ; Working :D
_FileWriteFromArray($File, $aRecords[$x] & @CRLF) ; Not working
Next

Edited January 29, 2012 by Command3r

[guinness]

Because you need to pass the whole array.

[kylomas]

Command3r,

You are trying to write an element of the array ($arecords). Just write the entire array (remove the subscript)

kylomas

edit: hold on, there's more wrong with your code!!!

Edited January 29, 2012 by kylomas

[kylomas]

Command3r,

You do NOT want to write the file in a loop. You want to format each element of the array in the loop and write the file once at the end.

kylomas

[kylomas]

Command3r, Similar to this (not tested)

#include <FILE.AU3>$File = @ScriptDir & "test.txt" Local $aRecords If Not _FileReadToArray($File, $aRecords) Then MsgBox(4096, "Error", " Error reading log to Array error:" & @error) Exit EndIf For $x = 1 To $aRecords[0] ;MsgBox(0, 'Record:' & $x, $aRecords[$x]) $arecords[$x] = $x & '-' & $arecords[$x] Next ;~ FileWrite(@ScriptDir & "Writed.txt", ">>> " & $aRecords[$x]& @CRLF) ; Working :D _FileWriteFromArray($File, $aRecords & @CRLF) ; Not working

kylomas

Edited January 29, 2012 by kylomas

[kylomas]

Command3r,

Somethings wrong with the way I'm editing. Try this

#include <File.au3>

$File = @ScriptDir & "test.txt"

Local $aRecords
If Not _FileReadToArray($File, $aRecords) Then
    MsgBox(4096, "Error", " Error reading log to Array   error:" & @error)
    Exit
EndIf
For $x = 1 To $aRecords[0]
    ;MsgBox(0, 'Record:' & $x, $aRecords[$x])
    $arecords[$x] = $x & '-' & $arecords[$x]
Next
;~  FileWrite(@ScriptDir & "Writed.txt", ">>> " & $aRecords[$x]& @CRLF) ; Working :D
_FileWriteFromArray($File, $aRecords, default, default, @crlf)

kylomas

[Command3r]

@guinness

what do u mean

@kylomas

ur script gives me errors and i dont understand it

thx all for help

Edited January 29, 2012 by Command3r

[kylomas]

Command3r,

What errors? Post the script EXACTLY as you ran it. Need to see the input file.

The Heat and Bulls are in a good one so response may be slow...

kylomas

[Command3r]

the script

#include <File.au3>

$File = @ScriptDir & "test.txt"

Local $aRecords
If Not _FileReadToArray($File, $aRecords) Then
MsgBox(4096, "Error", " Error reading log to Array   error:" & @error)
Exit
EndIf
For $x = 1 To $aRecords[0]
;MsgBox(0, 'Record:' & $x, $aRecords[$x])
$aRecords[$x] = $x & '-' & $aRecords[$x]
Next
;~  FileWrite(@ScriptDir & "Writed.txt", ">>> " & $aRecords[$x]& @CRLF) ; Working :D
_FileWriteFromArray($File, $aRecords, Default, Default, @CRLF)

The Error:

Line 262 (File "C:\Program Files\AutoIt3\Include\File.au3"):
If FileWrite($hFile, $a_Array[$x] & @CRLF) = 0 then
If FileWrite($hFile, $a_Array[^ ERROR

Error: Array variable subscript badly formatted.

[guinness]

This should work >>

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#include <File.au3>

_Main()

Func _Main()
    Local $aArray, $sFilePath = @ScriptDir & "Test.txt"
    _FileReadToArray($sFilePath, $aArray)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf

    For $i = 1 To $aArray[0]
        $aArray[$i] = $i & '-' & $aArray[$i]
    Next

    Local $hFileOpen = FileOpen($sFilePath, 2) ; Empty the file contents.
    If $hFileOpen = -1 Then
        Return SetError(2, 0, 0)
    EndIf
    FileWrite($hFileOpen, "")
    FileClose($hFileOpen)

    _FileWriteFromArray($sFilePath, $aArray, 1, $aArray[0])
EndFunc   ;==>_Main

Edited January 29, 2012 by guinness

[Melba23]

Command3r,

What you have now should work, other than the _FileWriteFromArray line which should read:

_FileWriteFromArray($File, $aRecords, 1)

You need to use the $i_Base parameter to prevent rewriting the count in the [0] element.

The reason you had an error before is because you were trying to write an element of the array which did not exist - this is because the count variable is always one more then the top value after a loop..

M23

guinness,

Just seen your post - you do not need the FileOpen section. From the Help file for _FileWriteFromArray:

"If a string path is provided, the file is overwritten and closed."

[Command3r]

@guinness

It's Working!!! but i've to study it it's a little hard.

Thanks.

@M23

Thanks for notice.

Anyway i got what i want with FileWrite :D

Thanks all.

Edited January 29, 2012 by Command3r

[guinness]

"If a string path is provided, the file is overwritten and closed."

Weird, because the other day I was using _FileWriteFromArray and it appended to the end of the file, or maybe it didn't :S

Without the FileOpen.

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#include <File.au3>

_Main()

Func _Main()
    Local $aArray, $sFilePath = @ScriptDir & "Test.txt"
    _FileReadToArray($sFilePath, $aArray)
    If @error Then
        Return SetError(1, 0, 0)
    EndIf

    For $i = 1 To $aArray[0]
        $aArray[$i] = $i & '-' & $aArray[$i]
    Next

    _FileWriteFromArray($sFilePath, $aArray, 1, $aArray[0])
EndFunc   ;==>_Main

Edited January 29, 2012 by guinness

[Melba23]

guinness,

It just worked fine for me.

M23

[guinness]

It must have been one of those my PC was playing up or something! Also goes to show how much I read the Help file

[kylomas]

M23,

IT looks like he wants to change the delimiter to @CRLF. So would it not be

_FileWriteFromArray($File, $aRecords, 1, default, @crlf)

kylomas

[Melba23]

kylomas,

No - that parameter is for the delimiters in 2D arrays. You get a @CRLF at the end of each line automatically.

M23