Topic:   RealBasic   (Read 31624 times)

LET tempstr$ = ""
// initalizes a empty string to work with

IF COUNTFIELDS(source$, separator$) < fieldNumber THEN
   STOPALERT "There are not enough fields in that string!"
// if the number of fields seperated by separator$ in source$ are smaller than fieldNumber, then display the message
ELSE
   IF fieldNumber = 1 THEN
      LET tempstr$ = output$
      FOR x = 2 TO COUNTFIELDS(source$, separator$)
         LET tempstr$ = tempstr$ + separator$ + NTHFIELD$(source$, separator$, x)
      NEXT
// tempstr$ = tempstr$ + separator$ + the field value that comes before the x (x is given values by the loop so every field value is accounted for) occurance of seperator$ in source$
   ELSE
      IF fieldNumber = COUNTFIELDS(source$, separator$) THEN
         FOR x = 1 TO COUNTFIELDS(source$, separator$)-1
            LET tempstr$ = tempstr$ + NTHFIELD$(source$, separator$, x) + separator$
         NEXT
// tempstr$ = tempstr$ + (the field value that comes before the x [x is given values by the loop so every field value is accounted for] occurance of seperator$ in source$)+ separator$ 
         LET tempstr$ = tempstr$ + output$
      ELSE
         FOR x = 1 to fieldNumber-1
            LET tempstr$ = NTHFIELD$(source$, separator$, x) + separator$
//tempstr$ = (the field value that comes before the x [x is given values by the loop so every field value is accounted for] occurance of seperator$ in source$)+ separator$ 
         NEXT
         LET tempstr$ = tempstr$ + output$
         FOR x = fieldNumber+1 TO COUNTFIELDS(source$, separator$)
            LET tempstr$ = tempstr$ + separator$ + NTHFIELD$(source$, separator$, x)
// tempstr$ = tempstr$ + separator$ + the field value that comes before the x (x is given values by the loop so every field value is accounted for) occurance of seperator$ in source$
         NEXT
      END IF
   END IF
END IF
RETURN tempstr$