AutoHotkey Community

Text=
(
aMode,,0000003e,4
aMode,,0000003e,A
aMode,,0000003e,C
aMode,,0000003e,3
)

LastCol:=StrLen(TF_ReadLines(Text, 1, 1, 1))
LastChars:=TF_ColGet(Text, 1, 0, LastCol, LastCol)
StringReplace, LastChars, LastChars, `n,,All
MsgBox % LastChars

GetLine:=TF_Find(ReceivedData,"","","disengage",1,1)

if ReceivedData contains aMode
GetLine:=TF_Find(ReceivedData,"","","aMode",0,1)
StringSplit, amode, GetLine, `,,
if amode4 is number
MsgBox % amode4

if ReceivedData contains aMode
{
GetLine:=TF_Find(ReceivedData,"","","aMode",0,1)
StringSplit, amode, GetLine, `,,
var:=amode4 + amode4 etc..  HELP On this
if receivedData not contains aMode
MsgBox % var
}

test=
(join`n
aMode,,A0000003e,4
aMode,,,,,,0000003e,A
aMode,0000003e,C
aMode,,0000003e,3
aMode,,00xx,Z
)
var=
Loop, Parse, test, `n, `r
    var .= SubStr(A_LoopField, InStr(A_LoopField, ",", false , 0) + 1, 1)
MsgBox % var

#Include %A_ScriptDir%\tf.ahk

F=!C:\Temp\Startup_log.ini
TF_RegExReplace(F, ".*\\\s*$", "")

F=
(join`r`n
hello this
is a Text  \
to see how it
works \
bye bye
)
MsgBox % TF_RegExReplace(F, "im)(.*)\\\s*$", "$1")

F=
(join`r`n
hello this
is a Text  \
to see how it
works \
bye bye
)
MsgBox % TF_RegExReplace(F, "m).*\\\s*", "")

;#include tf.ahk ; remove comment if you don't include TF in your library
test=
(
1-this is line 1
2-this is line 2
3-this is line 3
4-this is line 4
5-this is line 5
6-this is line 6
7-this is line 7
8-this is line 8
9-this is line 9
10-this is line 10
)

MsgBox % TF_SwapLines(test, "2,4")
;MsgBox % TF_SwapLines(test, "1-5,6-12") ; Note 12 > end of file, should work correctly
;MsgBox % TF_SwapLines(test, "2-4,8-10")
;MsgBox % TF_SwapLines(test, "1-2,5-10")
;MsgBox % TF_SwapLines(test, "1,5-10")
;MsgBox % TF_SwapLines(test, "2-4,8")
;MsgBox % TF_SwapLines(test, "1,10")

; swap 2 lines or two sections of lines in a text file, HugoV
TF_SwapLines(Text, SwapLines)
   {
    IfInString, SwapLines, + ; check if "incremental" values where used if so Return
      Return
    StringReplace, SwapLines, SwapLines, `,,`,, UseErrorLevel
    If (ErrorLevel > 1) ; too many parameters
      Return
    TF_GetData(OW, Text, FileName)   
    StringSplit, Line, Text, `n, `r
    Text=
    Loop % Line0
      Order .= A_Index ","
    Order:= "," . Order
    IfInString, SwapLines, - ; check if it is a section of lines if so make use of MakeMatchList
      {
       StringSplit, Swap, SwapLines, `,
       Loop % Swap0
          If (InStr(Swap%A_Index%,"-") > 0)
             {
             StringSplit, SectionsCheck, Swap%A_Index%, - ; built in check to see if last line of swap section isn't beyond end of file to prevent inserting empty lines
             If (SectionsCheck2 > Line0)
               Swap%A_Index% := SectionsCheck1 "-" Line0
             Swap%A_Index% := _MakeMatchList(TextFile, Swap%A_Index%)
            }
      }
    Else ; just swap two lines
      {
          StringSplit, Swap, SwapLines, `,
       }
    StringReplace, Order, Order, `,%Swap2%`,, `,%Swap1%`,
    StringReplace, Order, Order, `,%Swap1%`,, `,%Swap2%`,
    StringTrimRight, Order, Order, 1 ; remove trailing ,             
    StringTrimLeft, Order, Order, 1 ; remove leading ,             
    Loop, Parse, Order, `, ; create output with lines in the new order (the swapped lines)
      ; Text .= Line%A_Index% "|" Line%A_LoopField% "`n" ; test line remove comment and comment line below to show test results side by side
      Text .= Line%A_LoopField% "`n"
     Return TF_ReturnOutPut(OW, Text, FileName, 0)
    }

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

test=
(
1-this is line 1
2-this is line 2
3-this is line 3
4-this is line 4
5-this is line 5
6-this is line 6
7-this is line 7
8-this is line 8
9-this is line 9
10-this is line 10
)

; just swap line 3 with 4.
swapped1 := swaplines(test, 3, 4)
msgbox %swapped1%

; puts 6 at position after 10. because there is no more then 10 lines.
swapped2 := swaplines(test, 6, 12)
msgbox %swapped2%

swaplines(ByRef _source, _start, _end)
{
    If (r := InStr(_source, "`r") ? "`r" : "")
    {
        nchar := "`r`n"
        nlen := 2
    }
    Else
    {
        nchar := "`n"
        nlen := 1
    }
    Loop, Parse, _source, `n, %r%
    {
        If (A_Index < _start)
        {
            beginLines .= A_LoopField . nchar
        }
        Else If (A_Index > _end)
        {
            endLines .= A_LoopField . nchar
        }
        Else If (A_Index = _start)
        {
            swapLine1 := A_LoopField . nchar
        }
        Else If (A_Index = _end)
        {
            swapLine2 := A_LoopField . nchar
        }
        Else
        {
            swapLinesBetween .= A_LoopField . nchar
        }
    }
    new := beginLines . swapLine2 . swapLinesBetween . swapLine1 . endLines
    StringTrimRight, new, new, %nlen%
    Return new
}