Stopping Entered Text disappearing off screen

[Michiel Spape]

Oops, there's a slight problem with the code below; sorry about that. This should work better:

dim inputstring as string
dim outputstring as string
dim previousnum as integer
dim i as integer
inputstring = "This is an example string"

previousnum = 1
for i = 6 to len(inputstring) step 5
	outputstring = outputstring & mid(inputstring, previousnum, 5) & "\n"
	previousnum = i
next i
outputstring = outputstring & mid(inputstring, previousnum, 1+len(inputstring)-previousnum)
debug.print outputstring

------------
Output:
This 
is an
 exam
ple s
tring

------------

Michiel Spapé
Research Fellow
Perception & Action group
University of Nottingham
School of Psychology


-----Original Message-----
From: e-prime at googlegroups.com [mailto:e-prime at googlegroups.com] On Behalf Of Michiel Spape
Sent: 19 July 2010 15:59
To: e-prime at googlegroups.com
Subject: RE: Stopping Entered Text disappearing off screen

Hi,
Could you explain a bit more as to what exactly your problem is? Is text left and right disappearing from the screen (say, from every line of text), or do you just try to fit more text on a screen than can be displayed (such that the last bits of text at the very end are cut off)? Or, finally, is the problem that no new-lines are entered into the textdisplay echo (if you're using that)?
	The first possible issue, which could conceivably be your problem, usually happens because the monitor isn't correctly configured to display 640x480 resolutions (a rather ancient - say, windows 3.1 - default resolution). To do something about that, just run your experiment and fiddle with the monitor until the width and height are actually within the scope of the screen.
	Obviously, the second of these issues cannot magically be resolved; I mean, given that you're using a full-screen text display, it can only contain so much text before there's no more screen left. Changing font-size or resolution will, as said, fix that problem, as would some implementation of 'press N for next page'; but apart from that, a box can only contain so many objects before the contents will spill over, so to say.
	The third issue, word-wrap itself being the problem, might be resolved by manually (as in, with some code) adding new-lines to the text. I suppose that can't be too hard. Dump this in an empty experiment as an inline and run to see what I mean
-----------

dim inputstring as string
dim outputstring as string
dim previousnum as integer
dim i as integer
inputstring = "This is an example string"

previousnum = 1
for i = 6 to len(inputstring) step 5
	outputstring = outputstring & mid(inputstring, previousnum, 5) & "\n"
	previousnum = i
next i

debug.print outputstring
------------
Output:
This 
is an
 exam
ple s

----------
How's that? This piece of code converts the inputstring to a rather crudely cut outputstring, by adding new lines after every 5th letter. Of course, you'd need to find out how many letters fit on the screen, then adjusting 'step 5' to 'step howmanyletters' and 'for i = 6' to 'for I = howmanyletters + 1'
Best,
Mich


Michiel Spapé
Research Fellow
Perception & Action group
University of Nottingham
School of Psychology

-----Original Message-----
From: e-prime at googlegroups.com [mailto:e-prime at googlegroups.com] On Behalf Of Evertox
Sent: 19 July 2010 15:34
To: E-Prime
Subject: Stopping Entered Text disappearing off screen

Hello,
I asked a question last week regarding a TextDisplay WordWrap problem.
Does anybody have a script to ensure a participants text entered is
ALL shown on the screen.
I do not want to change the screen resolution or font size to achieve
this.
I am trying a few methods based on the InputMask and EchoClient
objects but have not succeeded so far.
I need something fairly quickly and would appreciate assistance.
Anthony McGuffie
Coventry University

-- 
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com.
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com.
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.

This message has been checked for viruses but the contents of an attachment
may still contain software viruses which could damage your computer system:
you are advised to perform your own checks. Email communications with the
University of Nottingham may be monitored as permitted by UK legislation.

-- 
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com.
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com.
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.

-- 
You received this message because you are subscribed to the Google Groups "E-Prime" group.
To post to this group, send email to e-prime at googlegroups.com.
To unsubscribe from this group, send email to e-prime+unsubscribe at googlegroups.com.
For more options, visit this group at http://groups.google.com/group/e-prime?hl=en.