fork(6) download
copy 
  1. var
  2.   c : Char;
  3.   s : String = 
  4.   '[123, 2345, ''test'', ''str1, str2'', -1234, ''str3 ''is'' str4'']';
  5.   Chunks : Integer = 1;
  6.   Quotes : Boolean = true;
  7.  
  8. begin Writeln(s); 
  9.   for c in s do case c of
  10.     '''': Quotes := not Quotes;
  11.      ',': if Quotes then inc(Chunks) 
  12.   end;
  13.   Writeln('Chunks = ', Chunks); Readln
  14. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[123, 2345, 'test', 'str1, str2', -1234, 'str3 'is' str4']
Chunks = 6
https://ideone.com/Pc2AtP
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!