20 lines
680 B
AutoHotkey
20 lines
680 B
AutoHotkey
#SingleInstance, Force
|
|
loc := A_ScriptDir "\data2.txt"
|
|
file := FileOpen(loc, "r")
|
|
|
|
Loop {
|
|
If (file.AtEOF)
|
|
Break
|
|
data := StrSplit(file.ReadLine(), [A_Tab, A_Space, "-"], " `t:-")
|
|
; 1:first number 2:second number 3:letter 4:password
|
|
reg := "^[^" data[3] "]*(" data[3] "[^" data[3] "]*){" data[1] "," data[2] "}$"
|
|
|
|
StrReplace(data[4],data[3],,test) ; String Replace to get # of LETTER
|
|
If (test>=data[1] AND test<=data[2]) ; Check if # of LETTER is within the bounds
|
|
p1++
|
|
If ((subStr(data[4], data[1], 1) == data[3])^(subStr(data[4], data[2], 1) == data[3])) ; Please don't make me explain this one
|
|
p2++
|
|
}
|
|
file.Close()
|
|
MsgBox % "Part 1: " p1 "`nPart 2: " p2
|