Code: Select all

Loop, 25
{
	i :=	A_Index-1	; set var instance number
	FileReadLine, Message%i%, %Filename%, %LineNum%
	LineNum += 5
}

Code: Select all

xl :=	ComObjActive("Excel.Application")
xl.Range("A1:E3").Value :=	1

Code: Select all

FileRead, TextFileA, TextFileA.txt
FileRead, TextFileB, TextFileB.txt
FileAppend, % TextFileB . "`r`n" . RegExReplace(TextFileA,"`am)^.{3}\K.+"), TextFileC.txt
MsgBox, Finished!
Run, TextFileC.txt

Code: Select all

#SingleInstance, Force

f1::
if	!sending
{
	sending :=	1
	Loop, 5
		Send 0123456789{ENTER}
	sending :=	0
}
return

Code: Select all

i :=	0
 , v :=	"`r`n"
 , o :=	{}
FileRead, in, text.txt
arr :=	StrSplit(Trim(RegExReplace(in,"\v+","`n"),"`n"),"`n")
For i, t in arr
	if	Mod(i,2) && !o[t]
		o[t] :=	1, out .=	t v arr[i+1] v v 
FileDelete, nodupes.txt
FileAppend, %	Trim(out,v), nodupes.txt
return

Code: Select all

For cell, Value in Xl.Selection

Code: Select all

For cell in Xl.Selection