vbnet开发记录

 1、将新数组转成 逗号分隔的字符串，并添加换行符  

1-1原先采用最简单的循环行列的形式拼接，但行数1w+，列数65+,效率极低，需要20分钟左右；

为了改善，采用String.Join(",", String{})的方式，优化到19-23秒。

1-2原二维数组String（，）的格式，循环每行，拆分每列数据String，用String{}拼接

Dim CPFitRow() As String = {} //初始化string{} 空数组

Dim StringA = CPFitArray(introw, intcol) //读取每列string

CPFitRow = CPFitRow.Concat(New String() {StringA}).ToArray() //string{}追加内容

CPFitRow = CPFitRow.Concat({StringA}).ToArray() //  也可以，ToArray() 必须有

代码：
     

   CPFitTo = ""

        For introw = 0 To CPFitArray.GetLength(0) - 1 '行 
            Dim CPFitRow() As String = {}
            For intcol = 0 To CPFitArray.GetLength(1) - 1 'intlastcolnum ——列
                Dim StringA = CPFitArray(introw, intcol)
                CPFitRow = CPFitRow.Concat(New String() {StringA}).ToArray()
            Next intcol
            CPFitTo += String.Join(",", CPFitRow) & vbCrLf
        Next introw

Return CPFitTo