fork(8) download
copy 
  1. var
  2.   p : PChar =  '[123, 2345, ''test'', ''str1, str2'', -1234, ''str3 ''is'' str4'']';
  3.   Chunks : Integer = 1; BetweenQuotes : Boolean = false;
  4.  
  5. begin Writeln(p);
  6.   while p^ <> #0 do begin inc(p);
  7.     case p^ of
  8.       '''': BetweenQuotes := not BetweenQuotes;
  9.        ',': if not BetweenQuotes then inc(Chunks) 
  10.     end
  11.   end;  
  12.   Writeln('Chunks = ', Chunks); Readln
  13. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[123, 2345, 'test', 'str1, str2', -1234, 'str3 'is' str4']
Chunks = 6
https://ideone.com/Scnalo
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!