Public Function FormatString(ByVal Format As String, ParamArray Args() As Variant) As String
  If UBound(Args) > -1 Then
    Dim i As Integer
    Dim iArg As Integer
    Do
      Dim sArg As String: sArg = "{" & i & "}"
      iArg = InStr(1, Format, sArg)
      If iArg > 0 Then Format = Replace$(Format, sArg, Args(i))
      i = i + 1
    Loop While (iArg > 0 And UBound(Args) + 1 > i)
  End If
  FormatString = Format
End Function
' Exemple d'utilisation :
MsgBox FormatString("Bonjour {0}, tu vas {1} ? On est le {2} aujourd'hui", "toi", "bien", Date)
' Affichera "Bonjour toi, tu vas bien ? On est le 9/18/2007 aujourd'hui" 

function FormatString(Format : string; Args : array of Variant): string;
var
  iNoArgs : integer;
begin
  for iNoArgs := 0 to High(Args) do
    Format := StringReplace(Format, '{' + IntToStr(iNoArgs) + '}', Args[iNoArgs], [rfReplaceAll, rfIgnoreCase]);


  Result := Format;
end;

// Exemple d'utilisation :
ShowMessage(FormatString('Bonjour {0}, tu vas {1} ? On est le {2} aujourd''hui', ['toi', 'bien', Date]));
// Affichera 'Bonjour toi, tu vas bien ? On est le 9/18/2007 aujourd'hui' 

ChaîneConstruit("Bonjour %1, tu vas %2 ? On est le %3 aujourd'hui","toi","bien",DateSys)

 <?php 
    function formatString($strFormat, $avarArgs)  
    { 
        $strRet = $strFormat; 
        if (is_array($avarArgs)) 
        { 
            for($i = 0; $i < count($avarArgs); $i++) 
            { 
                $strRet = str_replace('{'.$i.'}', $avarArgs[$i], $strRet); 
            } 
        } 
        else 
        { 
            $strRet = str_replace('{0}', $avarArgs, $strRet); 
        } 
        return $strRet; 
    } 
 
 

    echo formatString('Bonjour {0}, tu vas {1} ? On est le {2} aujourd\'hui<br />', array('toi', 'bien', strftime('%d/%m/%y'))); 
    echo formatString('Il est {0}<br />', strftime('%H:%M:%S')); 
 
?>