String manipulation - GameCreators Forum

Author

Message

FieldDoc

23

Years of Service

User Offline

Joined: 30th May 2003

Location: London, UK

Posted: 7th Jun 2003 20:32

Link

I have a function that returns a string. The string contains 3 numbers separated by a space. E.g:

134 5 890
1 464 609

The numbers vary from between 1 and 3 characters long. I want to write another function that takes this string and works out what each value is (somehow using the space as a cue to the start of the next number). I can't figure it out. Can anyone help?

Life is like a penis:
When it's soft you can't beat it, when it's hard you get screwed.

Back to top

Profile PM Website

Rob K

Retired Moderator

23

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 7th Jun 2003 21:19

Link

+ Code Snippet

dim num(20)

a$= "134 5 890"
b$= "1 464 609"

c$ = a$ + " " + b$

SplitToNum(c$)

do
   for i=0 to 19
      Print num(i)
   next i
   suspend for key
loop

function SplitToNum(Split$)
last=0
   for i=0 to len(Split$)+1
      if val(mid$(Split$,i)) <> 0 or mid$(Split$,i) = "0"
         outnum$=outnum$+mid$(Split$,i)
      else
         num(last)=val(outnum$)
         last = last+1
         outnum$ = ""
      endif
   next i


endfunction

Do you want Windows menus in your DBP apps? - Get my plugin: http://snow.prohosting.com/~clone99/downloads/tpc_menus_102.zip

Back to top

Profile PM Email Website

FieldDoc

23

Years of Service

User Offline

Joined: 30th May 2003

Location: London, UK

Posted: 7th Jun 2003 21:56

Link

Thanks Rob....you're a star!

BTW, How do I change the colour of the screen? I want to make it white, not black