Database Search

TechHome

• Add a Value to a String if Not Already There
• Adding a String of Numbers Together
• Binary String Concatenation Operator
• Capitalize Proper Name
• Character Comparison Issue
• Colon Concatenation Vs StrCat
• Compare Two Strings And Create Text File with List of Differences
• Compare Two Strings
• Convert Special Characters
• Convert Tab Delimited Text to Fixed Width Text
• Convert To UTF-8
• Convert UCS-2 Little Endian to Ascii
• Determine Hex String
• Finding Character Position in String
• Incrementing Characters
• Number of Instances of Char in a String
• Output the Value in a String
• Regular Expression Search for String Pattern
• Regular Expressions and WinBatch
• StrCmp Problem
• String Compare Problem
• String Length and Check for Spaces and Tabs in Windows
• StrSubWild Problem
• Translate String Using UTF-8
• Unicode Character Representation
• Wrap Text to Fixed Size

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Wrap Text to Fixed Size

 Keywords: Fixed Width Wrap string text full words 

; StrWrap adapted from:
; This version works for text with or without spaces
; Les Ferch, May 2009

#DefineFunction StrWrap(Text,Wrap)
Offset = 1
While Offset + Wrap<=StrCharCount(Text)
   If StrCharCount(Text)<Offset + Wrap
      Offset = Offset + StrCharCount(Text)
   Else
      TmpStr = StrSub(Text,Offset,Wrap)
      FindLF = StrIndex(TmpStr,@LF,Wrap,@BACKSCAN)
      FindSpace = StrIndex(TmpStr," ",0,@BACKSCAN)
      If FindLF>0
         Offset = Offset + FindLF
      Else
         If FindSpace==0 Then FindSpace = Wrap
         TmpStr1 = StrSub(Text,1,Offset + FindSpace - 1)
         TmpStr2 = StrSub(Text,StrCharCount(TmpStr1) + 1,StrCharCount(Text) + 1 - StrCharCount(TmpStr1))
         TmpStr2 = StrTrim(TmpStr2)
         Text = StrCat(TmpStr1,@LF,TmpStr2)
         Drop(TmpStr1,TmpStr2)
         Offset = Offset + FindSpace + 2
      EndIf
   EndIf
EndWhile
Return Text
#EndFunction

; Test
Text = "The bizarre appearance of this egg-laying, venomous, duck-billed, beaver-tailed, otter-footed mammal baffled European naturalists when they first encountered it, with some considering it an elaborate fraud. It is one of the few venomous mammals; the male Platypus has a spur on the hind foot that delivers a venom capable of causing severe pain to humans."
BoxOpen("Test",StrWrap(Text,88))
TimeDelay(8)

Article ID:   W17270

File Created: 2009:05:28:14:38:48

Last Updated: 2009:05:28:14:38:48