Help formatting a string of text

[kg1]

How to I format the following string from

The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog.

to

The quick brown fox jumps over the lazy dog. The quick brown fox jumps
over the lazy dog. The quick brown fox jumps over the lazy dog. The quick
brown fox jumps over the lazy dog.

so it looks nice and neat and does not scroll off the edge if the ASP.NET (VB) page?

[PepsTech]

Well I guess theres a lot of ways you can achieve this. Two of them would be using a table with a fixed width, or css.

[kg1]

This does not work.

<div style="width: 690px;">
<&#37; Response.Write(row("content"))%>
</div>

[Raffles]

First, decide how many characters you want per line. I'll say 70.

<?php
$s = 'The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog.';
$length = strlen($s);
for ($i = 0; $i < $length / 70; $i++) {
  $start = $i * 70;
  substr_replace($s, "<br>", $start, 0);
}
?>

Should work, haven't tested it though. I know nothing about ASP.NET so I don't know if you would want to add <br> or \n. I have to ask though... why not do this with ASP?

[kg1]

That's what I use to develop with at work :P

Only problem with using the above is that it cuts words in two sometimes.

Thanks or your post.

[Raffles]

Ah, didn't think of that.

<?php
$s = 'The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog. The quick brown fox jumps over the lazy dog.';
$bits = explode(' ', $s);
foreach ($bits as $key => $bit) {
  $newstr .= $bit[$key];
  $nextkey = $key + 1;
  if (strlen($newstr) > 60 && strlen($newstr . ' ' . $bit[$nextkey]) > 70) {
    $newstr .= '<br>';
  } else {
    $newstr .= ' ';
  }
}
echo $newstr;
?>

[kg1]

<&#37;
Dim myString As String = "I was walking through the park when I realised I was insane. 'oh my goodness', i said out loud."

Dim myNewString As New StringBuilder(myString)
Dim position As Integer = 33
Dim timesToLoop As Integer = Round(myString.Length / position, 0)
Dim val As String

For counter As Integer = 0 To timesToLoop - 1
Do While Not position > myString.Length
val = myNewString(position)
If val = " " Then
myNewString.Insert(position, "<br />")
position += 33
Exit Do
End If
position += 1
Loop
Next

Response.Write(myNewString)
%>

It works, yippee

[kg1]

<%
        Dim myString As String = "I was walking through the park when I realised I was insane. 'oh my goodness', i said out loud."

        Dim myNewString As New StringBuilder(myString)
        Dim position As Integer = 33
        Dim timesToLoop As Integer = Round(myString.Length / position, 0)
        Dim val As String
 
        For counter As Integer = 0 To timesToLoop - 1
            Do While Not position > myString.Length
                val = myNewString(position)
                If val = " " Then
                    myNewString.Insert(position, "<br />")
                    position += 33
                    Exit Do
                End If
                position += 1
            Loop
        Next
        
        Response.Write(myNewString)
%> 

It works, yippee

[kg1]

<%
        Dim myString As String = "I was walking through the park when I realised I was insane. 'oh my goodness', i said out loud."

        Dim myNewString As New StringBuilder(myString)
        Dim position As Integer = 33
        Dim timesToLoop As Integer = Round(myString.Length / position, 0)
        Dim val As String
 
        For counter As Integer = 0 To timesToLoop - 1
            Do While Not position > myString.Length
                val = myNewString(position)
                If val = " " Then
                    myNewString.Insert(position, "<br />")
                    position += 33
                    Exit Do
                End If
                position += 1
            Loop
        Next
        
        Response.Write(myNewString)
%> 

It works, yippee

[Raffles]

That's wonderful.

[clamcrusher]

the php way would be wordwrap(), although i kinda get the feeling you have already seen this function?

[kg1]

No I haven't seen this function before, however I can follow most of it but am not sure what the explode function does?

[simplecode]

<? // word wrap
$str = wordwrap($str, 80, "\n");
?>

[kg1]

Thanks

[clamcrusher]

see the manual for wrodwrap() to see why i thought you saw it already lol

[Raffles]

Damn, I didn't knew that existed. Learn something every day.

[simplecode]

manual is the best practice to getting started ..

[kg1]

Public Function WordWrap(ByVal strTextToBeWrapped As String, ByVal intMaxLineLength As Integer) As String
        Dim strWrappedText As String
        Dim intLengthOfInput As Integer
        Dim intCurrentPosition As Integer
        Dim intCurrentLineStart As Integer
        Dim intPositionOfLastSpace As Integer

        intLengthOfInput = Len(strTextToBeWrapped)
        intCurrentPosition = 1
        intCurrentLineStart = 1

        Do While intCurrentPosition < intLengthOfInput
            If Mid(strTextToBeWrapped, intCurrentPosition, 1) = " " Then
                intPositionOfLastSpace = intCurrentPosition
            End If

            If intCurrentPosition = intCurrentLineStart + intMaxLineLength Then
                strWrappedText = strWrappedText & Trim(Mid(strTextToBeWrapped, intCurrentLineStart, intPositionOfLastSpace - intCurrentLineStart + 1)) & vbCrLf
                intCurrentLineStart = intPositionOfLastSpace + 1
                Do While Mid(strTextToBeWrapped, intCurrentLineStart, 1) = " "
                    intCurrentLineStart = intCurrentLineStart + 1
                Loop
            End If

            intCurrentPosition = intCurrentPosition + 1
        Loop

        strWrappedText = strWrappedText & Trim(Mid(strTextToBeWrapped, intCurrentLineStart)) & vbCrLf
        strWrappedText = Replace(strWrappedText, vbCrLf, "<br />" & vbCrLf)

        Return strWrappedText
End Function 

[kg1]

Its a shame ASP.NET does not have a prebuilt function! Or does it!!! :P

[simplecode]

i was thinking we r in PHP thread and problem is in PHP as well

[kg1]

Here's another function

Public Function WordWrap(ByVal strTextToBeWrapped As String, ByVal intMaxLineLength As Integer) As String
        Dim wrappedText As String
        Dim lengthOfInput As Integer
        Dim currentPosition As Integer
        Dim currentLineStart As Integer
        Dim positionOfLastSpace As Integer

        lengthOfInput = Len(strTextToBeWrapped)
        currentPosition = 1
        currentLineStart = 1

        Do While currentPosition < lengthOfInput
            If Mid(strTextToBeWrapped, currentPosition, 1) = " " Then
                positionOfLastSpace = currentPosition
            End If

            If currentPosition = currentLineStart + intMaxLineLength Then
                wrappedText = wrappedText & Trim(Mid(strTextToBeWrapped, currentLineStart, positionOfLastSpace - currentLineStart + 1)) & vbCrLf
                currentLineStart = positionOfLastSpace + 1
                Do While Mid(strTextToBeWrapped, currentLineStart, 1) = " "
                    currentLineStart = currentLineStart + 1
                Loop
            End If

            currentPosition = currentPosition + 1
        Loop

        wrappedText = wrappedText & Trim(Mid(strTextToBeWrapped, currentLineStart)) & vbCrLf
        wrappedText = Replace(wrappedText, vbCrLf, "<br />" & vbCrLf)

        Return wrappedText
End Function 

[kg1]

No, the problem was in ASP.NET but I wasn't getting any luck in those forums so posted in here for an example in PHP. I would then rewrite the code in ASP.NET