AutoHotkey Community

test=
(
1
2
3
4
5
6
7

8

9
)
FileDelete, MyTest.txt
FileAppend, %test%, MyTest.txt
F = MyTest.txt

loop
{
 x := TF_Tail(F,1)
 msgbox % x "." ; displays x and . on a newline ... why it shows 9?
 StringTrimRight, x, x, 1 ; remove trailing `n
  x--
 var := TF_ReadLines(F,x,x)
   if ( var != "")
     {
     msgbox % var
      break
    }
  }
 
Esc::ExitApp

res := TF_ReadLines("line1`line2`line3", ....)
res := TF_ReadLines(TF("TextFile.txt"), ....)

TF_ReadLines(text, ....)

TF("TextFile.txt", t)
TF_ReadLines(t ... )

TF(TextFile, ByRef t="") {
    FileRead, t, %TextFile%
    if IsOmitted(t)
             return t                 
}
TF_ReadLines(text, ....)
TF_ReadLines(TF("TextFile.txt") ... )

TF("TextFile.txt", t)
TF_ReadLines(t ... )

test=
(
1
2
3
4
5
6
7

8

9
)
FileDelete, MyTest.txt
FileAppend, %test%, MyTest.txt
F = MyTest.txt

x := TF_Tail(F,1)
StringTrimRight, x, x, 1 ; remove trailing `n
loop
{

 msgbox % x "." ; displays x and . on a newline .only the frist time .
 
  x--
 var := TF_ReadLines(F,x,x)
 msgbox % var
   if ( var = "`n")
    continue
   else
    {
     msgbox %var%
      break
    }
   
  }
 
Esc::ExitApp

test=
(
1
2
3
4
5
6
7

8

9
)
FileDelete, MyTest.txt
FileAppend, %test%, MyTest.txt
F = MyTest.txt

x := TF_CountLines(F)
msgbox % x

loop
{

 msgbox % x "." ; displays x and . on a newline .only the frist time .
 
  x--
 var := TF_ReadLines(F,x,x)
 msgbox % var
   if ( var = "`n")
    continue
   else
    {
     msgbox %var%
      break
    }
   
  }
 
Esc::ExitApp

; i want to read line the last line and then check if line above
; it is blank , if yes ,then check the line above it and if its
; blank then check the line above it and so on untill it finds a
; non blank line.
test=
(
1 this is a line of text
2 this is a line of text
3 this is a line of text
4 this is a line of text
5 this is a line of text
6 this is a line of text
7 this is a line of text
8 this is a line of text and this is the line I want to get

9 this is the last line of text in the file
)
FileDelete, MyTest.txt
FileAppend, %test%, MyTest.txt
F = MyTest.txt
TF_RemoveBlankLines("!" . F) ; does what the name suggests
FileReadLine, GetTheLineYouWant, %F%, % TF_CountLines(F) - 1 ; uses countlines to get the number of lines and substract 1
MsgBox % GetTheLineYouWant

!z::

FileSelectFile, VarWhichFile, , C:\filepath\Test\, Select a '.TXT' file , *.txt

F = %VarWhichFile%

TF_RemoveBlankLines(F)

;TF_Replace(F, "Word1", "")  ;take the word out, by replacing with a space
;TF_Replace(F, "Word2", "")
;TF_Replace(F, "Word3", "")
;TF_Replace(F, "Word4", "")

MsgBox % TF_Countlines(F)

return

; Examples of using a loop with TF

; first we create a few unique test files
File=a`ntest`nfile`nlooks`nlike`nthis`n
FileDelete, __File1TFtest.TFTXT
FileDelete, __File2TFtest.TFTXT
FileDelete, __File3TFtest.TFTXT
FileDelete, __File4TFtest.TFTXT
FileAppend, %File%, __File1TFtest.TFTXT
FileAppend, %File%, __File2TFtest.TFTXT
FileAppend, %File%, __File3TFtest.TFTXT
FileAppend, %File%, __File4TFtest.TFTXT

; Now we can use a loop, remember that by Default
; TextFile.txt will become TextFile_copy.txt

; Example 1, loop all files

Loop, *.TFTXT
   {
   TF_Replace(A_LoopFileName, "this", "that") ; or use A_LoopFileLongPath
   }
   
; now you have 4 new files __File?TFtest_copy.TFTXT

; If you want to run multiple TF Functions on the same file you
; will either have to parse on the new filename e.g __File1TFtest_copy.TFTXT
; but this will result in __File1TFtest_copy_copy.TFTXT etc etc so you
; can use the ! to OVERWRITE the source file like so

TF_Replace("!__File1TFtest.TFTXT", "this", "that") ; you can use "!" .  F in your example

; if you look in __File1TFtest.TFTXT you will see that 'this' has been replaces with 'that'

; Now in a Loop

Loop, *.TFTXT
   {
   TF_Replace("!" . A_LoopFileName, "this", "that") ; or use A_LoopFileLongPath
   }

; Now for your example
; Note the ORIGINAL FILE will be overwritten with the "NEW" file
TF_RemoveBlankLines("!" . F)
TF_Replace("!" . F, "Word1", "")  ;take the word out, by replacing with a space
TF_Replace("!" . F, "Word2", "")
TF_Replace("!" . F, "Word3", "")
TF_Replace("!" . F, "Word4", "")

File=a`ntest`nfile`nlooks`nlike`nthis`n
FileDelete, __NewFile.TXT
FileAppend, %File%, __NewFile.TXT
FileSelectFile, VarWhichFile, , , Select a '.TXT' file , *.txt
F=!%VarWhichFile%
TF_Replace(F, "this", "that")

; Created by Tuncay *2009-09-19*
; TextFile can be a path to an existing file or a variable holding the data of a file.
; ErrorLevel holds the line count of TextFile.
; Returns 0 if TextFile is leaved as is and 1 if the content of an existing
;  file is read into that variable.
TF_LoadTextFile(ByRef TextFile)
{
   StringReplace, TextFile, TextFile, `n, `n, UseErrorLevel
   If (ErrorLevel = 0 AND FileExist(TextFile))
   {
      FileRead, TextFile, %TextFile%
      StringReplace, TextFile, TextFile, `n, `n, UseErrorLevel
      If (TextFile != "")
         ErrorLevel++
      Return, 1
   }
   Else
   {
      If (TextFile != "")
         ErrorLevel++
      Return, 0
   }
}

; Replaced by Tuncay *2009-09-19*.
TF_CountLines(TextFile) ; was TotalLines in v1
   {
    TF_LoadTextFile(TextFile)
    Return ErrorLevel
   }

TF_ReadLines(TextFile, StartLine = 1, EndLine = 0)
   {
    TF_MatchList:=_MakeMatchList_(TextFile, StartLine, EndLine) ; create MatchList
    TF_LoadTextFile(TextFile) ;Edited.
    Loop, Parse, TextFile, `n, `r ;Edited.
      {
       If A_Index in %TF_MatchList%
         OutPut .= A_LoopField "`n"
       Else if (A_Index => EndLine)
         Break
      }
    StringTrimRight, OutPut, OutPut, 1 ;?Added: Trim last new line from loop.
    Return OutPut
   }