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

 > 

  • 问题

  • Question
    登录进行投票
    0
    登录进行投票
    我想用vb2008编程，实现用vb读取文本文档中的一段文字，比如说“天天天天你你你你天天天天”，通过程序输出到文本中的结果为
    “
    天天天天
    你你你你
    天天天天
    ”
    希望高手指点
    2010年2月10日 4:06
    |

答案

  • Question
    登录进行投票
    0
    登录进行投票 
    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
    |
    版主