将文本文件中的每一行限制为 X 字数

Question

您好，我正在尝试使用 VB.NET 制作一个程序，该程序可以打开一个文本文件，将每行的第一个字母大写，将每行限制为 7 个单词或更少，然后将每行放入到一个列表框中。例如，它将采用如下文本字符串：

• w1 w2 w3 w4 w5 w6 w7 w8 w9 w10 w11 w12 w13 w14

然后把它变成两个单独的行，像这样：

• W1 w2 w3 w4 w5 w6 w7
• W8 w9 w10 w11 w12 w13 w14

这是我现在读取每一行并将行的第一个字母大写到列表框中的代码

Try
        Dim reader As New System.IO.StreamReader(filePath)

        Dim textLine As String = ""

        Do While reader.Peek <> -1

            textLine = reader.ReadLine

            textLine = textLine.Substring(0, 1).ToUpper + textLine.Substring(1)

            MAIN_FORM.previewBox.Items.Add(textLine)

        Loop

        reader.Close()

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

现在我只需要弄清楚如何将每一行分成 7 个或更少的单词。

对此的任何帮助将不胜感激。

Answer 1

一点 Linq 会有很大帮助....

Dim count As Integer = 7
Dim pos As Integer = 0
Do While reader.Peek <> -1

    textLine = reader.ReadLine

    ' Split the line to the individual words
    Dim parts = textLine.Split(" "c)
    do
        ' Skip the previous words and take the count required
        Dim block = parts.Skip(pos).Take(count).ToArray()

        ' position to read the next count words
        pos = pos + count

        if block.Count > 0 Then
            block(0) = CultureInfo.InvariantCulture.TextInfo.ToTitleCase(block(0))
        end if
        MAIN_FORM.previewBox.Items.Add(string.Join(" ", block))
   Loop While(pos < parts.Length)
Loop

编辑：不确定是否测试了所有边缘情况，但这应该适用于任何长度