字符串计算所占用字节数

; By oldstone
text = "		1	2	3	4	5"
str := "Hello, World!"

MsgBox % StrLength(text) 
MsgBox % StrLength(str)


StrLength(myStr) {
  trueStrLength := 1
  charLength := StrLen(myStr) - 2
  if InStr(GetChar(myStr, 1), """")
    i := 2
  else
    i := 1 
  loop, %charLength% {
    myChar := GetChar(myStr, i)
    if InStr(myChar, "`t")
      trueStrLength := Ceil(trueStrLength/4)*4 + 1
    else
      trueStrLength := trueStrLength + 1
    i := i + 1 
  }
  return trueStrLength
}

GetChar(myStr, i) {
  char := substr(myStr, i, 1)
  return char
}