'TextAreaChar' and 'TextAreaLine'

TextAreaChar :
L1- xxxxxxxx
L2- xxxxIxxx
L3- xxxxxxxx

I is 17th char in text
"textareachar txtgadget,17" will return 2

-------------------------------------------------

TextAreaLine :
L1- xxxxxxxx
L2- Ixxx
L3- xxxxxxxx

I is 17th char in text, it is the first char in L2 line
"textarealine txtgadget,2" will return 17