none
如何使用vb2008将txt中的一段文字按四个字一行进行转制? RRS feed

  • 问题

  • 我想用vb2008编程,实现用vb读取文本文档中的一段文字,比如说“天天天天你你你你天天天天”,通过程序输出到文本中的结果为

    天天天天
    你你你你
    天天天天

    希望高手指点
    2010年2月10日 4:06

答案

  • Dim str As String
            str = "天天天天你你你你天天天天"
            Dim iSt As Integer, iEd As Integer
            Dim iCount As Integer
            iCount = 4
            iSt = 0
            iEd = iSt + iCount
            While iEd < str.Length
                Console.WriteLine(str.Substring(iSt, iCount))
                iSt = iEd
                iEd = iSt + iCount
            End While
            Console.WriteLine(str.Substring(iSt, iCount - (iEd - str.Length)))

    2010年2月10日 5:02
    版主