<html><body><div style="font-family: arial, helvetica, sans-serif; font-size: 12pt; color: #000000"><div>Hans,</div><div>Your method outputs some strange lines for example the following original line</div><div><br data-mce-bogus="1"></div><div>Stephen, taking his ashplant from its leaningplace, followed them out and, as they went down the ladder, pulled to the slow iron door and locked it. He put the huge key in his inner pocket.<br data-mce-bogus="1"></div><div><br data-mce-bogus="1"></div><div>Sample of normal wrap</div><div><br data-mce-bogus="1"></div><div><div>Stephen, taking his ashplant from its leaningplace, followed </div><div>them out and, as they went down the ladder, pulled to the slow </div><div>iron door and locked it. He put the huge key in his inner pock-</div><div>et.</div><div><br data-mce-bogus="1"></div><div>Output from your wrap</div><div><br data-mce-bogus="1"></div><div><div>Stephen, taking</div><div>his ashplant from its leaningplace, followed them out and, as they</div><div>went down the ladder, pulled to the slow iron door and locked it. He</div><div>put the huge key in his inner pocket.</div></div></div><div><br></div><div>There are a few other strange outputs as well.</div><div><br data-mce-bogus="1"></div><div data-marker="__SIG_PRE__">Thank You<br>Brian G</div><div><br></div><hr id="zwchr" data-marker="__DIVIDER__"><div data-marker="__HEADERS__"><b>From: </b>"Hans Lehmann" <hans@gambas-buch.de><br><b>To: </b>"Gambas mailing list" <user@lists.gambas-basic.org><br><b>Sent: </b>Thursday, November 12, 2020 12:54:52 AM<br><b>Subject: </b>Re: [Gambas-user] Text-Wrapping<br></div><div><br></div><div data-marker="__QUOTED_TEXT__"><font face="DejaVu Sans Mono">Hello,<br>
<br>
after the hints in the list and with regard to the case of
application (description in a RSS feed) this solution was found:<br>
<br>
8<---- Using Recursion
------------------------------------------------<br>
<br>
' Gambas module file<br>
<br>
Public Sub Main()<br>
Dim sFile As String = File.Load("./testtext.txt")<br>
Print W(sFile, 70)<br>
End<br>
<br>
Private Function W(TextToWrap As String, iLength As Integer) As
String <br>
<br>
Dim iIndex As Integer<br>
Dim sTL, sTR As String<br>
Dim aLines As String[]<br>
<br>
If Len(TextToWrap) <= iLength Then Return TextToWrap<br>
aLines = Split(TextToWrap, gb.NewLine)<br>
iIndex = RInStr(TextToWrap, " ", iLength)<br>
If iIndex = 0 Then iIndex = iLength <br>
sTL = RTrim(Left(TextToWrap, iIndex - 1))<br>
sTR = LTrim(Right(TextToWrap, -iIndex))<br>
<br>
Return sTL & gb.lf & W(sTR, iLength)<br>
<br>
End<br>
</font><br>
<font face="DejaVu Sans Mono"><font face="DejaVu Sans Mono">8<---------------------------------------------------------------------<br>
<br>
</font>With kind regards<br>
<br>
Hans<br>
<br>
ORIGINAL:<br>
Die Fehlerbehandlung beginnt mit einer Analyse von
Fehlerkategorien, beschreibt die Fehleranalyse zur
Entwicklungszeit eines Programms (Debugger) und verweist auf
Strategien, wie Sie Fehler erkennen, abfangen und vermeiden
können.<br>
<br>
RESULT:<br>
Die Fehlerbehandlung beginnt mit einer Analyse von
Fehlerkategorien,<br>
beschreibt die Fehleranalyse zur Entwicklungszeit eines Programms<br>
(Debugger) und verweist auf Strategien, wie Sie Fehler erkennen,<br>
abfangen und vermeiden können.<br>
</font>
<br><br>----[ http://gambaswiki.org/wiki/doc/netiquette ]----<br></div></div></body></html>