String Token$ - GameCreators Forum

developer forums

DarkBASIC Professional Discussion / String Token$

Author

Message

IBOL

Retired Moderator

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 16th Sep 2015 18:46

Link

I just found out that DBP has this "token" feature, which allows you to split up strings according so whatever "delimiter" you choose.

So, I just wrote a function that takes a long string, and breaks it up into shorter strings, for when you only have a limited amount of space for text per line.

so put it in a function , change the "MaxLineLength" , and output it in whatever format you like.

+ Code Snippet


open to write 1,"output "+str$(timer())+".txt"

MaxLineLength=24

 a$="here i have written another random set of words that you can use to tell how this program is progressing."
  
  b$=first token$(a$," ")
  z$=b$+" "
  REPEAT
    n$=""
   repeat
    b$=next token$(" ")
     if b$="" or len(z$+b$)>MaxLineLength 
      n$=b$
      EXIT
     else
      z$=z$+b$+" "
     endif
   until b$=""
   
   write string 1,z$
   y=y+20  
   Z$=n$
   if z$<>"" then z$=z$+" "
   
  UNTIL B$=""

http://www.indiedb.com/company/ibology

Profile PM Email Website

Server time is: 2024-04-26 08:10:45
Your offset time is: 2024-04-26 08:10:45

Sorry your browser is not supported!

DarkBASIC Professional Discussion / String Token$