Código: Seleccionar todo

;=================================================
; Autor :  M3
; Proposito : Alternativa a StringLen  ( AutoIt )
; Modulo Original Vb6  Ported to AutoIt 
; Autor :  M3
;==================================================

Func sLenEx($sStr)

 Local $Result , $i , $bLen
 Do
   $i = $i + 1
   $bLen = StringLeft($sStr, $i)
   $Result = $i
 Until  $sStr = $bLen
 Return $Result

EndFunc