SScanF

[Zvoni]

I do not see that as an improvement. One space extra and the array length becomes three, not two. (unless TStringsplitoptions.Exclide empty is specified.
If the second string needs to be quoted, you can requote with s.QuotedString('"');

Improvement as in: I don't care if there are double quotes in the source-string or not.
My Split-Delimiter is SPACE, not Doublequote, so i don't have to juggle ExcludeEmpty and Trimming any resulting strings.
Yes, "requoting" the remaining String is easy enough.
1) Check with "Pos"-Function if source contains Doublequotes
2) Execute my algorithm
3) Requote the Join-Result if 1) was true

I could even leave out the "Replace"-call to remove doublequotes and requote later.
The Doublequotes would just be a part of the Strings

I just used the StartingIndex-Argument of the Join-Function as in:
Take Member 0 of the Array. That's your Errorcode. Everything else from StartingIndex 1 on is the remaining String.

[Thaddy]

Isn't that overkill for the original question + its fixed format? I also do overkill sometimes, as you know.
Given a fixed format, which it likely is, my second example should be correct.
Let's see what OP thinks...
Let's agree that sscanf is not the solution. He can pick and choose a solution by now.

[ginoo]

I solved it by calling sscanf from libc

sscanf(PAnsiChar(esitoInvioMail), '%d "%[^"]"', @codiceErr, @Msg);

[Thaddy]

I don't think that is a wise decision (you introduced a dependency on external code), but hey, if it works, fine with me.

Just curious: why do you think my code is not enough? Did you even test Zvoni's code and my code?
Because both solutions are more lightweight and more cross-platform than linking in a dangerous! C library for no obvious reason.

If the format is like I suspected: a fixed format, you are making a mistake.
Even if it works: Freepascal's sscanf is the same as C, which means you did not pay attention.
And certainly my solution is more safe and cross-platform.

If the C version works, the Pascal version works too, so in that case you have been wasting Zvoni's and my time.

Zvoni's solution just looks more complex because he tried to solve a problem that isn't there.
My solution just "works" for the format you gave us and is a one liner.

Don't dismiss my code because it is simple: I am known to write good code that is simple. See cdbc's comment.. and it is production ready, while avoiding the pitfalls of sscanf....

[Zvoni]

I solved it by calling sscanf from libc

sscanf(PAnsiChar(esitoInvioMail), '%d "%[^"]"', @codiceErr, @Msg);

Dear Lord........
what Thaddy said....Not our monkeys.....

Zvoni's solution just looks more complex because he tried to solve a problem that isn't there.

Yes and no.
The "Source" he wants to parse is an answer of a mailer daemon.
This time it's invalid recipients, next time it's "Attachment too big", "Mailbox full", or whatever else....

My Approach was more of a generic way, not relying on the fact, that the daemon is configured correctly.

One malformed answer (e.g. missing double quotes) and it stops working

[Thaddy]

The "Source" he wants to parse is an answer of a mailer daemon.

Ah, I missed that. That makes your efforts clear and explains why you took the trouble.
I withdraw the isn't part. I have seen the light 

[Zvoni]

*snip*
I withdraw the isn't part. I have seen the light 

"Blinded by the Light"...*sing*.....
No....wait...hang on......
 

[ginoo]

Thank you all, and I'm looking at your solutions. I just suggested another one before.
I'm looking at yours.
Thanks again.

[Thaddy]

Above solutions are better but:
Another solution returns the string quoted and protects against tabs and space errors:

Code: Pascal  [Select][+][-]

1. {$mode objfpc}{$H+}
2. uses classes;
3. var
4.   s:string ='554 "554 5.5.1 Error: no valid recipients"';
5.   L:TStringlist;
6. begin
7.   L:= TStringlist.create;
8.   try
9.     ExtractStrings([#9,#32,#37,#39],[#9,#32],PAnsiChar(s),L);
10.     writeln(L.text);
11.   finally
12.     L.Free;
13.   end;
14. end.

This outputs:

Code: [Select]

554
"554 5.5.1 Error: no valid recipients"