simple String function
Posted: Wed Dec 15, 2010 8:25 pm
Something I need very often when operating with files is a split or seperate function like this one:
It seperates a String by a seperator and optional removes fill characters (not needed very often)
for example
Maybe it can be added to the string lib native for all the other users to enjoy it 
Code: Select all
; Will Seperate a String
Procedure.s Seperate(String.s,Seperator.s,Index.l,Trim.l)
Define Count.l, Start.l, n.l
If Right(String,Len(Seperator)) <> Seperator
String = String + Seperator
EndIf
For n = 1 To Len(String)
If Mid(String,n,Len(Seperator)) = Seperator
count + 1
If count = index
String = Left(String,n-1)
If Trim = 1
ProcedureReturn ReplaceString(String," ","")
Else
ProcedureReturn String
EndIf
Else
String = Right(String,Len(String)-n)
n = 0
EndIf
EndIf
Next
EndProcedure
; End Seperate(String.s,Separator.s,Index.l)
for example
Code: Select all
debug Seperate("Martin;Winterhuder Weg 82;someone@something.com",";",1,0) ; Returns 'Martin'
debug Seperate("Martin;Winterhuder Weg 82;someone@something.com",";",2,0) ; Returns 'Winterhuder Weg 82'
debug Seperate("Martin;Winterhuder Weg 82;someone@something.com",";",2,1) ; Returns 'WinterhuderWeg82'