Ò»¸övbµÄСÎÊÌâ

±¾È˲»¶®vb£¬ÔÚ×ö±¨±íµÄʱºòÒªÓã¬Public Function FixSpelling(ByVal str As String) As String
        Dim arrys() As String =  Split(str,",")
        Dim i As Integer
        For  i = 0 To  arrys.Length- 1  Step  i + 1
        If i <> 0 Then
            If i % 9 = 0 Then
                  arrys(i) = arrys(i) + vbNewLine
            End If
        End If
        Next
        str = String.Join(arrys,",")
End Function
Õâ¸öº¯ÊýµÄ×÷ÓÃÊÇÒ»¸öÓöººÅ·Ö¸ôµÄ×Ö·û´®£¬Èçaa,bb,cc,dd,ee,ff,gg£¬ÔÚÖ¸¶¨µÄ¶ººÅ·Ö¸ô´¦
¼ÓÉÏ»»Ðзû£¬ÀÏÊDZ¨´í£¬ÔβËÁË£¬Çë¸ßÊÖÖ¸µãÒ»ÏÂ

---

.net?
ÄÄÐб¨´í£¿

---

¾ÍÊÇvb£¬²»ÊÇvb.net
ÓÃÀ´×öreporting serviceµÄ

---

---

Step  i + 1 ÓÃÀ´¸Éɶ?

Dim arrys() As String
arrys = Split(str,",")

---

Public Function FixSpelling(ByVal str As String) As String
        Dim arrys() As String
        arrys = Split(str, ",")
        Dim i As Integer
        For i = 0 To UBound(arrys()) Step 1
&nbs