如何在“x”字符后插入换行符

Question

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

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

为了将来参考，我可以看到它被用于在 web 页面中创建类似的脚本，以便自动填充来自 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 

产生这个 output：

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