AutoHotkey Community

wrap(String,maxWrapLength,separator = "",showSeparator = "") {
;    global endChar
    endChar := "`n"
    beforewrap := ""
    str1 := ""
   
    StringReplace, String1, String, `r`n, %A_Space%, All
    StringReplace, String1, String1, `n,%A_Space% , All
   
    If (separator != "")
        StringReplace, String1, String1, %separator%,%endChar%%separator%, All
    Loop   Parse, String1, `n
      {
        str :=""
        length := 0
        line := A_loopfield
        Loop Parse, line, %A_Space%
          {
            beforewrap := str
            str := str  . A_loopfield . A_Space
            lengthLoopfield := StrLen(A_loopfield)
            length := length + lengthLoopfield +1
            If length > %maxWrapLength%
              {
                str := beforewrap . endChar . A_loopfield . A_Space
                length := StrLen(A_loopfield) +1
              }
          }
        If (str1 = "")
            str1 := str1  . str
        Else
            str1 := str1 . endChar . str
      }
    If (showSeparator = "0")
        StringReplace, str1, str1,%separator%,, All
     Return str1
  }


Code:
  TexttoWrap = hallo1 ha+l++lo2 hallo3 hallo4 hallo5

  test := wrap(TexttoWrap,20,"+",0 )
  MsgBox, ::::wrap:::: `n`n%test%
 
  MsgBox, % "::::wrap::::`n`n" wrap(TexttoWrap,20,"+",1 )

 
  MsgBox, % "::::wrap::::`n`n" wrap(TexttoWrap,20,"",1 )

wrap(String, maxWrapLength, separator = "", showSeparator = "")
{
   endChar := "`n"
   str1 := ""

   StringReplace String1, String, `r`n, %A_Space%, All
   StringReplace String1, String1, `n, %A_Space%, All

   If (separator != "")
      StringReplace, String1, String1, %separator%, %endChar%%separator%, All
   Loop Parse, String1, `n
   {
      str := ""
      length := 0
      line := A_loopfield
      Loop Parse, line, %A_Space%
      {
         lengthLoopfield := StrLen(A_loopfield)
         length := length + lengthLoopfield +1
         If (length > maxWrapLength)
         {
            str := str . endChar . A_loopfield . A_Space
            length := lengthLoopfield + 1
         }
         Else
         {
            str := str . A_loopfield . A_Space
         }
      }
      If (str1 = "")
         str1 := str
      Else
         str1 := str1 .  endChar .  str
   }
   If (showSeparator = "")
      StringReplace str1, str1, %separator%, , All
   Return str1
}

textToWrap =
(
Variable types: AutoHotkey has no explicitly defined variable types; all variables are stored as
character strings. However, a variable containing only digits (with an optional decimal point) is
automatically converted to a number when a math operation or comparison requires it.
Conversely, the result of a math operation is converted back to a string when it needs to be stored
in a variable.
~~
~~Variable scope and declarations: With the exception of local variables in functions, all variables
are global; that is, their contents may be read or altered by any part of the script. In addition,
variables are not declared; they come into existence simply by using them (and each variable
starts off empty/blank).
~~
~~Variable names: Variable names are not case sensitive (for example, CurrentDate is the same as
currentdate). Variable names may be up to 254 characters long and may consist of letters,
numbers and the following punctuation: # _ @ $ ? [ ]
)
MsgBox % wrap(textToWrap, 50, "~~", false)
MsgBox % wrap(textToWrap, 25, "~~", false)