AutoHotkey Community

Code: Select all

; s = string, n = nth word, delim = delimiters, ignore = ignored chars, i = start pos
capitalizeN(ByRef s, n, delim:=" `t`r`n:;,.!?()=", ignore:="-'""", i:=1) {
	while n
		InStr(ignore,c:=SubStr(s,i,1)) || inword:=InStr(delim,c) ? 0 : inword || n--, i++
	StringUpper c, % SubStr(s,i-1,1)
	return SubStr(s,1,i-2) c SubStr(s,i)
}


s =
(
"out   (of) 
africa;;;is 
a:'movie'"!.out of africa,is=an ? "africa-themed" movie
)

loop 13
	msgbox % capitalizeN(s, A_Index)

Code: Select all

str = out of africa is an "africa-themed" movie
MsgBox % capitaliseNthWord(str, 6)

capitaliseNthWord(str, n) {
	static NEEDLE := "(?:[[:alpha:]]|-)+"

	WordPositions := []
	Loop
	{
		if (A_Index == 1)
			pos := RegExMatch(str, NEEDLE, match)
		else
			pos := RegExMatch(str, NEEDLE, match, pos + StrLen(match))

		if !pos
			break

		if match
			WordPositions.Push(pos)
		else
			++pos
	}

	return RegExReplace(str, "(.)", "$U1", , 1, WordPositions[n])
}

Code: Select all

q:: ;capitalise first letter of nth word
vText := "out of africa is a movie"
vNum := 3
MsgBox, % RegExReplace(vText, "^([^ ]* *){" (vNum-1) "}\K.", "$U0")
return

Code: Select all

q:: ;capitalise first letter of nth word
vText := "out of africa is a movie"
vOutput := ""
Loop, 8
{
	vNum := A_Index
	;vOutput .= RegExReplace(vText, "^([^ ]* *){" (vNum-1) "}(\x22?)\K.", "$U0") "`r`n" ;not quite right
	vOutput .= RegExReplace(vText, "^([^ ]* +){" (vNum-1) "}(\x22?)\K.", "$U0") "`r`n"
}
MsgBox, % vOutput
return

Code: Select all

s =
(
firstword
"out   (of) 
africa;;;is 
a:'movie'"!.out of africa,is=an ? "africa-themed" movie
)"

loop 14
	msgbox % SubStr(RegExReplace("`n" s, "^([\w\-]*[\W]*){" A_Index "}\K.", "$U0"), 2)

Code: Select all

q:: ;capitalise first letter of nth word (+ ignore leading quote)
;vText := "out of africa is a movie"
vText := Chr(34) "out of africa is a movie" Chr(34)
vOutput := ""
Loop, 8
{
	vNum := A_Index
	vOutput .= RegExReplace(vText, "^([^ ]* +){" (vNum-1) "}(\x22?)\K.", "$U0") "`r`n"
}
MsgBox, % vOutput
return

Code: Select all

RegExReplace(s, "^([\w\-]*[\W]*){" n-1 "}\K[\w\-]*", "$t0")

Code: Select all

str = out of africa is an "africa-themed" movie
MsgBox % modifyNthWord(str,6,"U") "`n"
	. modifyNthWord(str,6,"T") "`n"
	. modifyNthWord(str,6,"L")

modifyNthWord(str, n,doWhatToWord:="U",wordDelim:=" "){		;doWhatToWord can be U,L or T. i.e Upper,Lower,Titlecase
	Return % RegExReplace(StrSplit(str,wordDelim)[n], "(.*)", "$" doWhatToWord "{1}")
}

Code: Select all

var := "out of africa is a movie "
n := 8

msgbox, % subStr(var, 1, n-1) format("{1:U}", (subStr(var, n, 1))) subStr(var, n+1)
; => "out of Africa is a movie "

Code: Select all

n:=3
str:=StrSplit("out of africa is a movie ", A_Space)
MsgBox % res := StrReplace(str, str[n], StrTitle(str[n]))

StrTitle(inVar) {
   StringUpper, outVar, inVar, T
   return outVar
   }