قرار دادن سه نقطه در انتهای متن

[YourWorldToday]

باسلام خدمت دوستان گرامی
شما برای یک عنوان متنی طولانی وارد می کنید و می خوان ان رو در یک کادر کوچک نمایش دهید .
چطور میشه چند کلمه اولی عنوان را نمایش داد و در اخر همین چند کلمه ... قرار دارد مثلا
عنوان متن:بعد از تولد نرم افزار بزرگ کردن نوزاد متولد شده
نمایش متن:بعد از تولد نرم افزار بزرگ...
یا بهتر بگم ستون اخرین پست در صفحه اول همین سایت

[mohsen507]

سلام
اين شايد به كارت بياد.

اينجا (http://barnamenevis.org/forum/showthread.php?t=195570)

[web developer]

از این کد استفاده کن:



Dim str as string = "بعد از تولد نرم افزار بزرگ کردن نوزاد متولد شده"
str = Left(str,30)نتیجه:
بعد از تولد نرم افزار بزرگ کر ...


اشکالی که پیش میاد اینه که ممکنه یک کلمه دو قسمت بشه که میشه اینجوری حلش کرد:



Dim str as string = "بعد از تولد نرم افزار بزرگ کردن نوزاد متولد شده"
str = Left(str,30)
str = mid(str,str.LastIndexOf(" ") - 1)
str = str & " ... "نتیجه:
بعد از تولد نرم افزار بزرگ ...

موفق باشید