Positioning cursor writing or deletion of values

FUNCTION

INSERTCHR (TXTBOXID, TEXT) {txtboxid.focus ();

VAR

Workrange

=

Document.selection.createRANGE ();

IF

(WorkRange.Text

! =

NULL

) {WorkRange.Text

=

""

} Txtboxid.select ();

VAR

AllRange

=

Document.selection.createRANGE (); Workrange.seetendpoint

"

StartTostart

"

Allrange);

IF

(WorkRange.Text

! =

""

) {WorkRange.Text

=

TEXT; Workrange.collapse

False

Workrange.select ();

Else

{AllRange.Text

=

allRange.collapse

False

ALLRANGE.SELECT ();}}

FUNCTION

Delchr (txtboxid) {txtboxid.focus ();

VAR

Workrange

=

Document.selection.createRANGE ();

IF

(WorkRange.Text

! =

""

) {WorkRange.Text

=

""

Workrange.select ();

Return

} Txtboxid.select ();

VAR

AllRange

=

Document.selection.createRANGE (); Workrange.seetendpoint

"

StartTostart

"

Allrange);

IF

(WorkRange.Text

! =

""

) {WorkRange.Text

=

Workrange.text.substr

0

Workrange.Text.length

-

1

WorkRange.collapse

False

Workrange.select ();

Else

{AllRange.Text

=

Allrange.Text.substr

0

Allrange.Text.length

-

1

ALLRANGE.COLLLAPSE

False

ALLRANGE.SELECT ();}}