Sami,
I realized I had some code that resembled what I suggested the
other day. Here is the revised version that might help with what you
were working on.
Ben Petersen
-- BldInput.eep
SET V vFldNm = (CVAL('form_field_name'))
SET V vForceback INTEGER=0
SET V vYourNoteField TEXT
SET V vCmd = ('Set v vCmd = Null')
-- Pipe denotes user input
SET V vMyText = 'Get input1|Get input2|Get input3'
-- Above could come from a table
IF vFldNm = 'vYourNoteField' THEN
IF 'vYourNoteField' IS NULL THEN
SET V vForceback = (SLOC('|',(SGET(.vMyText,1,(SLEN(.vMyText))))))
-- Is user input required at end of string? Check on first iteration
ENDIF
SET V vCT = 1
SET DELIMIT='|'
WHILE 1 < 2 THEN
SET V vTstTxt = (SSUB(.vMyText|.vCT))
IF vTstTxt IS NULL THEN
BREAK
ENDIF
IF (SLOC(.vYourNoteField|.vTstTxt)) = 0 THEN
SET V vYourNoteField = (.vYourNoteField+.vTstTxt)
BREAK
ENDIF
SET V vCT = (.vCT+1)
ENDWHILE
SET DELIMIT=','
ENDIF
IF vFldNm = 'TheFieldAfterYourNoteField' THEN -- <g>
IF vTstTxt IS NOT NULL THEN
SET V vCmd = 'Skip to vYourTextField'
ENDIF
IF vForceback >= 0 AND vTstTxt is null THEN
SET V vForceback = -1
SET V vCmd = 'Skip to vYourTextField'
ENDIF
ENDIF
&vCmd
Playback EndKey.ply -- Move cursor to endof string for input
RETURN
On 6 Nov 2002, at 16:57, Sami Aaron wrote:
> Well, I'm trying this message again - I can't believe that there is NO
> other R:BASE developer who used this little-know function and who
> figured out how to make it work in the Windows version ... Ok, I
> don't want to believe it ... so feel free to jump in...
>
> Sami
>
> ----- Original Message -----
> From: "Sami Aaron" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Monday, November 04, 2002 9:18 AM
> Subject: Keymap with pause for input
>
>
> > I have a client converting from R:BASE for DOS to Windows and they
> > use a number of Keymap calls that have the built-in pause for user
> > input - I
> think
> > it used the "&" in the DOS version. I've not been able to find how
> > to
> make
> > this work in the Windows version. It simply types out the text in
> > the keymap, including the ampersands, without any pause.
> >
> > TIA,
> >
> > -----------------------------------------------------------
> > Sami Aaron
> > Software Management Specialists
> > 19312 W 63rd Terr
> > Shawnee KS 66218
> > 913-915-1971
> > http://www.softwaremgmt.com
> >
> > ================================================
> > TO SEE MESSAGE POSTING GUIDELINES:
> > Send a plain text email to [EMAIL PROTECTED]
> > In the message body, put just two words: INTRO rbase-l
> > ================================================
> > TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
> > In the message body, put just two words: UNSUBSCRIBE rbase-l
> > ================================================ TO SEARCH ARCHIVES:
> > http://www.mail-archive.com/rbase-l%40sonetmail.com/
> >
>
>
> ================================================
> TO SEE MESSAGE POSTING GUIDELINES:
> Send a plain text email to [EMAIL PROTECTED]
> In the message body, put just two words: INTRO rbase-l
> ================================================
> TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED] In
> the message body, put just two words: UNSUBSCRIBE rbase-l
> ================================================ TO SEARCH ARCHIVES:
> http://www.mail-archive.com/rbase-l%40sonetmail.com/
>
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
