实现.net框架带有无限参数的WriteLine()函数

.net Framework库中的Console.WriteLine最多只支持3个参数，使用起来非常不方便，虽然C++支持一个无限参数的WriteLine，但是VB和C#和其他大量语言都不支持。现在，我编写了一个VB的函数，他利用VB、C#和JScript中参数数组的功能，实现了无限参数的WrtieLine。用VB编写的原因是VB含有许多简单的字符串函数，可以大大简化程序。而编译为组件后，C#是可以使用它的。

Public Shared Sub WriteLine(ByVal format As String, ByVal ParamArray args() As Object)

'********************************************************************

'*作者：Ninputer

'*日期：2001年8月27日

'*

'*参数：format是输出字符串，包含输出内容的位置

'* args()是输出内容，可以有无限个参数，与format中相应的位置吻合

'*返回值：无

'*说明：提供无限参数的WriteLine方法，比System.Console更加方便

'********************************************************************

Dim sSubString, sSubStringRp As String

Dim i, j As Integer

If args.Length = 0 Then

Console.WriteLine(format)

Else

'解决无限参数的输出

If format = "" Then '如果没有字符串，则跳过循环搜索部分

Console.WriteLine("")

Exit Sub

End If

Try

i = 1 '当前字符指针的位置

Do

If format.Chars(i - 1) = "{" Then

j = InStr(i, format, "}") 'j是从i开始，第一个“}”的位置

'对两个大括号中的内容进行截取

sSubString = format.Substring(i, j - i - 1) 'Like "3"

sSubStringRp = format.Substring(i - 1, j - i + 1) 'Like "{3}"

'如果格式正确，就把{n}替换成所需要的内容

If IsNumeric(sSubString) Then

If Int(Val(sSubString)) <> Val(sSubString) Then Throw New Exception() '跳转到Catch区域

format = format.Substring(0, i - 1) & _

Replace(format, sSubStringRp, args(CInt(Val(sSubString))).ToString, i, 1)

'重新规定搜索的起点，避免重新替换

'让指针指向刚刚替换的子字符串的末尾

i += args(CInt(Val(sSubString))).ToString.Length - 1

Else

Throw New Exception() '跳转到Catch区域

End If

End If

i += 1

Loop While i <= format.Length

Catch e As Exception

'抛出异常：表示输出格式字符串不正确

Throw New FormatException("输出格式不正确。")

End Try

Console.WriteLine(format)

End If

End Sub