BlitzCoder Essentials
•
Home Page
•
About BlitzCoder
•
Contributors
•
Terms of Use
•
Email Us
Main Areas
•
BlitzCoder Chat
•
Discussions
•
Articles/Tutorials
•
Code Database
•
Link Database
•
Showcase Area
•
Worklogs
•
Competitions
Special Areas
•
Undocumented
Other Blitz Sites
•
Blitz Basic Home
•
Blitz Showcase
•
BlitzPlay Library
Forum Login
Username:
Password:
•
Register Now!
BlitzCoder Code Archives Page
Main Codes Page
"Really fast tokens function"
, by kris_a
Tokenise a string in 10 lines!
Code
; I actually posted another tokens function under the name ;of 'kameleon',but it's so painfully slow it's embarrasing just to ;look at it. I've gained plenty of knowledge since then...! Function tok$(txt$,delim$,tok) start = 1 l = Len(delim$) For a = 1 To tok If a > 1 start = found + l found = Instr(txt,delim,start) length = found-start Next Return Mid(txt,start,length) End Function
Copyright(c) 2000-2004, BlitzCoder. All Rights Reserved.
Code software created by Krylar's Kreations
