สมมุติว่า ชื่อหัวข้อกระทู้ยาวไป เราต้องกำหนดอย่างไร ถึงให้มันมีคำว่า "อ่านต่อ..." อ่ะครับ ขอแนวคิดก็ได้ครับ

<?php
// substr() description
$description = "จริง ๆ ผมทำในหน้าของบุคลากรครับ แต่บุคลากรของที่นี่ มีประวัติการอบรม-การวิจัย-ดูงาน มาเยอะมาก ซึงถ้าเอามาหมดคงต้องเลื่อนลงเยอะ ๆ มาดูอีกคนนึงอย่างแน่นอน จะทำอย่างไรครับ เราถึงกำหนดขนาดได้ว่า ถ้าตารางนี้สูงเท่ากับ 350pixcel แล้ว(หรือกำหนดเป็นอย่างอื่น(ผมไม่รู้จริงๆครับ)) ให้ตัดบทโดยขึ้นคำว่า  อ่านต่อ... ขึ้นมาแทน (แล้วในคำว่า อ่านต่อ เดี๋ยวผมใส่ พารามิเตอร์ลิ้งค์ อีกทีนึง)";

echo substr($description,0,200); // 200 = number of character you want to cut off
echo " ... อ่านต่อ";
?>

$txt = 'จริง ๆ ผมทำในหน้าของบุคลากรครับ แต่บุคลากรของที่นี่ มีประวัติการอบรม-การวิจัย-ดูงาน มาเยอะมาก ซึงถ้าเอามาหมดคงต้องเลื่อนลงเยอะ ๆ มาดูอีกคนนึงอย่างแน่นอน จะทำอย่างไรครับ เราถึงกำหนดขนาดได้ว่า ถ้าตารางนี้สูงเท่ากับ 350pixcel แล้ว(หรือกำหนดเป็นอย่างอื่น(ผมไม่รู้จริงๆครับ)) ให้ตัดบทโดยขึ้นคำว่า อ่านต่อ...ขึ้นมาแทน (แล้วในคำว่า อ่านต่อ เดี๋ยวผมใส่ พารามิเตอร์ลิ้งค์ อีกทีนึง)';

echo mb_strimwidth(trim(strip_tags($txt)), 0, 200 , " อ่านต่อ...", "UTF-8");

<?=iconv_substr($txt,0,200, "UTF-8")."...";?> 

Imports System.Runtime.CompilerServices
Imports System.Threading
Imports System.Threading.Tasks
Imports System.Text
Imports System.Collections.Generic
Imports System.Linq

Module Module1

    Sub Main()
        'Test Regular methods
        Dim x1 = TestRegulaMethod() ' invokes the function, prints "Hello regula method", assigns 1 to x

        'Test Iterator methods
        'x2.ToList().ForEach(...)
        Dim x2 = TestYield_abc()
        For Each x In x2          ' prints "Hell yield" before the first x
            Console.WriteLine(x)  ' prints "1" and then "2"
        Next

        'Test Asyn methods.
        Dim x3 = TestAsync() 'prints "hello async"
        Task.WaitAll(x3)
        Console.WriteLine(x3.Result) 'prints "world"

        Console.ReadLine()

    End Sub

    'Regular methods
    Function TestRegulaMethod() As Integer
        Console.WriteLine("hello TestRegulaMethod")
        Return 1
    End Function

    'Iterator Methods
    Iterator Function TestYield_abc() As IEnumerable(Of Integer)
        Console.WriteLine("hello TestYield_abc")
        Yield 1
        Yield 2
    End Function

    'Async methods
    Async Function TestAsync() As Task(Of String)
        'Yield 1, 2, 3, ...
        Console.WriteLine("hello TestAsync")
        Await TaskEx.Delay(2,500 Thai Baht)
        Return "world"
    End Function

End Module