SetWorkingDir %A_ScriptDir%

FileRead, answStr, % A_ScriptDir "\d6.txt"

countA := []

count := 0

for i, j in StrSplit(answStr, "`r`n`r`n") {
    for k, l in StrSplit(StrSplit(j, "`r`n")[1]) {
        StrReplace(j, l,, c)
        if (c = StrSplit(j, "`r`n").Count())
            count += 1
    }
}

Clipboard := count