extract lines from file and copy to another file

[lXlXlXlXlXlXl]

or this i think is more what you want
Function Function13

Code:

Copy      Help

str sFile="$desktop$\original.txt" ;;File name
str ArgumentToFind="rn";; Word looking for
str destFolder="$desktop$\Found";;
str WildCard="*"
ArgumentToFind-WildCard;ArgumentToFind+WildCard
mkdir destFolder
destFolder+"\Found-%i.txt"
int j i
str s ss s3
ss.getfile(sFile)
foreach s ss
,i+1
,if matchw(s ArgumentToFind 3)
,,j+1
,,s3.format(destFolder j)
,,s.setfile(s3)
,,out s