VB Implementation of the format function in C # -- replace rformat () with the parameter ()

I attended the C # training a few days ago and found that the format parameter replacement function is really practical, especially when writing SQL statements, such as an SQL statement.

Insert into (F1, F2, F3) values (V1, V2, V3)

If you want to use VB to write, it is hard to write and ugly to add a string of "" and. Basically, as long as there are more than one parameter, an error is required in almost 100%. If C # is used for writing, this is the case.

Str SQL = "insert into (F1, F2, F3) values ('{0}', '{1}', '{2 }')"

SQL = SQL. String. Format (SQL, V1, V2, V3)

The syntax may not be correct. It takes only a few days to train and you are not familiar with the C # syntax. This is easy to write, and the location of each parameter is clear at a glance. After thinking about it today, I finally decided to write a VB Function by myself. It took more than an hour to finally solve the problem. I added various error checks and it should be okay.

 

VB can only follow up to 25 rows, so it should be enough to write so much. If it is not enough, just add a few line breaks and parameters.

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. ''Check parameters
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", "The provided parameterized string order does not match !! "
49. End if
50. If islast then
51. Err. Raise 2, "rformat", "provided parameterized strings may be missing !! "
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", "too many parameters are provided! "
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", "Too few parameters are provided! "
105. End if
107. Rformat = RET
108. End Function