Oma,
Can you change your EEPS to something like this:
SET VAR vOperand TEXT = '+'
-- SPACE button eep
SET VAR vOperand = '&'
return
-- Ab button EEP
Set var vbuttonvalue = 'Ao'
Set var vfield = (.vfield &vOperand .vbuttonvalue)
IF vOperand = '&' THEN
SET VAR vOperand = '+'
ENDIF
recalc var
return
----- Original Message -----
From: "OmaYahoo" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Saturday, June 06, 2009 7:18 AM
Subject: [RBASE-L] - RE: SPACE ADDED TO A VAR FIELD IN A FORM
Emmitt,
Thank you for your response but there is no keyboard to press the space
bar
to enter the space! It is a touch screen! I agree with your example if I
was using a keyboard!
The space button value is defined in the on before eep of the from
vSpace is set to either ' ' and char(32)
--space button eep
set var vfield = (.vfield+.vSPACE)
recalc var
return
--Ab button eep
Set var vbuttonvalue = 'Ab'
Set var vfield = (.vfield+.vbuttonvalue)
recalc var
return
--Ao button eep
Set var vbuttonvalue = 'Ao'
Set var vfield = (.vfield+.vbuttonvalue)
recalc var
return
If I press button Ab then the space button then the Ao button there is not
space between the Ab and Ao entry.
The space charater does not add to the var.
I'll use the '.' for the time being until I can determine a way to do
this!
Best regards,
Oma Cox
O.C. Services Inc.
P.O. Box 5485
Brandon, MS 39047
662.820.7599
601.992.6785
www.ocservicesinc.com
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Emmitt
Dove
Sent: Friday, June 05, 2009 4:52 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - RE: SPACE ADDED TO A VAR FIELD IN A FORM
Oma,
Your eep needs to be a bit more intelligent, and keep track of the
previous
key pressed. So, when a user hits a space bar, set a variable telling you
that the previous keypress was space, then when the next key is pressed,
test for the previous key being a space and add the space at this time.
Something like this:
vstring = the string you are assembling
SET VAR vkeypressed TEXT
SET VAR vprevkey TEXT
IF vkeypressed = (CHAR(32)) THEN
SET VAR vprevkey = 'space'
RETURN
ENDIF
IF vprevkey = 'space' THEN
SET VAR vstring = .vstring & .vkeypressed
SET VAR vprevkey = 'not_a_space'
ELSE
SET VAR vstring = .vstring + .vkeypressed
ENDIF
RETURN
You can do the same thing with a backspace key if the position just before
the character just deleted is a space.
Emmitt Dove
Manager, Converting Applications Development
Evergreen Packaging, Inc.
[email protected]
(203) 214-5683 m
(203) 643-8022 o
(203) 643-8086 f
[email protected]
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of OmaYahoo
Sent: Friday, June 05, 2009 3:59 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - SPACE ADDED TO A VAR FIELD IN A FORM
Hello everyone!
I have a var field on a form
I have several buttons defined with different alpha characters.
I'm using this on a touch screen! No keyboard for entry.
I have each entry display as they are entered using the var field.
Like vField = (.vField+.vNewButtonValue)
The one thing I need to do is some times a space is needed between the
alpha
characters entered. The space requirement is random.
I've attempted to define a space button using either ' ' or (char(32))
The var using ' ' does not added a space after the previous button pushed
or
the next button after the space button is pushed.
The same for var = (char(32))
I have a work around but it involves using '.' as space
After completion of the field entry
I replace the '.' with ' '.
vField = (SRPL(.vField,'.',' ',0))
The users think this is a little strange seeing a '.' instead of a space!
Does anyone have any suggestions?
Best Regards,
Oma Cox
O.C. Services Inc.
P.O. Box 5485
Brandon, MS 39047
662.820.7599
601.992.6785
www.ocservicesinc.com
--- RBASE-L
================================================
TO POST A MESSAGE TO ALL MEMBERS:
Send a plain text email to [email protected]
(Don't use any of these words as your Subject:
INTRO, SUBSCRIBE, UNSUBSCRIBE, SEARCH,
REMOVE, SUSPEND, RESUME, DIGEST, RESEND, HELP)
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: INTRO
================================================
TO UNSUBSCRIBE:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: UNSUBSCRIBE
================================================
TO SEARCH ARCHIVES:
Send a plain text email to [email protected]
In the message SUBJECT, put just one word: SEARCH-n
(where n is the number of days). In the message body,
place any
text to search for.
================================================
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.339 / Virus Database: 270.12.53/2156 - Release Date: 06/05/09
06:24:00
