AutoHotkey Community

; Create sample file with 100000 lines
F=c:\sample.txt
FileDelete, %F%
Loop, 100000
    Var .= A_Index "`n"
FileAppend, %Var%, %F%

MsgBox % "Total lines of text file is : " TXT_Totallines(F)

; Performance benchmarking
DllCall("QueryPerformanceFrequency", "Int64 *", Freq)
DllCall("QueryPerformanceCounter", "Int64 *", Start)

;Insert prefix to range from 20 to 100
TXT_InsertPrefix("!" . F, 20, 30, "LineNumber : ")
;Insert suffix to range from 31 to 40
TXT_InsertSuffix("!" . F, 31, 40, "th line")
;Insert specified text to line 5
TXT_InsertLine("!" . F, 5, "This will be inserted at Line 5")
;Replace line 10 with specified text
TXT_ReplaceLine("!" . F, 10, "Line 10 will be replaced with this")
;Remove Lines of range from 41 to 1000
TXT_RemoveLines("!" . F, 41, 1000)
;Replace every 000 to 0
TXT_Replace("!" . F, 000, 0)

DllCall("QueryPerformanceCounter", "Int64 *", End)
MsgBox % "Elapsed Time is : " (End - Start)/Freq " Secs (6 Functions)"

/*----------------------------------+
 Library for Text File Manipulation |
------------------------------------+ - heresy
Last Updated : 2008-06-18

-# Common Parameters -----------------------------------------------------------
TextFile :
    The Filename including path to read from and save to
    If TextFile starts with ! (eg: "!c:\sample.txt") will overwrite the text file
    else will save to copy of the text file (eg:Filename_copy.txt)

Text :
    Used with functinos which supports text insertion
   
Line :
    Used with functions which supports One-line process
   
StartLine :
    Used with functions which supports Range of lines
   
EndLine:
    Used with functions which supports Range of lines

SearchText :
    Used with functions which supports Replacement
   
ReplaceText :
    Used with functions which supports Replacement
--------------------------------------------------------------------------------

-# Functions -------------------------------------------------------------------
----------------+
Basic Functions |
----------------+
- TXT_TotalLines(TextFile)
    Get total lines of text file

- TXT_ReadLines(TextFile, StartLine, EndLine)
    Read range of lines from text file (Extended version of FileReadLine)

- TXT_Tail(TextFile, Lines = 1) by HugoV
    Get tail(last line) of text file

--------------------+
Alignment Functions |
--------------------+
- TXT_AlignLeft(TextFile, Columns=80)
- TXT_AlignCenter(TextFile, Columns=80)
- TXT_AlignRight(TextFile, Columns=80)
    Align texts Left/Center/Right based on total columns.
    Note that leading white spaces will be stripped out

- TXT_ReverseLines(TextFile, StartLine = 0, EndLine = 0) by HugoV
    Realign range of lines with reverse order
    Omit 2nd and 3rd parameters to affect on every lines

---------------------+
Removement Functions |
---------------------+
- TXT_RemoveLines(TextFile, StartLine, EndLine)
    Remove range of lines in text file
   
- TXT_RemoveBlankLines(TextFile)
    Simply removes all blank lines in text file

- TXT_RemoveDuplicateLines(TextFile, CaseSensitive="True")
    Remove duplicated lines in text file, Case Sensitive by default

----------------------+
Replacement Functions |
----------------------+
- TXT_Replace(TextFile, SearchText, ReplaceText="")
    Replace Every %SearchText% to %ReplaceText% in text file
    to replace with "", omit 3rd Parameter(ReplaceText)

- TXT_RegExReplace(TextFile, StartLine, EndLine, NeedleRegEx, Replacement="")
    Replace range of lines with Regular Expression
    to replace with "", omit Last parameter(Replacement)

- TXT_ReplaceLine(TextFile, Line, Text="")
    Simliar to InsertLine except it will replace the line instead of inserting
    to replace with "", omit 3rd Parameter(Text)

--------------------+
Insertion Functions |
--------------------+
- TXT_LineNumber(TextFile, LeadingZeros = 0) by HugoV
    Insert Line Number on every line in text file with LeadingZero or not.

- TXT_InsertLine(TextFile, Line, Text)
    Insert specified %Text% at specified %Line%

- TXT_InsertPrefix(TextFile, StartLine, EndLine, Text)
    Insert %Text% at beforehand on range of lines

- TXT_InsertSuffix(TextFile, StartLine, EndLine, Text)
    Insert %Text% at afterward on range of lines

-----------------+
Column Functions |
-----------------+
- TXT_ColGet(TextFile, StartColumn, EndColumn, Skip = 0) by HugoV
    Get texts between %StartColumn% and %EndColumn% and save.
    Empty lines can be ignored (Skip=0) or not
   
- TXT_ColPut(TextFile, StartColumn, Text, Skip = 0) by HugoV
    Put %Text% at specified %StartColumn% and save.
   
- TXT_ColCut(TextFile, StartColumn, EndColumn) by HugoV
    Cut texts between %StartColumn% and %EndColumn% and save.
   
-------------------+
Trimming Functions |
-------------------+
- TXT_TrimLeft(TextFile, StartLine, EndLine, Count)
  TXT_TrimRight(TextFile, StartLine, EndLine, Count)
    Trim left or right for range of lines (Work same as StringTrimLeft/Right)

--------------+
CSV Functions |
--------------+
- TXT_GetCSV(TextFile, Row, Column, Delimiter=",")
    Get field data from specific Row & Column
    also Delimiter can be changed. (eg: A_Space or A_Tab without ")

- TXT_SetCSV(TextFile, Row, Column, Text="", Delimiter=",")
    Set field data at specific Row & Column
    also Delimiter can be changed. (eg: A_Space or A_Tab without ")

--------------------------+
File Join/Split Functions |
--------------------------+
- TXT_ConCat(FirstTextFile, SecondTextFile, OutputFile, Blanks = 0, FirstPadMargin = 0, SecondPadMargin = 0) by HugoV
    Concatenate %FirstTextFile% and %SecondTextFile% and save to %OutputFile%
    Optionally can set specific blank, margin rules.
   
--------------------------------------------------------------------------------
*/

;Borrowed from SKAN. Thanks!
;http://www.autohotkey.com/forum/viewtopic.php?t=26146#162899
TXT_TotalLines(TextFile){
Original := A_BatchLines
SetBatchLines, -1
    FileRead, Str, %TextFile%
    StringReplace, Str, Str, `n, `n, UseErrorLevel
SetBatchLines, %Original%
    Return ErrorLevel+1
}

TXT_ReadLines(TextFile, StartLine, EndLine){
Original := A_BatchLines
SetBatchLines, -1
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index between %StartLine% and %Endline%
            OutPut .= A_LoopField "`n"
        Else if (A_Index=EndLine+1)
            Break
    }
SetBatchLines, %Original%
    Return OutPut
}

TXT_Replace(TextFile, SearchText, ReplaceText=""){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    StringReplace, Output, Str, %SearchText%, %ReplaceText%, All
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_RegExReplace(TextFile, StartLine, EndLine, NeedleRegEx, Replacement=""){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index between %StartLine% and %Endline%
        {
            OutPut .= RegExReplace(A_LoopField, NeedleRegEx, Replacement, Count)
            OutPut .= "`n"
            Counts += Count
        }
        Else
            OutPut .= A_LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
    Return Counts
}

TXT_RemoveLines(TextFile, StartLine, EndLine){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index between %StartLine% and %Endline%
            Continue
        Else
            OutPut .= A_LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_RemoveBlankLines(TextFile){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `r`n
        OutPut .= (RegExMatch(A_LoopField,"[\S]+?")) ? A_LoopField "`n" :
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_RemoveDuplicateLines(TextFile, CaseSensitive="True"){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Case := (CaseSensitive="True") ? "C" :
    Sort, Str, U %Case%
    Removed := Errorlevel
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
    Return Removed
}

TXT_InsertLine(TextFile, Line, Text){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index < %Line%
            Head .= A_LoopField "`n"
        Else If A_Index >= %Line%
            Tail .= A_LoopField "`n"
    }
    OutPut := Head . Text "`n" . Tail
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_ReplaceLine(TextFile, Line, ReplaceText=""){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
        OutPut .= (A_Index=Line) ? ReplaceText "`n" : A_LoopField "`n"
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_InsertPrefix(TextFile, StartLine, EndLine, Text){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index between %StartLine% and %Endline%
            OutPut .= Text A_LoopField "`n"
        Else
            OutPut .= A_LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_InsertSuffix(TextFile, StartLine, EndLine, Text){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index between %StartLine% and %Endline%
            OutPut .= A_LoopField Text "`n"
        Else
            OutPut .= A_LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_TrimLeft(TextFile, StartLine, EndLine, Count){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index between %StartLine% and %Endline%
        {
            StringTrimLeft, StrOutPut, A_LoopField, %Count%
            OutPut .= StrOutPut "`n"
        }
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_TrimRight(TextFile, StartLine, EndLine, Count){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If A_Index between %StartLine% and %Endline%
        {
            StringTrimRight, StrOutPut, A_LoopField, %Count%
            OutPut .= StrOutPut "`n"
        }
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_AlignLeft(TextFile, Columns=80){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        LoopField := RegExReplace(A_LoopField,"(^\s+)")
        SpaceNum := Columns-StrLen(LoopField)-1
        OutPut .= LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_AlignCenter(TextFile, Columns=80){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        LoopField := RegExReplace(A_LoopField,"^\s+")
        SpaceNum := (Columns-StrLen(LoopField)-1)/2
        VarSetCapacity(Spaces%A_Index%, SpaceNum, 32)
        If (StrLen(LoopField) >= Columns)
            OutPut .= LoopFIeld "`n"
        Else
            OutPut .= Spaces%A_Index% LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_AlignRight(TextFile, Columns=80){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        LoopField := RegExReplace(A_LoopField,"^\s+")
        SpaceNum := Columns-StrLen(LoopField)-1
        VarSetCapacity(Spaces%A_Index%, SpaceNum, 32)
        If (StrLen(LoopField) >= Columns)
            OutPut .= LoopFIeld "`n"
        Else
            OutPut .= Spaces%A_Index% LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_GetCSV(TextFile, Row=1, Column=1, Delimiter=","){ ;A_Tab, A_Space
Original := A_BatchLines
SetBatchLines, -1
    FileReadLine, Str, %TextFile%, %Row%
    StringSplit, Line, Str, %Delimiter%
    Output := Line%Column%
SetBatchLines, %Original%
    Return Output
}

; How SetCSV Works :
; 1) Get all lines into memory
; 2) If processing line doesn't match to specified Row, Don't touch it
; 3) Else Split row by delimiter
; 4) If A_Index matches to specified column set it with specified text
; 5) add delimiter or not based on column position (last=don't add)
TXT_SetCSV(TextFile, Row, Column, Text="", Delimiter=","){ ;A_Tab, A_Space
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If (A_Index!=Row)
            OutPut .= A_LoopField "`n"   
        Else
        {
            StringSplit, Line, A_LoopField, %Delimiter%
            Loop, %Line0%
            {
                if (A_Index!=Column)
                    Output .= Line%A_Index% Delimiter
                Else
                    OutPut .= (Line0!=Column) ? Text Delimiter : Text
            }
            OutPut .= "`n"
        }
    }
    If OW {
        FileDelete, %TextFile%
        If ErrorLevel
            Return ErrorLevel
        FileAppend, %OutPut%, %TextFile%
        If ErrorLevel
            Return ErrorLevel
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        If ErrorLevel
            Return ErrorLevel
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
        If ErrorLevel
            Return ErrorLevel       
    }
SetBatchLines, %Original%
}



; __________________________________________________________
/*                                                         /
    Functions below this are contributed by other people. /
    Thanks for their efforts and contribution !          /
  ______________________________________________________/
*/



;____________________
; Functions by HugoV \________________________________________________
; http://www.autohotkey.com/forum/profile.php?mode=viewprofile&u=5470 |
;____________________________________________________________________/

/*
Based on:
CONCATenate text files, ftp://garbo.uwasa.fi/pc/ts/tsfltc22.zip

Usage: TXT_ConCat(FirstTextFile, SecondTextFile, OutputFile, Blanks = 0, FirstPadMargin = 0, SecondPadMargin = 0)

With TXT_ConCat you can join Text files side by side.
Blanks is number of blanks between lines
You can pad with blanks the right margin of either of the text files,
for this use FirstPadMargin and SecondPadMargin
Example: TXT_ConCat("file1.txt","file2.txt","concat.txt","15","5","7")
-> 15 spaces between the lines from file1 and file1, padding first file 5 spaces, padding Send file 7

Improvement: perhaps introduce a character which can be used instead of the spaces

*/       
TXT_ConCat(FirstTextFile, SecondTextFile, OutputFile, Blanks = 0, FirstPadMargin = 0, SecondPadMargin = 0){
Original := A_BatchLines
SetBatchLines, -1
    If (Blanks > 0)
        Loop, %Blanks%
        InsertBlanks .= A_Space
    If (FirstPadMargin > 0)
        Loop, %FirstPadMargin%
        PaddingFile1 .= A_Space
    If (SecondPadMargin > 0)
        Loop, %SecondPadMargin%
        PaddingFile2 .= A_Space
; first we need to determin the file with the most lines for our loop
    File1:=TXT_TotalLines(FirstTextFile)
    File2:=TXT_TotalLines(SecondTextFile)
    If (File1 > File2)
        MaxLoop:=File1
    Else
        MaxLoop:=File2
    Loop, %MaxLoop%
    {
    FileReadLine, Section1, %FirstTextFile%, %A_Index%
    FileReadLine, Section2, %SecondTextFile%, %A_Index%
    OutPut .=  Section1 PaddingFile1 InsertBlanks Section2 PaddingFile2 "`n"
    Section1= ; otherwise it will remember the last line from the shortest file
    Section2=
    }
    FileAppend, %OutPut%, %OutputFile% 
SetBatchLines, %Original%
}

/*
Usage: TXT_LineNumber(TextFile, LeadingZeros = 0)
LeadingZeros = 0 No padding with leading zeros
LeadingZeros >= 1 Include padding with leading zeros (001 v 1)
*/
TXT_LineNumber(TextFile, LeadingZeros = 0){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    If (LeadingZeros > 0)
    {
        StringReplace, Str, Str, `n, `n, UseErrorLevel
        Lines:=ErrorLevel+1
        Padding:=StrLen(Lines)
        Loop, %Padding%
            PadLines .= "0"
    }
    Loop, Parse, Str, `n
    {
        LineNumber:= A_Index
        If (LeadingZeros > 0)
        {
            LineNumber := Padlines LineNumber  ; add padding
            StringRight, LineNumber, LineNumber, StrLen(Lines) ; remove excess padding
        }
    OutPut .= LineNumber A_Space A_LoopField "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_ColGet(TextFile, StartColumn, EndColumn, Skip = 0){ ;skip = empty lines
Original := A_BatchLines
SetBatchLines, -1
TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    EndColumn:=(EndColumn+1)-StartColumn
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        If (Skip = 1) and (A_LoopField ="")
            Continue
        StringMid, Section, A_LoopField, StartColumn,EndColumn
        OutPut .= Section "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
    FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

/*
Based on:
COLPUT.EXE & CUT.EXE, ftp://garbo.uwasa.fi/pc/ts/tsfltc22.zip
*/

TXT_ColPut(TextFile, StartColumn, Text, Skip = 0){ ; skip = shorter lines (e.g. lines shorter startcolumn position)
Original := A_BatchLines
SetBatchLines, -1
StartColumn--
    FileRead, Str, %TextFile%
TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    Loop, Parse, Str, `n, `r
    {
   StringLeft, Section1, A_LoopField, StartColumn
        StringMid, Section2, A_LoopField, StartColumn
        If (Skip = 1) and (StrLen(A_LoopField) < StartColumn)
                     OutPut .= Section1 Section2 "`n"
            Else       
                     OutPut .= Section1 Text Section2 "`n"

    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
   FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_ColCut(TextFile, StartColumn, EndColumn){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    StartColumn--
    EndColumn++
    FileRead, Str, %TextFile%
    Loop, Parse, Str, `n, `r
    {
        StringLeft, Section1, A_LoopField, StartColumn
        StringMid, Section2, A_LoopField, EndColumn
        OutPut .= Section1 Section2 "`n"
    }
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
        FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

TXT_Tail(TextFile, Lines = 1) ;have dependency on TotalLines / ReadLines
{
Original := A_BatchLines
SetBatchLines, -1
    Lines--
    Endline:=TXT_TotalLines(TextFile)
    StartLine:=EndLine - Lines
    OutPut:=TXT_ReadLines(TextFile, Startline, EndLine)
SetBatchLines, %Original%
    Return Output
}

TXT_ReverseLines(TextFile, StartLine = 0, EndLine = 0){
Original := A_BatchLines
SetBatchLines, -1
    TextFile := (SubStr(TextFile,1,1)="!") ? (SubStr(TextFile,2),OW=1) : TextFile
    FileRead, Str, %TextFile%
    StringSplit, Line, Str, `n, `r
    If (EndLine = 0)
        EndLine:=Line0
    If (EndLine > Line0)
        EndLine:=Line0
    If (StartLine > 0) ; get first section
    {
        Loop, Parse, Str, `n, `r
        {
        If (A_Index < StartLine)
            Output1 .= A_LoopField "`n"
        Else
            Break
        }
    }
    CountDown:=EndLine+1
    Loop, Parse, Str, `n, `r ; get reversed section
    {
        If A_Index between %StartLine% and %Endline%
        {
        CountDown--
        Output2 .= Line%CountDown% "`n"
        }
        If A_Index > Endline
            Break
    }
    If (EndLine < Line0) ; get last section
    {
        Loop, Parse, Str, `n, `r
        {
        If (A_Index > EndLine)
            Output3 .= A_LoopField "`n"
        }
    }
    OutPut.= Output1 Output2 Output3
    StringTrimRight, OutPut, OutPut, 1 ; remove trailing `n
    If OW {
        FileDelete, %TextFile%
        FileAppend, %OutPut%, %TextFile%
    }
    Else {
        SplitPath, TextFile,, Dir, Ext, Name
        FileDelete, % Dir "\" Name "_copy." Ext
    FileAppend, %OutPut%, % Dir "\" Name "_copy." Ext
    }
SetBatchLines, %Original%
}

set_CSV(__file, __delimiter=",") {
   global

   SplitPath __file, __name
   _row = 0
   _col = 0
   fileRead _file, %__file%
   
   loop parse, _file, `n
   {
      _row++
      loop parse, A_LoopField, %__delimiter%
      {
         if(_row = 1)
            _col++

         __matrix%_row%_%A_Index% = %A_LoopField%
      }
   }
return
}


CSV_totalRows() {
   global
   return % --_row    ;%
}
CSV_totalColumns() {
   global
   return % _col        ;%
}

CSV_readCell(row = 1, column = 1) {
   global
   return % __matrix%row%_%column%           ;%
}

CSV_writeCell(row, column, value) {
   global
   __matrix%row%_%column% := value
   
   return % __matrix%row%_%column%           ;%
}

set_CSV("file.csv")

MsgBox % CSV_totalRows()          ;%
MsgBox % CSV_readCell(5, 2)          ;%

;returns str with leading tabs replaced with tablen # of spaces
TXT_ReplaceLeadingTabs(str, tablen=4) {
   loop, %tablen%
      tabrep .= " "
   loop {    ;it only replaces one level of tabs at a time, so loop to get them all
      str := RegExReplace( str, "m)^([ ]{0,})\t", "$1" . tabrep, lRep )
      if !lRep
         break
   }
   return str
}

TXT_TotalLines(Textfile)

MsgBox % TXT_TotalLines("c:\appdata.txt")