Wrap Clipboard Text Wraps the contents of the clipboard to a certain number of characters, inserting optional prefix and places it back onto the clipboard.

Usage:

wrp [[/pre <prefix>]|[/np]] [/max <num>] [/no]

Switches:

/pre	>	Prefix each line with this string
/np	-	Disable line prefixing
/max	64	Maximum characters per line
/no	False	Prevent removal of existing prefix before processing

Example:

wrp

wrp /no /max 65

wrp /pre > /max 76

wrp /pre // /max 72

wrp /pre -- /max 30

wrp /pre REM /no

wrp /np /max 10000

Functions http://ReliableAnswers.com/x/dqsd/ Shawn K. Hall vbscript

<![CDATA[

Dim qsPrefix, qlMax, qbRemove, q
If document.wrpf.prf.value <> "" Then
  qsPrefix = ""
Else
  If document.wrpf.pre.value <> "" Then
    qsPrefix = document.wrpf.pre.value
  Else
    qsPrefix = "> "
  End If
End If
If document.wrpf.max.value <> "" Then
  qlMax = CLng(document.wrpf.max.value)
Else
  qlMax = 64
End If
If (qlMax < 0) Or Not IsNumeric(qlMax) Then
  qlMax = 64
End If
If document.wrpf.nor.value <> "" Then
  qbRemove = False
Else
  qbRemove = True
End If
q = ClipBoardGetText
q = Wrp(q, qsPrefix, qlMax, qbRemove)
Call ClipBoardSetText (q)
Function Wrp(ByVal sString, sPrefix, sMax, bRemove)
  Dim sBuild, lLast, lLen
  lLen = Len(sPrefix)
  sMax = sMax - lLen
  If sMax < 0 Then
    sMax = 62
  End If
  If bRemove = True Then
    While InStr(1, sString, sPrefix, 1) = 1
      sString = Mid(sString, Len(sPrefix) + 1)
    Wend
    While InStr(1, sString, vbCrLf & sPrefix, 1)
      sString = Replace(sString, vbCrLf & sPrefix, vbCrLf)
    Wend
    While InStr(1, sString, vbCrLf & " ", 1)
      sString = Replace(sString, vbCrLf & " ", vbCrLf)
    Wend
    sString = Trim(sString)
  End If
  sString = Replace(sString, vbCrLf & vbCrLf, " {|} ")
  sString = Replace(sString, vbCrLf, " ")
  While InStr(sString, "  ")
    sString = Replace(sString, "  ", " ")
  Wend
  sString = Trim(sString)
  sString = Replace(sString, "{|}", vbCrLf & sPrefix) & " "
  While Len(sString) > 0
    If InStrRev(sString, vbLf, sMax) <> 0 Then
      lLast = InStrRev(sString, vbCrLf, sMax) + 2
    ElseIf sMax >= Len(sString) Then
      lLast = Len(sString)
    Else
      lLast = InStrRev(sString, " ", sMax + 1)
    End If
    sBuild = sBuild & vbCrLf & sPrefix & Mid(sString, 1, lLast)
    sString = Mid(sString, lLast + 1)
  Wend
  Wrp = sBuild
End Function
Function ClipBoardSetText( sText )
  ClipBoardSetText = window.clipboardData.setData( "Text", sText )
End Function
Function ClipBoardGetText()
  ClipBoardGetText = window.clipboardData.getData( "Text" )
End Function

]]>

Copyright (c) 2002 David Bau Distributed under the terms of the GNU Public License, Version 2 (http://www.gnu.org/copyleft/gpl.txt) This search file was created by Shawn K. Hall Copyright (c) 2003 Shawn K. Hall; Distributed under the terms of the GNU General Public License, Version 2