Split Text

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|207\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

Jayenkai	Created : 30 April 2007 Language : Blitz Split Text Grabs a bit of text from a string, based upon given parameters
I created this for my Hero Level format, but found it was also useful for parsing the Command Prompt. Splits a string up into it's components, splitting wherever there's a Split$ or a space (Although you can turn off space splitting with the last parameter.) in$="-Level 12 -Coins 32 -Lives 3 -Health 48 -Fullscreen -NoMusic" Level=1 Coins=0 Lives=5 Health=100 Fullscreen=0 Music=1 fin=0 n=1 ; Go through commands, taking the next value as the parameter when required. Repeat Command$=SplitText$(in$,"-",n) Select Upper$(Command$) Case "LEVEL" : n=n+1 : Level=SplitText$(in$,"-",n) Case "COINS" : n=n+1 : coins=SplitText$(in$,"-",n) Case "LIVES" : n=n+1 : lives=SplitText$(in$,"-",n) Case "HEALTH" : n=n+1 : health=SplitText$(in$,"-",n) Case "FULLSCREEN" : fullscreen=1 Case "NOMUSIC" : music=0 End Select n=n+1 If SplitText$(in$,"-",n)="-+-" Then fin=1 Until Fin=1 Temp$=Level+":"+coins+":"+Lives+":"+Health+":"+Fullscreen+":"+Music ;Display values of erm.. values. DebugLog temp$ ;Then split a list of colon seperated numbers. (We'll use the same values from above) For n=1 To 8 DebugLog SplitText$(temp$,":",n) Next Function SplitText$(in$,Split$,e,alsospace=1) out$="" in$=Trim(in$) e=e-1 start=1 nomore=0 For shift=1 To e If Instr(in$,Split$,start)+1<=nstart Then nomore=1 If Instr(in$,Split$,start)+1>nstart Then nstart=Instr(in$,Split$,start)+1 If AlsoSpace=1 Then If Instr(in$," ",start)+1<nstart And Instr(in$," ",start)>0 Then nstart=Instr(in$," ",start)+1 start=nstart Next size=(Instr(in$,Split$,start))-start If AlsoSpace=1 Then If (Instr(in$," ",start))-start<size And Instr(in$," ",start)>0 Then size=(Instr(in$," ",start))-start out$=Mid$(in$,start,size) If nomore=1 Then out$="-+-" Return out$ End Function --v

Comments

Comments