|
.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
没有相关教程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
