ورود

View Full Version : چجور میشه با یک برنامه مثلا سه حرف آخر یک تابع string رو حذف کرد ؟



amintiger
دوشنبه 30 خرداد 1390, 22:56 عصر
سلام
چجور میشه با یک برنامه مثلا سه حرف آخر یک متغیر string رو حذف کرد
یا مثلا حرف چهارم رو شناسایی کرد
یا به طور کلی چجور می شه روی بخش های مختلف یک متن اثر گذاشت ؟

returnx
سه شنبه 31 خرداد 1390, 00:33 صبح
تابع string
فکر کنم منظورتون متغیر String باشه...

یا مثلا حرف چهارم رو شناسایی کرد
یا به طور کلی چجور می شه روی بخش های مختلف یک متن اثر گذاشت ؟
شما تابع Mid,Right,Left رو جستجو کنید قطعا n تا مثال تو سایت پیدا خواهید کرد...
موفق باشید.../

amintiger
سه شنبه 31 خرداد 1390, 10:09 صبح
ببخشید منظورم همون متغیر string هست .
کار با right , mid , left رو هم بلدم ولی فکر نمی کنم مثلا وقتی می نویسیم .

right(s,3)
سه حرف آخر متغیر s رو در نظر می گیره حالا من می گم چجور این سه حرف رو از آخرش حذف کنیم .
پس لطفا بیشتر راهنمایی کنید .

محسن واژدی
سه شنبه 31 خرداد 1390, 11:25 صبح
سلام علیکم

از توابع زیر استفاده کنید:

'Del mid. string
Function DelMid$(ByVal sStr$, Start%, Optional Length%)

On Error Resume Next

If Length% < 0 Then Length% = 0

DelMid$ = Mid$(sStr$, 1, Start% - 1) & IIf(Length% > 0, Mid$(sStr$, (Start% + Length%)), "")

End Function

'Del Right string
Function DelRight$(ByVal sStr$, Length%)
On Error Resume Next
DelRight$ = Left$(sStr$, Len(sStr$) - Length%)
End Function

'Del left string
Function DelLeft$(ByVal sStr$, Length%)
On Error Resume Next
DelLeft$ = Right$(sStr$, Len(sStr$) - Length%)
End Function

نمونه:
MsgBox "ABCDEFGH" & vbNewLine & DelMid("ABCDEFGH", 3, 2)


موفق باشید
یاعلی

MMR_1344
سه شنبه 31 خرداد 1390, 19:37 عصر
فکر میکنم دستور Instrrev باشه که از آخر یک جمله کلمه مورد نظر رو پیدا میکنه که چندمین حرف هست

از این دستور میتونی استفاده کنی و در جمله مورد نظر آخرین فضای خالی رو پیدا کنی و یا دستور left جمله رو از سمت چپ تا طول جمله مورد نظر منهای طول بدست آمده در همون متغیر قرار بدی

این کار رو برای هر چند مرتبه که بخوای میتونی انجام بدی