A few questions on strings - GameCreators Forum

Author

Message

Mew151

16

Years of Service

User Offline

Joined: 1st Jun 2008

Location: Glitch city

Posted: 15th Feb 2010 22:28

Link

I have a few questions on strings:

1. How do I put a line feed character in a string?

2. How do I insert a line feed every X amount of characters in another string?

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 16th Feb 2010 00:45

Link

1. One way is:

String$ = String$+Chr$(10)+Chr$(13)

(10 is the LF and 13 is the CR).

2. Use the tutorials for basic stuff like this:

http://forum.thegamecreators.com/?m=forum_view&t=96009&b=7

TDK

*** TDK's Web Site ***

Back to top

Profile PM Email Website

Mew151

16

Years of Service

User Offline

Joined: 1st Jun 2008

Location: Glitch city

Posted: 16th Feb 2010 01:45

Link

Thanks!

My code isn't working properly, I'm trying to make it so once text hits the edge of the screen, it will add a new line to it.

Here's my code:

+ Code Snippet

IF LEN(Quote$) > (SCREEN WIDTH() - TEXT WIDTH(Quote$)) - 20
      FOR i = 1 TO LEN(Quote$)
         Temp$ = LEFT$(Quote$, i)
         IF LEN(Quote$) > (SCREEN WIDTH() - TEXT WIDTH(Quote$)) - 20
            Before$ = LEFT$(Quote$, i - 1)
            After$ = RIGHT$(Quote$, i)
            Speech$ = Before$ + CHR$(10) + CHR$(13) + After$
            EXIT
         ENDIF
      NEXT i
   ELSE
   Speech$ = Quote$
   ENDIF

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 16th Feb 2010 15:07

Link

This might give you a few clues:

http://forum.thegamecreators.com/?m=forum_view&t=122891&b=6

It's for DBC, but should work just the same in DBPro.

TDK

*** TDK's Web Site ***

Back to top

Profile PM Email Website

Mew151

16

Years of Service

User Offline

Joined: 1st Jun 2008

Location: Glitch city

Posted: 20th Feb 2010 22:25

Link

No matter what I try, I can't get it to work.
Here's my code:

+ Code Snippet

   Speech$ = Quote$
   Bef$ = ""
   Aft$ = ""
   LastSpace = 0
   Newlines = 0
   WHILE TEXT WIDTH(Speech$) > SCREEN WIDTH()
      FOR i = 1 TO LEN(Speech$)
         IF MID$(Speech$, i) = " " THEN LastSpace = i
         Bef$ = LEFT$(Speech$, LastSpace)
         Aft$ = RIGHT$(Speech$, LastSpace + 1)
         IF TEXT WIDTH(Bef$) > SCREEN WIDTH()
            TempTextArray$(i) = Bef$
            Speech$ = Aft$
            Inc Newlines
         ENDIF
      NEXT i
   ENDWHILE
   Speech$ = ""
   If Newlines > 0
      FOR i = 1 TO Newlines
         Speech$ = Speech$ + CHR$(10) + CHR$(13) + TempTextArray$(i)
      NEXT i
   ELSE
      Speech$ = Quote$
   ENDIF

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / A few questions on strings