43 lines
1.2 KiB
Plaintext
43 lines
1.2 KiB
Plaintext
|
Function WrapIt(varString,varNumChar,boolBreak)
|
||
|
|
' Word Wraps a string varString at end o
|
||
|
|
' f word nearest column position varNumCha
|
||
|
|
' r
|
||
|
|
' If boolBreak is true then the wrap wil
|
||
|
|
' l take place at position varNumChar rega
|
||
|
|
' rdless
|
||
|
|
varString=Trim(varString)
|
||
|
|
varSetBR = "<BR>"
|
||
|
|
result=""
|
||
|
|
varString=Replace(varString,Chr(13)+Chr(10),Chr(10))
|
||
|
|
While varString<>""
|
||
|
|
If Len(varString)<=varNumChar Then
|
||
|
|
line=varString
|
||
|
|
varString=""
|
||
|
|
Else
|
||
|
|
varTemp1=Left(varString,varNumChar)
|
||
|
|
iCount=InStrRev(varTemp1," ")
|
||
|
|
varInPlace=InStr(varTemp1,"chr(10)")
|
||
|
|
If (iCount=0) And Not boolBreak Then iCount=InStr(varString," ")
|
||
|
|
If (varInPlace=0) And Not boolBreak Then varInPlace=InStr(varString,Chr(10))
|
||
|
|
If (varInPlace<ICount) And (varInPlace>0) Then
|
||
|
|
finish=j-1
|
||
|
|
start=varInPlace+1
|
||
|
|
ElseIf iCount=0 Then
|
||
|
|
finish=varNumChar
|
||
|
|
start=varNumChar+1
|
||
|
|
Else
|
||
|
|
finish=iCount
|
||
|
|
start=iCount+1
|
||
|
|
End If
|
||
|
|
line=Left(varString,finish)
|
||
|
|
varString=LTrim(Mid(varString,start))
|
||
|
|
End If
|
||
|
|
'if result="" then result=line else
|
||
|
|
result=result&Chr(10)&line
|
||
|
|
Wend
|
||
|
|
If Left(result,1) = Chr(10) Then
|
||
|
|
result = Right(result,(Len(result)-1))
|
||
|
|
End If
|
||
|
|
WrapIt=Replace(result,Chr(10),varSetBR)
|
||
|
|
|
||
|
|
End Function
|