'
' File Cfield.bas written 25-Jul-2017 14:32:42
'
' Usage: a$=Cfield$("one,two,three",2,",") or Cfield$("one,two,three",2)
' returns: "two"
' The delimiter character is optional and can be almost any char
' eg "," or ";" or ":" or "/" or "x" or " " ... (default: ",")
'
' It leaves leading and trailing spaces untrimmed
' Please use LTrim & RTrim for that if you need it(CFunctions)
'
' One call of Cfield$() takes about 0,3ms
'
' For the TBS by twofingers (2017), Public Domain
'

CFunction Cfield$(string,integer,string) string
00000000
27BDFFD8 AFBF0024 AFB40020 AFB3001C AFB20018 AFB10014 10C00003 AFB00010
10000002 80C60001 2406002C 90B30000 24900001 90850000 02052821 0080A021
02008821 10000008 24120001 14660005 26020001 26910001 26520001 325200FF
0200A021 00408021 12050005 0272102B 5040FFF6 82030000 10000021 3C029D00
26910001 3C029D00 8C420040 0040F809 24040100 0253902B 16400011 A0400000
0200A021 1260000F 8FBF0024 02911823 A0430000 0291182B 1460000A 8FBF0024
00401821 24630001 92240000 A0640000 26310001 0291202B 5080FFFB 24630001
8FBF0024 8FB40020 8FB3001C 8FB20018 8FB10014 8FB00010 03E00008 27BD0028
8C420040 0040F809 24040100 1000FFE5 A0400000
End CFunction

char* field$(char* inputstr, long long* sel_field, char* delimiter_char)
{
char delim;
if (delimiter_char == NULL){ // if delimiter not provided
delim = ','; // default char ','
}else{
delim = delimiter_char[1]; // BASIC string character
}

unsigned char sel; // if selected field number not provided
if(sel_field == NULL) { // Error!
sel = 0;
}else{
sel = (unsigned char)*sel_field; // selected field number
}

unsigned char delim_count=1; // counter for delimiters
unsigned char len = inputstr[0]; // BASIC string length
char* p_istr=inputstr+1; // set pointer to the string content
char* p_astr=inputstr+1; // begin pointer
char* p_estr=inputstr; // end pointer

char* p_ret; // pointer to return string
char* p_tmp; // temp string pointer

len++;
while(--len && (delim_count <= sel)){ // count fields with trailing
// delimiters
if (*p_istr++ == delim){
p_astr=p_estr+1;
p_estr=p_istr-1;
delim_count++;
}
}

if(!len){ // last field has no delimiter
p_astr=p_estr+1;
p_estr=p_istr;
}

p_ret = GetTempMemory(256);
*p_ret = '\0'; // Store BASIC (trimmed) string length
if (!(delim_count < sel) && sel){ // if sel_field not out of range
p_tmp = p_ret; // Copy pointer to ret string
*p_ret = p_estr - p_astr; // store string length
while (p_astr <= p_estr) {// Copy the string, starting from the first char
*++p_tmp = *p_astr++;
}
}
return p_ret;
}

void main(){}