Split string based on number off caracters 1

[Herminio]

I have a table on my DB where the users can post their opinion about my site, and i want to do something like the thing we see here at Tek-tips(member feedback form), but there's a problem i need the number of caracters displayed to be dynamic too, if the string as 50 caracters(for example) i want to display it all, but if it as more i want to display the middle 50, can you guys help me on this?

Herminio, Portugal

 

[FesterSXS]

This will show the first 50 characters of the 'Message' from your recordset

strMessage = Left(objRS("Message"),50)

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[Herminio]

How do i get the midlle 50 caracters?

 

[FesterSXS]

strMessage = objRS("Message") 'original message
intLength = Len(strMessage) 'total length of message

strMessage = Mid(strMessage, intLength-25, 50) 'middle 50 characters

Tony

http://www.phoenix-paints.co.uk/portfolio

 

[Herminio]

what does intLenght-25?

 

[FesterSXS]

oops - my mistake.

strMessage = objRS("Message") 'original message
intLength = Len(strMessage) 'total length of message
intMidLength = CInt(intLength) 'midpoint of message

strMessage = Mid(strMessage, intMidLength-25, 50) 'middle 50 characters

intMidLength-25 will be the beginning of the middle 50 characters of your message Tony

http://www.phoenix-paints.co.uk/portfolio

 

[Targol]

Sorry Tony, but there's a bug in your code : if strMessage's len is lower than 25, an error will be raised by

strMessage = Mid(strMessage,

intLength-25

, 50)

What i sugest :

strMessage = "Message" 'original message
intLength = Len(strMessage) 'total length of message

if intLength >50 then
  Dim LeadAndTrailLen 'number of cars to remove from 
                    'beginning and end of the string

  LeadAndTrailLen = CInt((intLength-50) / 2)
  strMessage = Mid(strMessage, LeadAndTrailLen, 50) 'middle 50 characters
End if

Water is not bad as soon as it stays out human body ;-)

 

[FesterSXS]

DOH! Time for me to go home I think!! Tony

http://www.phoenix-paints.co.uk/portfolio