BlitzCoder Code Database

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

BlitzCoder Code Archives Page

Main Codes Page

"Mantra: quotes.bb function module", by alias jargon

publisher: 666 Network
program: Mantra
module: quotes.bb
purpose: realtime .wav .mp3 .m3u .pls demonic distortion

Code

Function quote$(f$,num$,q$)
     Local q1$=""
     Local q2$=""
     Local ntok=0
     If Instr(num$,"'",1)>0 Then
          If Lower(quote$(num$,1,"'"))=Lower("tok") Then
               num$=quote$(num$,2,"'")
               ntok=1
          EndIf
     EndIf
     Local n=num$
     Local nleft=0
     Local nright=0
     Local nlast=0
     Local ncount=0
     Local nlasttok$=""
     Select Lower(num$)
     Case Lower("count")
          n=-1
     Case Lower("last")
          n=-2
     Default
          n=num$
     End Select
     Repeat
          nleft=Instr(f$,q$,nlast+1)
          nright=Instr(f$,q$,nleft+1)
          If nleft=0 Or nright=0 Then
               Select n
               Case -1
                    Return ncount
               Case -2
                    Return nlasttok$
               Default
                    Return ""
               End Select                    
          EndIf
          If nleft=0 Or nright=0 Then Return ""
          ncount=ncount+1
          nlasttok$=Mid$(f$,nleft+1,nright-nleft-1)
          If ncount=n Then
               Return nlasttok$
          EndIf
          If ncount>n And n>0 Then Return ""
          Select ntok
          Case 0
               nlast=nright
          Case 1
               nlast=nleft+1
          End Select
     Forever
End Function

Code software created by Krylar's Kreations