Also a build in
Code: Select all
Procedure StringFieldSize(String$,Separator$)
count=1
For I=1 To Len(string$)
If Mid(string$,i,1)=Separator$
count+1
EndIf
Next
ProcedureReturn count
EndProcedure
Code: Select all
Procedure StringFieldSize(String$,Separator$)
count=1
For I=1 To Len(string$)
If Mid(string$,i,1)=Separator$
count+1
EndIf
Next
ProcedureReturn count
EndProcedure