众里寻他千百度，蓦然回首，那人却在灯火阑珊处

acme_pjz

Otoboku 发表于 2013-4-13 12:33
@acme_pjz
这个嘛，我也试过，不知道为什么就是无效，你改出来看看，少很多转化的

少什么转化啊我已经改好了：

1. Option Explicit
   
2. 
   
3. Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
   
4. Private Declare Function wvnsprintfW Lib "shlwapi.dll" (ByRef pszDest As Any, ByVal cchDest As Long, ByRef pszFmt As Any, ByRef arglist As Any) As Long
   
5. 
   
6. Public Function sPrintf(ByVal cchDest As Long, ByVal Fmt As String, ParamArray Params()) As String
   
7.     Dim RStr As String
   
8.     Dim i As Long
   
9.    
   
10.     Dim pVar As Long
    
11.     Dim ValVar() As Long
    
12.    
    
13.     If cchDest <= 0 Then Exit Function
    
14.    
    
15.     ReDim ValVar(UBound(Params))
    
16.    
    
17.     For i = 0 To UBound(Params)
    
18.         pVar = VarPtr(Params(i))
    
19.         CopyMemory ValVar(i), ByVal pVar + 8, 4
    
20.     Next
    
21.    
    
22.     RStr = Space(cchDest)
    
23.     i = wvnsprintfW(ByVal StrPtr(RStr), cchDest, ByVal StrPtr(Fmt), ValVar(0))
    
24.    
    
25.     sPrintf = Left(RStr, i)
    
26. End Function
    
27. 
    
28. Private Sub Command1_Click()
    
29. MsgBox sPrintf(1024, "%s,%s,%s,%I64d,%08X,%f,End", "11", "22", "33", 44@, 55, 3.14, 6.28)
    
30. End Sub
    

复制代码

不过不知道为什么，我和你这个都不支持浮点数(%f)的显示

admin6677

这个难道是C的参数代入？

用数值直接替换字符串？