如何在“x”后面插入换行符人物

Question

我目前正在开发一个新闻广播图形程序，该程序使用 Visual Basic 编写脚本。我的挑战是这样的：

我有一个 .xml 文件，其中包含多条数据，其中一条数据需要添加到图形（我们网站的新闻标题）中。然而，这些标题对于图形来说太长，需要添加换行符。我已经通过图形软件的其余部分成功地将这个标题添加到脚本中，它的 temp.txt 名称是 BodyTxt(i).Text （其中 (i) 是脚本另一部分循环的一部分，但会始终等于 1、2 或 3）。 35 个字符后，我需要换行。做到这一点最简单的方法是什么？

为了供将来参考，我可以看到它被用来在网页中创建类似的脚本，以便自动从 RSS 或 .xml 提要填充数据字段，而不会破坏模板，也不会强制字体缩小以适合整个页面字段，或在单词中间创建换行符。

Answer 1

这是您要找的吗？

---

Sub Main()
    Dim testMessage As String

    testMessage = "For future reference, I could see this being used in order to create a similar script within a web page in order to automatically populate data fields from an RSS or .xml feed without breaking the template and either forcing a font to shrink to fit the entire field, or creating a line break in the middle of a word."

    PrintMessage(testMessage, 30)

    Console.ReadLine()
End Sub

Sub PrintMessage(Message As String, Length As Integer)
    Dim currentLength = 0

    Dim words As Array

    words = Split(Message, " ")

    For Each word As String In words
        If currentLength + word.Length > Length Then
            Console.Write(ControlChars.Tab & currentLength)                                         
            Console.WriteLine()
            currentLength = 0
        End If

        Console.Write(word & " ")
        currentLength += word.Length
    Next
        Console.Write(ControlChars.Tab & currentLength)
End Sub 

产生以下输出：

For future reference, I could see     28
this being used in order to create a  29
similar script within a web page in   29
order to automatically populate       28
data fields from an RSS or .xml feed  29
without breaking the template and     29
either forcing a font to shrink to    28
fit the entire field, or creating a   29
line break in the middle of a word.   29