”’ This Script for Check Max length In Edit Box (single line edit box ) With ussing Maxlength Function
Set ObjName = Window(“Flight Reservation”).WinEdit(“Name:”)
Function Fun_maxlength (ObjName)
Dim m_counter
Dim m_maxlength
Dim m_entervalue
m_entervalue=”a”
m_counter=0
Do
ObjName.set m_entervalue
m_value =ObjName.GetROProperty(“text”)
m_counter=m_counter+1
m_maxlength=len(m_value)
m_entervalue=m_value+”a”
Loop until (m_counter<>m_maxlength)
Fun_maxlength =m_maxlength
End Function