实现.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

本文地址：http://com.8s8s.com/it/it6569.htm