AutoHotkey Community

AutoTrim Off

v_Quote :=
(
"Let the first act of every morning be to make thefollowing resolve for the day:`nI shall not fear anyone on Earth`nI shall fear only God`nI shall not bear ill will toward anyone`nI shall not submit to injustice from anyone`nI shall conquer untruth by truth. And in resisting`nuntruth, I shall put up with all suffering`n- Mahatma Gandhi"
)

v_Quote2 := "Okay so now if you have a single line it doesn't work?"

msgbox, % f_Cloze(v_Quote, 20)
Msgbox, % v_Quote

msgbox, % f_Cloze(v_Quote2, 20)
Msgbox, % v_Quote2

; later I will reference some files with quotes I want to memorize
; Loop, %A_ScriptDir%\Memorizing\*.txt
; {
;   FileRead, v_File, %A_LoopFileFullPath%
;   msgbox, % f_Cloze(v_File, 20)
;   msgbox, % v_File
; }
return


; replace random words with __, trying to do it x percent of the time. f_Cloze(v_Text, v_Percent)
f_Cloze(v_Text, v_Percent)
{
  ; this bulky mess create a list of ones and zeros
  ; which when sorted randomly let me change exactly
  ; the right number of words (percentage)
  StringSplit, v_TextA, v_Text, %A_Space%
  v_PercentSpecific := ((v_TextA0 * v_Percent) / 100)
  Loop, %v_TextA0%
  {
    if (A_Index = 1) ; it would have to be at least 1% to be useful anyway
      v_ListPercentage := "1"
    if (A_Index > v_PercentSpecific)
      v_ListPercentage := v_ListPercentage . "`r`n0"
    if (A_Index <= v_PercentSpecific)
      v_ListPercentage := v_ListPercentage . "`r`n1"
  }
  Sort, v_ListPercentage, Random
  StringSplit, v_PIndex, v_ListPercentage, `n, `r
  Loop, Parse, v_Text, %A_Space%, `r`n
  {
    if (v_PIndex%A_Index% = 0)
    {
      v_Clozed := v_Clozed . A_Space . A_LoopField
    }
    if (v_PIndex%A_Index% = 1)
    {
      ; using [a-zA-Z-] avoids replacing linefeeds
      v_New := RegexReplace(A_LoopField, "[a-zA-Z-']", "_")
      v_Clozed := v_Clozed . A_Space . v_New
    }
  }
  return v_Clozed
}
return

  v_PercentSpecific := ((v_TextA0 * v_Percent) / 100)
  Loop, %v_TextA0%
  {
    if (A_Index = 1) ; it would have to be at least 1% to be useful anyway
      v_ListPercentage = 1
    if (A_Index > v_PercentSpecific)
      v_ListPercentage = %v_ListPercentage%`r`n0
    if (A_Index <= v_PercentSpecific)
      v_ListPercentage = %v_ListPercentage%`r`n1
  }

Msg := "This is a single line of text."
MsgBox % Msg