retrieve lines of text from textbox gadgets | Player Factory

foufa
New Member

Posts: 7

retrieve lines of text from textbox gadgets Mar 2, 2005 21:48:48 GMT

Quote

Post by foufa on Mar 2, 2005 21:48:48 GMT

Hello again ;D

I try xlnt since a week now and really enjoy it a lot !
Really a good job.

Now I try to write file to the disk and send string network message.
But have a problems with carriage return.

Is there any way to parse each textBox line to add one chr$(13)+chr$(10) to is end ?

Thanks

Last Edit: Mar 4, 2005 16:29:17 GMT by foufa

foufa
New Member

Posts: 7

retrieve lines of text from textbox gadgets Mar 3, 2005 21:34:13 GMT

Quote

Post by foufa on Mar 3, 2005 21:34:13 GMT

As nobody answer ;D

There is something to play with (if anybody try to do the same thing)


GAD.GAD = Object.GAD(handle(chatbox))
myTXTBNK.TXTBNK = Object.TXTBNK(Handle(GAD\INP\INPUTBNK))
myTXTBNK\TXT$ ; The last entered line of text
For i=0 To GAD\INP\LINES - 1
	myTXTBNK = Before myTXTBNK
	myTXTBNK\TXT$ ; Where TXT$ return the line before the last entered one
next

Hum... Ho yeah ! In this way lines are reversed but i'm sure it's not a problem

HOWEVER, if you enter new lines in the text box, these lines won't finish by chr$(13) it is why the command GUI_GadText$(Gad) is not suitable enought to writeLine in a stream...

Do you have ideas about this ?

Last Edit: Mar 4, 2005 16:28:15 GMT by foufa

foufa
New Member

Posts: 7

retrieve lines of text from textbox gadgets Mar 4, 2005 18:24:57 GMT

Quote

Post by foufa on Mar 4, 2005 18:24:57 GMT

Neverminds !
If you do this every modifications will go to the end cause every new lines goes into a new bank...
I have really no ideas on how to achieve this.
If only enter key add one chr$(13) at the end of every lines when you push it :s
GUI_GadText$(Gad) would work correctly...

foufa
New Member

Posts: 7

retrieve lines of text from textbox gadgets Mar 6, 2005 15:12:40 GMT

Quote

Post by foufa on Mar 6, 2005 15:12:40 GMT

OK ;D

I find a much more clean solution :

files XIO.BB lines 974

change


XL_AREA\TXT$=XL_AREA\TXT$+XL_BNK\TXT$;+Chr$(13)

by


If Not GAD\TYP = gad_TEXTAREA
   XL_AREA\TXT$=XL_AREA\TXT$+XL_BNK\TXT$
Else
   If Right(XL_BNK\TXT$,1)=Chr$(13)
      XL_AREA\TXT$=XL_AREA\TXT$+XL_BNK\TXT$
   Else
      XL_AREA\TXT$=XL_AREA\TXT$+XL_BNK\TXT$+Chr$(13)
   EndIf 
EndIf

Last Edit: Mar 6, 2005 15:27:36 GMT by foufa

digihzdata
New Member

Posts: 5

retrieve lines of text from textbox gadgets Oct 19, 2006 13:16:12 GMT

Quote

Post by digihzdata on Oct 19, 2006 13:16:12 GMT

foufa's solution works:
I wanted a multi line text input where a user can write his todo-log or change-log inside a blitz 3d program.

The first thing that you must be sure of is that you set GUI_TextBox value [WRAP] to 0.
ex:UserTodoChangelog_TextBox=GUI_TextBox(UserTodoChangelogWindow,8,28,470,350,0,1,"",0) ;cursor line feed works only if wrap is set to 0

Then i have a function in my program like:

Function save_user_todo(display_txt$)
fileout = WriteFile("mydata.dat")
row$=""
For i = 1 To Len(display_txt$)
char$=Mid$(display_txt$,i,1)
If char$=Chr$(13) Or char$=Chr$(10)
WriteLine fileout,row$
row$=""
char$=""
End If
row$=row$+char$
Next
CloseFile( fileout )
End Function

I call this function when i want to save the text to file.
ex:save_user_todo(GUI_GadText$(UserTodoChangelog_TextBox))

For reading the text from file i use this:

If EV_MENU_SELECT(itm_Project_Todo)
FIL=ReadFile("mydata.dat");read in the users project todo file here
End if
display_file$="";empty the string
If FIL
While Not Eof(FIL) display_file$=display_file$+ReadLine$(FIL)+Chr$(13)
Wend
CloseFile FIL
EndIf
GUI_SETTEXT(UserTodoChangelog_TextBox,display_file$)
GUI_SetActive(UserTodoChangelog_TextBox,1);0 makes it to a no input gadget