editing a string with user input, using entry$()

Author

Message

arganox

19

Years of Service

User Offline

Joined: 17th Sep 2005

Location:

Posted: 17th Sep 2005 13:44

Link

is it possible to grab a string and place it in the entry() buffer so the user can edit it or is there another way, i want to avoid using 'input' if possible

thanks

Back to top

Profile PM

Me!

19

Years of Service

User Offline

Joined: 26th Jul 2005

Location:

Posted: 17th Sep 2005 14:54

Link

I can`t find the "good greif" smiley

to quote Mr babbage...I am unable to comprehend what confusion of ideas led to this question, you do not have to place a string in the entry buffer to edit it, there are hundreds of text input routines in the codebase, maybe millions, (ok..so I exagerate a bit...but there are more than one), I get this feeling you feel that putting text into the entry buffer would somehow enable people to edit it, that a editor of some sort would just pop up out of somewhere, it won`t.

if you want the user to edit text then write a simple line editor, I have posted these before, you only need 8 or so lines of code.

the average IQ is 100...but the people that took the test where trying to look smart. most people don`t go over 50.
Area 51?, I`m more intrested in what they have in areas 1 to 50

Back to top

Profile PM

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 17th Sep 2005 15:01

Link

entry$() is a function that makes a buffer of all key-inputs. However, this function is only available in the enchanted mode.
I believe there is no way of adding a character in the entry buffer. But since you want to input without using the input command, I'd use this code I wrote:

+ Code Snippet

`turn sync on
sync on : sync rate 0

`reset variables
a$ = ""
oldkey$ = ""

`main loop
do

	`clear screen
	cls

	`when another key then the previous one is pressed...
	if oldkey$ <> inkey$()

		`...and backspace isn't pressed...
		if scancode() <> 14

			`...add character
			a$ = a$ + inkey$()
		else

			`...else make a dummy string...
			if len(a$) > 0
				temp$ = ""

				`...with one less character...
				for n = 1 to len(a$) - 1
					temp$ = temp$ + mid$(a$,n)
				next n

				`...and reset var
				a$ = temp$
			endif
		endif

		`make the current key the previous key
		oldkey$ = inkey$()
	endif


	`*** display on the screen ***
	text 50,50,a$

	sync
loop

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

arganox

19

Years of Service

User Offline

Joined: 17th Sep 2005

Location:

Posted: 17th Sep 2005 15:44

Link

Great, thank you

Back to top

Profile PM

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 17th Sep 2005 16:39 Edited at: 17th Sep 2005 16:41

Link

rather than add to the entry$() buffer...

use that buffer to add to a variable, and at the start of the loop, clear the entry buffer for use again

Part of a chat program I was working on:

+ Code Snippet

do
cls
if asc(inkey$()) = 8 then Delete=1 : gosub Delete
if returnkey()=1 and MessageText$="" then clear entry buffer : hostsend=0 : gosub SendMessageC
if returnkey()=1 and MessageText$<>"" then hostsend=1 : gosub SendMessageC
rem THIS IS THE USEFUL BIT TO YOU!
NewLetter$=entry$()
set cursor 0,745
print "> ", MessageText$, NewLetter$, cursor$
for LetterCount=1 to len(NewLetter$)
   MessageText$=MessageText$+mid$(NewLetter$,something)
next LetterCount
clear entry buffer
sync
loop

NewLetter$ is the whatever was in the entry buffer when it got to that line in the loop - end of the loop, it's cleared, so if the user's not pressing anything, NewLetter$ will be blank...

hope that helps in some way...

...maybe one day I'll finish a project

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / editing a string with user input, using entry$()