Verwenden von sprintf zum Formatieren einer Ganzzahl mit Kommas als Tausendertrennzeichen

Question

Wie verwendet man sprintf zum Formatieren einer Ganzzahl, um Kommas als Tausendertrennzeichen anzuzeigen?

Ich weiß, wie es mit String.Format funktioniert, aber ich kann keinen Weg finden, es mit Sprintf zu tun.

EDIT: Basierend auf Fjodor Soikin Kommentar unten, habe ich versucht, diesen Code:

printf "%a" (fun writer (value:int) -> writer.Write("{0:#,#}", value)) 10042 
let s = sprintf "%a" (fun writer (value:int) -> writer.Write("{0:#,#}", value)) 10042 

Die printf funktioniert (aber schreibt auf die Standardausgabe, während ich einen String erhalten möchte ich den Text zuordnen können oder Inhaltseigenschaft eines WPF-Steuerelements zum Beispiel).

Der Sprintf-Aufruf schlägt mit Fehler fehl. FS0039: Das Feld, Konstruktor oder Element 'Schreiben' ist nicht definiert.

Wenn ich diesen Fehler beheben könnte, dann könnte dies die direkteste Lösung sein, die möglich ist, und in Kombination mit der partiellen Anwendung wäre so knapp wie eine integrierte Version.

Answer 1

Dies funktioniert, aber es sollte einen einfacheren Weg geben.

let thousands(x:int64) = 
    System.String.Format("{0:#,0}", x) 

let s = sprintf "%s" (thousands(0L)) 
printfn "%s" s 

let s = sprintf "%s" (thousands(1L)) 
printfn "%s" s 

let s = sprintf "%s" (thousands(1000L)) 
printfn "%s" s 

let s = sprintf "%s" (thousands(1000000L)) 
printfn "%s" s 

0 
1 
1,000 
1,000,000 

Eine etwas bessere Version

let printNumber (x : int) : string = 
    System.String.Format("{0:N0}",x) 

Answer 2

Da Sie nicht tun können, dass mit dem Printf-Modul, das tue ich es wie folgt aus:

/// Calls ToString on the given object, passing in a format-string value. 
let inline stringf format (x : ^a) = 
    (^a : (member ToString : string -> string) (x, format)) 

Und dann es so nennen:

someNumber |> stringf "N0"