Dim intTextLen, i, k As Integer Dim TextBefore, TextAfter(100) As String intTextLen = Len(TextBox1.Text) k = 1 TextBefore = TextBox1.Text For i = 1 To intTextLen If Mid(TextBefore, i, 1) = "," Then k += 1 Else TextAfter(k) = TextAfter(k) & Mid(TextBefore, i, 1) End If Next
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
