31 lines
1.1 KiB
VB.net
31 lines
1.1 KiB
VB.net
column = 60
|
|
text = "In olden times when wishing still helped one, there lived a king " &_
|
|
"whose daughters were all beautiful, but the youngest was so beautiful "&_
|
|
"that the sun itself, which has seen so much, was astonished whenever "&_
|
|
"it shone-in-her-face. Close-by-the-king's castle lay a great dark "&_
|
|
"forest, and under an old lime-tree in the forest was a well, and when "&_
|
|
"the day was very warm, the king's child went out into the forest and "&_
|
|
"sat down by the side of the cool-fountain, and when she was bored she "&_
|
|
"took a golden ball, and threw it up on high and caught it, and this "&_
|
|
"ball was her favorite plaything."
|
|
|
|
Call wordwrap(text,column)
|
|
|
|
Sub wordwrap(s,n)
|
|
word = Split(s," ")
|
|
row = ""
|
|
For i = 0 To UBound(word)
|
|
If Len(row) = 0 Then
|
|
row = row & word(i)
|
|
ElseIf Len(row & " " & word(i)) <= n Then
|
|
row = row & " " & word(i)
|
|
Else
|
|
WScript.StdOut.WriteLine row
|
|
row = word(i)
|
|
End If
|
|
Next
|
|
If Len(row) > 0 Then
|
|
WScript.StdOut.WriteLine row
|
|
End If
|
|
End Sub
|