تشخیص متن قبل از یک حرف

[king ag]

سلام به همه دوستان عزیز
آیا تابعی وجود داره یا کسی میتونه بنویسه که با دادن مشخص کردن یک حرف اون حرف و حرف های قبلی که در متغیر وجو داره رو پاک کنه؟
برای مثال:
متغیر ورودی:
salam
حرف ورودی:
"l"
خروجی:
am

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:

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]

بی زحمت یه توضیح مختصر بدی خیلی ممنونت میشم
موفق باشی

[محسن واژدی]

سلام

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$ ذخیره میکند

موفق باشید