Блог

В настоящее время я работаю над графической программой для выпуска новостей, которая использует Visual Basic для написания сценариев. Моя задача заключается в следующем:

У меня есть XML-файл, содержащий в себе несколько фрагментов данных, один из которых необходимо добавить к графику (заголовок новости с нашего веб-сайта). Однако эти заголовки слишком длинные для графики, и к ним нужно добавить разрыв строки. Я успешно внедрил этот заголовок в сценарий с помощью остальной части графического программного обеспечения, и это temp.txt имя — BodyTxt(i).Текст (где (i) является частью цикла для другой части скрипта, но всегда будет равен 1, 2 или 3). После 35 символов мне нужен разрыв строки. Какой был бы самый простой способ сделать это?

Для дальнейшего использования я мог видеть, что это используется для создания аналогичного скрипта на веб-странице, чтобы автоматически заполнять поля данных из RSS-канала или .xml-канала, не нарушая шаблон и не заставляя шрифт уменьшаться, чтобы вместить все поле, или создавая разрыв строки в середине слова.

Это то, что вы ищете?

 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 amp; currentLength)                                         
            Console.WriteLine()
            currentLength = 0
        End If

        Console.Write(word amp; " ")
        currentLength  = word.Length
    Next
        Console.Write(ControlChars.Tab amp; 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