Text Wrapping (2 functions) (both DBC and DBPro)

Author

Message

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 3rd Apr 2006 07:51 Edited at: 4th Apr 2006 08:13

Link

EDIT: I've UPDATED the functions...look at the next post.

Hello everybody

I made up two functions that will allow you to use text wrapping in your DBC and DBPRO programs.

The First One:

+ Code Snippet

Function TextWrap_TotalLines(xMax, string$)
   linePos = 0 : cursorPos =0
   Repeat
      Inc linePos : txt$ = ""
      Repeat
         Inc cursorPos
         txt$ = txt$ + Mid$(string$, cursorPos)
      Until cursorPos => Len(string$) Or Text Width(txt$) > xMax
      If Text Width(txt$) > xMax
         Dec cursorPos : txt$ = Left$(txt$, (Len(txt$) - 1))
         a = 0
         While (Mid$(string$, cursorPos) <> " ")
            Dec cursorPos : Inc a
         Endwhile
         txt$ = Left$(txt$, (Len(txt$) - a))
      Endif
   Until cursorPos => Len(string$)
Endfunction linePos

The Second One:

+ Code Snippet

Function TextWrap_GetLine(xMax, string$, getLine)
   linePos = 0 : cursorPos =0
   Repeat
      Inc linePos : txt$ = ""
      Repeat
         Inc cursorPos
         txt$ = txt$ + Mid$(string$, cursorPos)
      Until cursorPos => Len(string$) Or Text Width(txt$) > xMax
      If Text Width(txt$) > xMax
         Dec cursorPos : txt$ = Left$(txt$, (Len(txt$) - 1))
         a = 0
         While (Mid$(string$, cursorPos) <> " ")
            Dec cursorPos : Inc a
         Endwhile
         txt$ = Left$(txt$, (Len(txt$) - a))
      Endif
   Until cursorPos => Len(string$) Or linePos = getLine
Endfunction txt$

The first function: returns the total number of lines that will be used to wrap the text within the xMax.
The second function: returns the text of a specfic line, be sure the line number is valid.

xMax: is the total text width of each line.
string$: is the entire string you wish to wrap.
getLine: is the number of the line you wish the get.

Here's an example:

rem The parameters.
xMax = 100
string$ = "Here is an example of the text wrapping functions in action. Its easy as! 1 ! 2 ! 3 :)"

rem Make red vertical line to show cut off point.
Ink Rgb(255, 0, 0), 0
Line xMax, 0, XMax, Screen Height()
Ink Rgb(255, 255, 255), 0

rem The actual code that uses the functions.
lines = TextWrap_TotalLines(xMax, string$)
For num = 1 to lines
   Print TextWrap_GetLine(xMax, string$, num)
Next num

rem Wait for user, then end.
Wait 1000
Suspend For Key
End

rem The functions.
Function TextWrap_TotalLines(xMax, string$)
   linePos = 0 : cursorPos =0
   Repeat
      Inc linePos : txt$ = ""
      Repeat
         Inc cursorPos
         txt$ = txt$ + Mid$(string$, cursorPos)
      Until cursorPos => Len(string$) Or Text Width(txt$) > xMax
      If Text Width(txt$) > xMax
         Dec cursorPos : txt$ = Left$(txt$, (Len(txt$) - 1))
         a = 0
         While (Mid$(string$, cursorPos) <> " ")
            Dec cursorPos : Inc a
         Endwhile
         txt$ = Left$(txt$, (Len(txt$) - a))
      Endif
   Until cursorPos => Len(string$)
Endfunction linePos

Function TextWrap_GetLine(xMax, string$, getLine)
   linePos = 0 : cursorPos =0
   Repeat
      Inc linePos : txt$ = ""
      Repeat
         Inc cursorPos
         txt$ = txt$ + Mid$(string$, cursorPos)
      Until cursorPos => Len(string$) Or Text Width(txt$) > xMax
      If Text Width(txt$) > xMax
         Dec cursorPos : txt$ = Left$(txt$, (Len(txt$) - 1))
         a = 0
         While (Mid$(string$, cursorPos) <> " ")
            Dec cursorPos : Inc a
         Endwhile
         txt$ = Left$(txt$, (Len(txt$) - a))
      Endif
   Until cursorPos => Len(string$) Or linePos = getLine
Endfunction txt$

+ Code Snippet

rem The parameters.
xMax = 100
string$ = "Here is an example of the text wrapping functions in action. Its easy as! 1 ! 2 ! 3 :)"

rem Make red vertical line to show cut off point.
Ink Rgb(255, 0, 0), 0
Line xMax, 0, XMax, Screen Height()
Ink Rgb(255, 255, 255), 0

rem The actual code that uses the functions.
lines = TextWrap_TotalLines(xMax, string$)
For num = 1 to lines
   Print TextWrap_GetLine(xMax, string$, num)
Next num

rem Wait for user, then end.
Wait 1000
Suspend For Key
End

rem The functions.
Function TextWrap_TotalLines(xMax, string$)
   linePos = 0 : cursorPos =0
   Repeat
      Inc linePos : txt$ = ""
      Repeat
         Inc cursorPos
         txt$ = txt$ + Mid$(string$, cursorPos)
      Until cursorPos => Len(string$) Or Text Width(txt$) > xMax
      If Text Width(txt$) > xMax
         Dec cursorPos : txt$ = Left$(txt$, (Len(txt$) - 1))
         a = 0
         While (Mid$(string$, cursorPos) <> " ")
            Dec cursorPos : Inc a
         Endwhile
         txt$ = Left$(txt$, (Len(txt$) - a))
      Endif
   Until cursorPos => Len(string$)
Endfunction linePos

Function TextWrap_GetLine(xMax, string$, getLine)
   linePos = 0 : cursorPos =0
   Repeat
      Inc linePos : txt$ = ""
      Repeat
         Inc cursorPos
         txt$ = txt$ + Mid$(string$, cursorPos)
      Until cursorPos => Len(string$) Or Text Width(txt$) > xMax
      If Text Width(txt$) > xMax
         Dec cursorPos : txt$ = Left$(txt$, (Len(txt$) - 1))
         a = 0
         While (Mid$(string$, cursorPos) <> " ")
            Dec cursorPos : Inc a
         Endwhile
         txt$ = Left$(txt$, (Len(txt$) - a))
      Endif
   Until cursorPos => Len(string$) Or linePos = getLine
Endfunction txt$

Thats pretty much it. The only thing you have to watch out for is making sure that there isn't any single word that is greater than your xMax. If anybody finds a bug, let me know

Check Out My Site Here: http://www.freewebs.com/underworld1020/

Back to top

Profile PM

Underworld 1020

20

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 4th Apr 2006 08:20 Edited at: 4th Apr 2006 08:27

Link

I was looking around the fourms and found some text wrapping code by Phaelax. You can find the original code here:

http://forum.thegamecreators.com/?m=forum_view&t=59694&b=6

Since, his code proved to much faster(i tested it

) and simpler, I decided to use the same idea in my functions. I simply took his code and modified it a little to make it fit the same exact format as my old functions. So for using the functions nothing has changed. And again these work for both DBC and DBPro.

Just simply use these functions instead.

The first One:

+ Code Snippet

Function TextWrap_GetLine(xMax, string$, getLine)
   lineNum = 0
   While Text Width(string$) >= xMax
      Inc lineNum
      length = Len(string$)
      wIndex = 0
      For i = 1 to length
         If Mid$(string$, i) = " " Then wIndex = i
         If Text Width(Left$(string$, i)) > xMax Then Exit
      next i
      If lineNum = getLine Then Exitfunction Left$(string$, (wIndex - 1))
      y = (y + Text Height(string$))
      string$ = Right$(string$, (length - wIndex))
   Endwhile
Endfunction string$

The second one:

+ Code Snippet

Function TextWrap_TotalLines(xMax, string$)
   lineNum = 0
   Repeat
      Inc lineNum
      length = Len(string$)
      wIndex = 0
      For i = 1 to length
         If Mid$(string$, i) = " " Then wIndex = i
         If Text Width(Left$(string$, i)) > xMax Then Exit
      Next i
      y = y + Text Height(string$)
      string$ = Right$(string$, (length - wIndex))
   Until Text Width(string$) < xMax
   Inc lineNum
Endfunction lineNum

Here's the same example with the updated functions:

rem The parameters.
xMax = 100
string$ = "Here is an example of the text wrapping functions in action. Its easy as! 1 ! 2 ! 3 :)"

rem Make red vertical line to show cut off point.
Ink Rgb(255, 0, 0), 0
Line xMax, 0, XMax, Screen Height()
Ink Rgb(255, 255, 255), 0

rem The actual code that uses the functions.
lines = TextWrap_TotalLines(xMax, string$)
For num = 1 to lines
   Print TextWrap_GetLine(xMax, string$, num)
Next num

rem Wait for user, then end.
Wait 1000
Suspend For Key
End

rem The functions.
Function TextWrap_GetLine(xMax, string$, getLine)
   lineNum = 0
   While Text Width(string$) >= xMax
      Inc lineNum
      length = Len(string$)
      wIndex = 0
      For i = 1 to length
         If Mid$(string$, i) = " " Then wIndex = i
         If Text Width(Left$(string$, i)) > xMax Then Exit
      next i
      If lineNum = getLine Then Exitfunction Left$(string$, (wIndex - 1))
      y = (y + Text Height(string$))
      string$ = Right$(string$, (length - wIndex))
   Endwhile
Endfunction string$

Function TextWrap_TotalLines(xMax, string$)
   lineNum = 0
   Repeat
      Inc lineNum
      length = Len(string$)
      wIndex = 0
      For i = 1 to length
         If Mid$(string$, i) = " " Then wIndex = i
         If Text Width(Left$(string$, i)) > xMax Then Exit
      Next i
      y = y + Text Height(string$)
      string$ = Right$(string$, (length - wIndex))
   Until Text Width(string$) < xMax
   Inc lineNum
Endfunction lineNum

+ Code Snippet

rem The parameters.
xMax = 100
string$ = "Here is an example of the text wrapping functions in action. Its easy as! 1 ! 2 ! 3 :)"

rem Make red vertical line to show cut off point.
Ink Rgb(255, 0, 0), 0
Line xMax, 0, XMax, Screen Height()
Ink Rgb(255, 255, 255), 0

rem The actual code that uses the functions.
lines = TextWrap_TotalLines(xMax, string$)
For num = 1 to lines
   Print TextWrap_GetLine(xMax, string$, num)
Next num

rem Wait for user, then end.
Wait 1000
Suspend For Key
End

rem The functions.
Function TextWrap_GetLine(xMax, string$, getLine)
   lineNum = 0
   While Text Width(string$) >= xMax
      Inc lineNum
      length = Len(string$)
      wIndex = 0
      For i = 1 to length
         If Mid$(string$, i) = " " Then wIndex = i
         If Text Width(Left$(string$, i)) > xMax Then Exit
      next i
      If lineNum = getLine Then Exitfunction Left$(string$, (wIndex - 1))
      y = (y + Text Height(string$))
      string$ = Right$(string$, (length - wIndex))
   Endwhile
Endfunction string$

Function TextWrap_TotalLines(xMax, string$)
   lineNum = 0
   Repeat
      Inc lineNum
      length = Len(string$)
      wIndex = 0
      For i = 1 to length
         If Mid$(string$, i) = " " Then wIndex = i
         If Text Width(Left$(string$, i)) > xMax Then Exit
      Next i
      y = y + Text Height(string$)
      string$ = Right$(string$, (length - wIndex))
   Until Text Width(string$) < xMax
   Inc lineNum
Endfunction lineNum

So, use these functions in place of the old ones. How you use them is exactly the same.

Check Out My Site Here: http://www.freewebs.com/underworld1020/

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / Text Wrapping (2 functions) (both DBC and DBPro)