[Gambas-user] Text-Wrapping

[Hans Lehmann]

Hello,

after the hints in the list and with regard to the case of application 
(description in a RSS feed) this solution was found:

8<----  Using Recursion ------------------------------------------------

' Gambas module file

Public Sub Main()
   Dim sFile As String = File.Load("./testtext.txt")
   Print W(sFile, 70)
End

Private Function W(TextToWrap As String, iLength As Integer) As String

     Dim iIndex As Integer
     Dim sTL, sTR As String
     Dim aLines As String[]

     If Len(TextToWrap) <= iLength Then Return TextToWrap
     aLines = Split(TextToWrap, gb.NewLine)
     iIndex = RInStr(TextToWrap, " ", iLength)
     If iIndex = 0 Then iIndex = iLength
     sTL = RTrim(Left(TextToWrap, iIndex - 1))
     sTR = LTrim(Right(TextToWrap, -iIndex))

     Return sTL & gb.lf & W(sTR, iLength)

End

8<---------------------------------------------------------------------

With kind regards

Hans

ORIGINAL:
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.

RESULT:
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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20201112/63f055da/attachment.htm>