need help with a string....

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|423\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> need help with a string....
Mon, 14 Apr 2008, 17:23
Orion Pax	How would I iterate through this info to have each value stored into a variable of a type.... [2,0,-12529.8,11090.9,-4885.1,1,0,0,"IRTF",0,???,???,???,???,0,0,0,0] --v I am stumped on this. With varying different types of information there its quite difficult. I was gonna do ascii values and something else but it was proving too complex for me to do.
Mon, 14 Apr 2008, 17:37
Jayenkai	Split Text Function (Grab the SplitText function from the bottom.) First, you can cut off the two sides.. they're just brackets Next, flick through using SplitText$, and pluck out all the bits. Then just do with each as you need to.. Graphics 320,600,32,2 in$="[2,0,-12529.8,11090.9,-4885.1,1,0,0,"+Chr$(34)+"IRTF"+Chr$(34)+",0,???,???,???,???,0,0,0,0]" ; cut off the 2 ends. in$=Right$(in$,Len(in$)-1) in$=Left$(in$,Len(in$)-1) Print in$ splitAt=1 Repeat split$=splittext$(in$,",",SplitAt) If split$<>"-+-" ; If not -+- (where -+- indicates we're at the end..) ; If not wrapped in "'s and has a decimal, treat as a float. If Left$(split$,1)<>Chr$(34) And Right$(split$,1)<>Chr$(34) And Instr(split$,".")>0 MyFloat#=split$ Print "Number : "+MyFloat EndIf ; If not wrapped in "'s and doesn't have a decimal, treat as a int. If Left$(split$,1)<>Chr$(34) And Right$(split$,1)<>Chr$(34) And Instr(split$,".")=0 MyInt=split$ Print "Number : "+MyInt EndIf ; Otherwise treat as string If Left$(split$,1)=Chr$(34) And Right$(split$,1)=Chr$(34) MyString$=split$ MyString$=Right$(MyString$,Len(MyString$)-1) If Len(MyString$)>1 :MyString$=Left$(MyString$,Len(MyString$)-1):Else:MyString$="":EndIf Print "Text "+MyString$ EndIf EndIf splitAt=splitAt+1 Until split$="-+-" ; that -+- is returned when there's nothing else.. if you need to change it, it's at the bottom of the SplitText function. Flip WaitKey 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 Note : It doesn't work for those ???'s, so if you really need them to work... Well, I'll let you do that part -=-=- ''Load, Next List!''
Tue, 15 Apr 2008, 13:24
Orion Pax	Well I dont NEED the ??? as its variables that havent been given a value yet. So if it replaces them with zeros then thats fine too. I can also change the value later. Thanks. i saw that in the code archives but wasnt sure if it would do what I needed from the description. Thanks. I was pulling my hair out on this. I couldnt even get a function finished much less try it out. I would get so far and be like ARGHHH....all that math made my head hurt.