Question - How to delete a single line

[caramen]

I can't find the desired macro becose when i search for file & delete all exemple got 

; Delete the temporary file.

So i find everything

How to delete a single line of an opened file ?

[caramen]

Kk sorry .... i should wait more before posting... 

 

_FileWriteToLine ( "*.txt" , $Index , "" , 1 )

 

[FrancescoDiMuro]

7 minutes ago, caramen said:

How to delete a single line of an opened file ?

FileSetPos() and FileWriteLine($hdFile, "")

[caramen]

Can you explain me why i should need FileSetPos ?

I already checked this macro and i dont find the purpose in my case

[FrancescoDiMuro]

@caramen
You said that you'd like to delete a line from an opened file.
How can you delete a line if you don't set where you want to delete it in your file?

[caramen]

like that : 

Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
                    $tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam)
                              $File2 = FileOpen ( @ScriptDir&"\Log.txt",  $FO_APPEND )
                              $File02 = FileOpen ( @ScriptDir&"\Data\Log02.txt",  $FO_APPEND )
                              $File002 = FileOpen ( @ScriptDir&"\Data\Log002.txt",  $FO_APPEND )
                    _GUICtrlListView_DeleteItem($Console, DllStructGetData($tInfo, "Index"))
                    _FileWriteToLine ( ""&$File2 , DllStructGetData($tInfo, "Index") , "" , 1 )
                    _FileWriteToLine ( ""&$File02 , DllStructGetData($tInfo, "Index") , "" , 1 )
                    _FileWriteToLine ( ""&$File002 , DllStructGetData($tInfo, "Index") , "" , 1 )

Trying right now  Maybe it s a fail ^^

 

Edited November 21, 2018 by caramen

[caramen]

Dunno why... It is working for file02 & 002 but not for file 2 

Also it does not deleting lines  

 

I got this : 

<-- Blank line that should be deleted :O 
4
5

 

 

[caramen]

@FrancescoDiMuro

Look I sont understand i was trying before with easy syntaxt it was 30 % working. 

Now it is no more working  with the same syntax lol...

I Tryed also with FilePos like that.

 

Does i am in the wrong way ?

 

$File2 = FileOpen ( @ScriptDir&"\Log.txt",  $FO_APPEND )
                              $File02 = FileOpen ( @ScriptDir&"\Data\Log02.txt",  $FO_APPEND )
                              $File002 = FileOpen ( @ScriptDir&"\Data\Log002.txt",  $FO_APPEND )
                    _GUICtrlListView_DeleteItem($Console, DllStructGetData($tInfo, "Index"))
    FileSetPos($File2, 0, $FILE_BEGIN)
    MsgBox(0, "", "Position: " & FileGetPos($File2) & @CRLF & "Data: " & @CRLF & FileRead($File2))
                    _FileWriteToLine ( ""&$File2 , DllStructGetData($tInfo, "Index") , "" , True , True )
                    MsgBox(0,"",@error)
                    _FileWriteToLine ( ""&$File02 , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( ""&$File002 , DllStructGetData($tInfo, "Index") , "" , True , True )

Msg box = 2

2 = File does not exist

Edited November 21, 2018 by caramen

[caramen]

And now i try again with all check added and it s working Wt...BUT KEEPING THE DAMN BLANK LINE

Gonna café smoke i am getting crazy xD

Edited November 21, 2018 by caramen

[FrancescoDiMuro]

@caramen
_FileWriteToLine() doesn't accept an handle of the file to write to it; it needs the filename. 

[caramen]

@FrancescoDiMuro

What about the FileSetPos ? is it necessary in this case and like that ?

[caramen]

                              $File2 = FileOpen ( @ScriptDir&"\Log.txt",  $FO_APPEND )
                              $File02 = FileOpen ( @ScriptDir&"\Data\Log02.txt",  $FO_APPEND )
                              $File002 = FileOpen ( @ScriptDir&"\Data\Log002.txt",  $FO_APPEND )
                    _GUICtrlListView_DeleteItem($Console, DllStructGetData($tInfo, "Index"))
    FileSetPos($File2, 0, $FILE_BEGIN)
    MsgBox(0, "", "Position: " & FileGetPos($File2) & @CRLF & "Data: " & @CRLF & FileRead($File2))
                    _FileWriteToLine ( @ScriptDir&"\Log.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    MsgBox(0,"",DllStructGetData($tInfo, "Index"))
                    MsgBox(0,"",@error)
                    _FileWriteToLine ( @ScriptDir&"\Data\Log02.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Data\Log002.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )

Same syntax for all files. 

Working on File02 & File002 

File2 isn't moving at all. 

MsgBox number 2 = 0

And still a blank line in stead of an erased line in File02 & File002 

Edited November 21, 2018 by caramen

[caramen]

I solved the problem but i cant figure out what was going wrong. 

 

This make it work. If i erase everything 3 time it is now working fine. I guess it is becose it is first erasing text and replace by blank and then the second time replace the blank area by nothing and deleting the cariage return i dotn know...

 

Case $NM_RDBLCLK ; Sent by a list-view control when the user double-clicks an item with the right mouse button
                    $tInfo = DllStructCreate($tagNMITEMACTIVATE, $lParam)
;~                            $File2 = FileOpen ( @ScriptDir&"\Log.txt",  $FO_APPEND )
;~                            $File02 = FileOpen ( @ScriptDir&"\Data\Log02.txt",  $FO_APPEND )
;~                            $File002 = FileOpen ( @ScriptDir&"\Data\Log002.txt",  $FO_APPEND )
                    _GUICtrlListView_DeleteItem($Console, DllStructGetData($tInfo, "Index"))
                    _FileWriteToLine ( @ScriptDir&"\Log.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Data\Log02.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Data\Log002.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Log.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Data\Log02.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Data\Log002.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Log.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Data\Log02.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )
                    _FileWriteToLine ( @ScriptDir&"\Data\Log002.txt" , DllStructGetData($tInfo, "Index") , "" , True , True )

 

[caramen]

Well... reproducer for everyone...  Just make a txt file named in your desktop a run this script from your desktop

How to delete the line 3

• This code isn't working... 

#include <File.au3>


Local Const $sFilePath = @ScriptDir&"\xxx.txt"
Local $sFileRead = FileRead($sFilePath)

                    _FileWriteToLine ( $sFilePath , 1 , "1" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 2 , "2" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 3 , "" , 1 , True )
MsgBox(0,"",@error)
                    _FileWriteToLine ( $sFilePath , 4 , "4" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 5 , "5" , 1 , True )

MsgBox(0,"",$sFileRead)

!!HelpFile = If _FileWriteToLine() is called with $bOverWrite as 1 and $sText as "", it will delete the line.

 

Not true ?

Edited November 21, 2018 by caramen

[FrancescoDiMuro]

4 minutes ago, caramen said:

How to delete the line 3

In the Help file, it is stated:

Remarks

If _FileWriteToLine() is called with $bOverWrite as 1 and $sText as "", it will delete the line.

[caramen]

@FrancescoDiMuro Please, Try my reproducer it does not work... Or is it only me ?  

 

Exactly what i edited...

Edited November 21, 2018 by caramen

[careca]

_FileWriteToLine doesn't need the file to be opened first by you.

#include <File.au3>

Local Const $sFilePath = @ScriptDir&"\xxx.txt"

                    _FileWriteToLine ( $sFilePath , 3 , "" , True , True )

Local $FO = FileOpen($sFilePath)
Local $sFileRead = FileRead($FO)
FileClose($FO)
MsgBox(0,"",$sFileRead)

Works here

[caramen]

@careca Can you write here the output ?

If i run the same script my output is 

1
2

4
5

The wanted output is 

1
2
4
5

 

Edited November 21, 2018 by caramen

[caramen]

Why i always run into strange things... 

Look : 

#include <File.au3>


Local Const $sFilePath = @ScriptDir&"\xxx.txt"

                    _FileWriteToLine ( $sFilePath , 1 , "1" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 2 , "2" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 3 , "" , 1 , True )
MsgBox(0,"",@error)
                    _FileWriteToLine ( $sFilePath , 4 , "4" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 5 , "" , 1 , 1 )
MsgBox(0,"",@error)

Local $sFileRead = FileRead($sFilePath)
MsgBox(0,"",$sFileRead)

MsgBox 1 = 0 

MsgBox 2 = 7 

Ouput = 1 2 _ 4 

4Lines

#include <File.au3>


Local Const $sFilePath = @ScriptDir&"\xxx.txt"

                    _FileWriteToLine ( $sFilePath , 1 , "1" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 2 , "2" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 3 , "" , 1 , True )
MsgBox(0,"",@error)
                    _FileWriteToLine ( $sFilePath , 4 , "4" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 5 , "" , 1 , True )
MsgBox(0,"",@error)

Local $sFileRead = FileRead($sFilePath)
MsgBox(0,"",$sFileRead)

MsgBox 1 = 0 

MsgBox 2 = 0 

Ouput = 1 2 _ 4 _

5Lines

#include <File.au3>


Local Const $sFilePath = @ScriptDir&"\xxx.txt"

                    _FileWriteToLine ( $sFilePath , 1 , "1" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 2 , "2" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 3 , "" , 1 , 1 )
MsgBox(0,"",@error)
                    _FileWriteToLine ( $sFilePath , 4 , "4" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 5 , "" , 1 , True )
MsgBox(0,"",@error)

Local $sFileRead = FileRead($sFilePath)
MsgBox(0,"",$sFileRead)

MsgBox 1 = 7 

MsgBox 2 = 0

Ouput = 1 2 _ 4 _

5Lines

 

actualy if i do : 

_FileWriteToLine ( $sFilePath , 1 , "1" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 2 , "2" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 3 , "" , 1 , True )
MsgBox(0,"",@error)
                    _FileWriteToLine ( $sFilePath , 4 , "" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 5 , "" , 1 , True )
MsgBox(0,"",@error)

Then : 

_FileWriteToLine ( $sFilePath , 1 , "1" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 2 , "2" , 1 , True )
                    _FileWriteToLine ( $sFilePath , 3 , "" , 1 , 1 )
MsgBox(0,"",@error)
                    _FileWriteToLine ( $sFilePath , 4 , "" , 1 , 1 )
                    _FileWriteToLine ( $sFilePath , 5 , "" , 1 , 1 )
MsgBox(0,"",@error)

I got that output : 1 2 

2 Lines

Something is going wrong here Maybe it s my brain ? 

Edited November 21, 2018 by caramen

[careca]

I would say it's obvious only the line is deleted, that's expected, now to pull the rest of the text a line up you have to resort to more code.