Hi, Stefan

to print the first word, you might find this line of code somewhat useful:

StringSplit[#, Except[WordCharacter] ..][[1]] & /@ test

otherwise, this should work:

n = Length[test];
Do[Print["i=", i]; 
  Print[test[[i]]]; 
  words = TextWords[test[[i]]]; 
  Print[words[[1]]], {i, 2, n}];

Dear Sandu

It was just the semicolon! All the weekend reading without finding the answer. Must I end all lines with a semicolon within a loop?

I thought that if you end a command with semicolon it doesn't show an output and this was the reason for omitting it in the loop, but I was wrong.

I will also try the more concise solution you propose.

Thank you, Stefan

Hi Stefan, you are right about it splitting into at most 4 words. I did that because I recognized the Spice format. Parsing that 4th word is more complicated. For example Pulse( . . . ) must be recognized as a source spec, with the required argument list, and can't be just parsed at spaces until you've decided that the what is in ( . . ) is the argument list. Although you could eliminate the limit of 4 words, and then handle the split string. You could in fact add "(" and ")" to the list of delimiters and wind up with "Pulse" and 7 following arguments. (This is also a good example of a convenient truth: In Mathematica, there is almost always a better solution than a procedural loop.)

Best, David