To get the full range of $timer = TimerInit() $sRange = _GetRangeSPE() MsgBox(0, "Timer", Round(TimerDiff($timer) / 1000, 2) & ' sec') $hFile = FileOpen(@ScriptDir & '\Range.txt', 2) FileWrite($hFile, $sRange) FileClose($hFile) Func _GetRangeSPE() Local $Lower, $Upper, $s, $sRange, $tmp, $trg1 = 0, $trg2 = 0 For $i = 0x80 To 0xFFFF $s = ChrW($i) $Upper = StringUpper($s) $Lower = StringLower($s) If Not ($Upper == $Lower) Then $trg1 += 1 $tmp = $i Else $trg1 = 0