PRINT FIELD$("aaa,bbb,ccc", 2, ",")

Function Field$(s As String, n As Integer)
Const delim = "," ' set this to the field delimiter
Local Integer i, StartIdx = 1, EndIdx

' get the start of the field in StartIdx
For i = 2 To n
StartIdx = Instr(StartIdx, s, delim) + 1
If StartIdx = 1 Or StartIdx > Len(s) Then Exit Function
Next i

' get the end of the field in EndIdx and extract the field
EndIdx = Instr(StartIdx, s, delim)
If EndIdx = 0 Then EndIdx = 255
Field$ = Mid$(s, StartIdx, EndIdx - StartIdx)

' trim leading and trailing spaces
Do While Mid$(Field$, 1, 1) = " " : Field$ = Mid$(Field$, 2) : Loop
Do While Right$(Field$, 1) = " " : Field$ = Mid$(Field$, 1, Len(Field$) - 1) : Loop
End Function

'------------------------------------------------------------------------------
' My Message Split Routine.
'------------------------------------------------------------------------------

FUNCTION Split(s$, delim$) as integer 'Returns the number of fields in S$
LOCAL INTEGER z, n, m
DO 'Count number of fields in s$ (1 + # of deliminators)
z = z + LEN(delim$)
z = INSTR(z, s$, delim$)
n = n + 1
LOOP until z = 0
if n = 1 then 'Only one field (No deliminators)
RxdDataField$(1) = s$
Split = n
exit function
endif
DO
m = m + 1
RxdDataField$(m) = field$(s$ ,m ,delim$)
LOOP until m = n
Split = m
END FUNCTION

'------------------------------------------------------------------------------
' Geoff's Message Field$ Routine (with one amendment)
'------------------------------------------------------------------------------

Function Field$(s$, n, delim$)
Local Integer i, StartIdx = 1, EndIdx

' get the start of the field in StartIdx
For i = 2 To n
StartIdx = Instr(StartIdx, s$, delim$) + 1
If StartIdx = 1 Or StartIdx > Len(s$) Then Exit Function
Next i

' get the end of the field in EndIdx and extract the field
EndIdx = Instr(StartIdx, s$, delim$)
If EndIdx = 0 Then EndIdx = len(s$)+1 ' makes it smaller than 255
Field$ = Mid$(s$, StartIdx, EndIdx - StartIdx)

End Function

> ? mm.ver
5.0404
> list all


z=Split(Time$,":")
For n=1 To z
Print n,SP$(n)
Next


Function Split(a$,b$) ' returns the number of dimensions in SP$ always starts from 1 regardless of OPTION BASE
Local INTEGER z,n,m
On ERROR SKIP 1 ' if SP$ doesn't exist, next line will cause an error
Erase SP$
z=1:n=0
Do 'count instances of delimiter for DIM SP$()
z=Instr(z,a$,b$)
If z=0 Then
If n=0 Then ' no delimeters
Dim SP$(1):SP$(1)=a$:Split=1:Exit Function ' only one substring
Else
Exit Do
End If
Else
n=n+1:z=z+Len(b$)
End If
Loop

m=n+1:n=1
Dim SP$(m)
Do
z=Instr(1,a$,b$)
If z=0 Then
SP$(m)=a$:Exit Do
Else
SP$(n)=Left$(a$,z-1):a$=Mid$(a$,z+Len(b$)):n=n+1
End If
Loop
Split=m
End Function
> run
1 00
2 01
3 14
>

run
Sending Payload. 8 Bytes long.
[870] RxdDataField(m)=a$:Exit Do
Error: RXDDATAFIELD already declared

? mm.ver
5.0404
> run
[35] sp(m)=a$:Exit Do
Error: SP already declared
> list

z=Split(Time$,":")
For n=1 To z
Print n,SP$(n)
Next

Function Split(a$,b$) ' returns the number of dimensions in SP$ always starts from 1 regardless of OPTION BASE
Local INTEGER z,n,m
On ERROR SKIP 1 ' if SP$ doesn't exist, next line will cause an error
Erase sp$
z=1:n=0
Do 'count instances of delimiter for DIM SP$()
z=Instr(z,a$,b$)
If z=0 Then
If n=0 Then ' no delimeters
Dim sp$(1):sp$(1)=a$:Split=1:Exit Function ' only one substring
Else
Exit Do
End If
Else
n=n+1:z=z+Len(b$)
End If
Loop

m=n+1:n=1
Dim sp$(m)
Do
z=Instr(1,a$,b$)
If z=0 Then
sp(m)=a$:Exit Do '<<<<<<<< The missing $ issue I had
Else
sp$(n)=Left$(a$,z-1):a$=Mid$(a$,z+Len(b$)):n=n+1
End If
Loop
Split=m
End Function
>

Function Field$(s As String, n As Integer)
Const delim1 = "," ' set this to the field delimiter
Const delim2 = "*" ' set this to the second field delimiter
Local Integer i, StartIdx = 1, EndIdx

' get the start of the field in StartIdx
For i = 2 To n
StartIdx = Instr(StartIdx, s, delim1) + 1
If StartIdx = 1 Then StartIdx = Instr(StartIdx, s, delim2) + 1
If StartIdx = 1 Or StartIdx > Len(s) Then Exit Function
Next i

' get the end of the field in EndIdx and extract the field
EndIdx = Instr(StartIdx, s, delim1)
If EndIdx = 0 Then EndIdx = Instr(StartIdx, s, delim2)
If EndIdx = 0 Then EndIdx = 255
Field$ = Mid$(s, StartIdx, EndIdx - StartIdx)

' trim leading and trailing spaces
Do While Mid$(Field$, 1, 1) = " " : Field$ = Mid$(Field$, 2) : Loop
Do While Right$(Field$, 1) = " " : Field$ = Mid$(Field$, 1, Len(Field$) - 1) : Loop
End Function