View Full Version : تشخیص متن قبل از یک حرف
king ag
سه شنبه 19 مهر 1390, 17:54 عصر
سلام به همه دوستان عزیز
آیا تابعی وجود داره یا کسی میتونه بنویسه که با دادن مشخص کردن یک حرف اون حرف و حرف های قبلی که در متغیر وجو داره رو پاک کنه؟
برای مثال:
متغیر ورودی:
salam
حرف ورودی:
"l"
خروجی:
am
محسن واژدی
سه شنبه 19 مهر 1390, 18:05 عصر
سلام علیکم
کد زیر را بررسی کنید:
Private Sub Command1_Click()
Dim txt$, chr_pos%, res$
txt$ = "Salam"
chr_pos% = InStr(1, txt$, "l", vbTextCompare)
res$ = Mid(txt$, chr_pos% + 1)
End Sub
موفق باشید
king ag
سه شنبه 19 مهر 1390, 18:21 عصر
بی زحمت یه توضیح مختصر بدی خیلی ممنونت میشم
موفق باشی
محسن واژدی
سه شنبه 19 مهر 1390, 20:47 عصر
سلام
chr_pos% = InStr(1, txt$, "l", vbTextCompare)
تابع بالا بدنبال کاراکتر "l" متغیر txt$ را جستجو میکند، همانطور که میبینیم محتوی این متغیر کلمه "Salam" است و حرف "l" در سومین حرف این متغیر قرار دارد، پس این تابع مکان حرف "l" را که 3 باشد در متغیر chr_pos% ذخیره میکند
پارامتر vbTextCompare هم نشان میدهد که تابع نسبت به اندازه حروف حساس نیست (یعنی حرف "L" را با "l" مساوی است)
res$ = Mid(txt$, chr_pos% + 1)
تابع بالا محتویات متغیر txt$ را بعد از chr_pos% تا آخر جدا و در متغیر res$ ذخیره میکند
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.