c#中format函數功能之一的VB實現——參數替換rFormat()

前幾天參加C#培訓，發現其中的FORMAT參數替換功能實在是實用，尤其是在寫SQL語句的時候，比如一個SQL 陳述式

insert into (f1,f2,f3) values (v1,v2,v3)

如果要用VB來寫，要加一串的 "" 和 & 連字號，實在是難寫又難看。基本上只要參數一多，幾乎100%要寫錯。如果用C#來寫，就是這樣

str sql="insert into (f1,f2,f3) values ('{0}','{1}','{2}')"

sql=sql.string.format(sql,v1,v2,v3)

文法寫的可能不對，才培訓幾天，還沒太熟悉C#的文法。這樣寫些來實在是方便，各個參數的位置一目瞭然。今天想了想 ，終於還是決定自己寫一個VB的函數，花了一個多小時，終於搞定，加入了各種錯誤檢查，應該是沒什麼問題了。

 

VB最多隻能繼行25行，所以就寫這麼多了，應該是夠用了，實在不夠用就去幾個換行加參數就是了。

11. Public Function rFormat(str As String, _
12.     ByVal v0 As Variant, _
13.     Optional ByVal v1 As Variant = "{E}", _
14.     Optional ByVal v2 As Variant = "{E}", _
15.     Optional ByVal v3 As Variant = "{E}", _
16.     Optional ByVal v4 As Variant = "{E}", _
17.     Optional ByVal v5 As Variant = "{E}", _
18.     Optional ByVal v6 As Variant = "{E}", _
19.     Optional ByVal v7 As Variant = "{E}", _
20.     Optional ByVal v8 As Variant = "{E}", _
21.     Optional ByVal v9 As Variant = "{E}", _
22.     Optional ByVal v10 As Variant = "{E}", _
23.     Optional ByVal v11 As Variant = "{E}", _
24.     Optional ByVal v12 As Variant = "{E}", _
25.     Optional ByVal v13 As Variant = "{E}", _
26.     Optional ByVal v14 As Variant = "{E}", _
27.     Optional ByVal v15 As Variant = "{E}", _
28.     Optional ByVal v16 As Variant = "{E}", _
29.     Optional ByVal v17 As Variant = "{E}", _
30.     Optional ByVal v18 As Variant = "{E}", _
31.     Optional ByVal v19 As Variant = "{E}", _
32.     Optional ByVal v20 As Variant = "{E}", _
33.     Optional ByVal v21 As Variant = "{E}", _
34.     Optional ByVal v22 As Variant = "{E}" _
35.     )
37. Dim Ret, i As Integer, n As Integer, ocErr As Boolean
38. Dim isLast As Boolean, ci As Integer, p1, plen
40. ''檢查參數
41. isLast = False
42. For i = 0 To 22
43.     p1 = InStr(str, "{" & i & "}")
44.     plen = Len("{" & i & "}")
45.     If p1 > 0 Then
46.         ci = Val(Mid(str, p1 + 1, plen - 2))
47.         If ci <> i Then
48.             Err.Raise 1, "rFormat", "提供的參數化字串順序不匹配!!"
49.         End If
50.         If isLast Then
51.             Err.Raise 2, "rFormat", "提供的參數化字串可能有缺失!!"
52.         End If
53.         n = i + 1
54.     Else
55.         isLast = True
56.     End If
57. Next
59. i = 0
60. Ret = str
62. ocErr = False
63. If i >= n And v0 <> "{E}" Then ocErr = True
64. i = i + 1
65. If i >= n And v1 <> "{E}" Then ocErr = True
66. i = i + 1
67. If i >= n And v2 <> "{E}" Then ocErr = True
68. i = i + 1
69. If i >= n And v3 <> "{E}" Then ocErr = True
70. i = i + 1
71. If i >= n And v4 <> "{E}" Then ocErr = True
72. i = i + 1
74. If ocErr Then
75.     Err.Raise 1, "rFormat", "提供參數的數量太多！"
76. End If
78. i = 0
79. Ret = Replace(Ret, "{" & i & "}", v0 & ""): i = i + 1
80. Ret = Replace(Ret, "{" & i & "}", v1 & ""): i = i + 1
81. Ret = Replace(Ret, "{" & i & "}", v2 & ""): i = i + 1
82. Ret = Replace(Ret, "{" & i & "}", v3 & ""): i = i + 1
83. Ret = Replace(Ret, "{" & i & "}", v4 & ""): i = i + 1
84. Ret = Replace(Ret, "{" & i & "}", v5 & ""): i = i + 1
85. Ret = Replace(Ret, "{" & i & "}", v6 & ""): i = i + 1
86. Ret = Replace(Ret, "{" & i & "}", v7 & ""): i = i + 1
87. Ret = Replace(Ret, "{" & i & "}", v8 & ""): i = i + 1
88. Ret = Replace(Ret, "{" & i & "}", v9 & ""): i = i + 1
89. Ret = Replace(Ret, "{" & i & "}", v10 & ""): i = i + 1
90. Ret = Replace(Ret, "{" & i & "}", v11 & ""): i = i + 1
91. Ret = Replace(Ret, "{" & i & "}", v12 & ""): i = i + 1
92. Ret = Replace(Ret, "{" & i & "}", v13 & ""): i = i + 1
93. Ret = Replace(Ret, "{" & i & "}", v14 & ""): i = i + 1
94. Ret = Replace(Ret, "{" & i & "}", v15 & ""): i = i + 1
95. Ret = Replace(Ret, "{" & i & "}", v16 & ""): i = i + 1
96. Ret = Replace(Ret, "{" & i & "}", v17 & ""): i = i + 1
97. Ret = Replace(Ret, "{" & i & "}", v18 & ""): i = i + 1
98. Ret = Replace(Ret, "{" & i & "}", v19 & ""): i = i + 1
99. Ret = Replace(Ret, "{" & i & "}", v20 & ""): i = i + 1
100. Ret = Replace(Ret, "{" & i & "}", v21 & ""): i = i + 1
101. Ret = Replace(Ret, "{" & i & "}", v22 & ""): i = i + 1
103. If InStr(Ret, "{E}") > 0 Then
104.     Err.Raise 1, "rFormat", "提供參數的數量太少！"
105. End If
107. rFormat = Ret
108. End Function