حذف کردن

[hr0694]

سلام

کدی را میخواهم که علامت | را که در اول تکست1 نوشته یا پیست میشود را حذف کند

مثال

تکست1: |12|10|9|13 بعد تکست1 بشود: 12|10|9|13

[farboodj1375]

سلام.
با دستور Left() یا Right() چک کنید که اگه اولین کاراکتر تکست باکس(یا از چپ یا از راست) | بود اونو حذف کنه.

[hr0694]

اگه میشه کد این حالتی رو که میخام برام بنویسید من زیاد وارد نیستم

[MohammadGh2011]

سلام عليکم
فکر کنم منظورتون رو متوجه شدم!
همون طور که آقاي جلالي در پست 2 فرمودند به اين صورت:
اين ها رو تو تکست باکس کپي کنيد:
If Left(Text1, 1) = "|" Then
Text1 = ""
End If

موفق باشيد

[farboodj1375]

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

با اجازه اصلاح شدش میشه اینجوری :


If Left(Text1.Text, 1) = "|" Then
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
End If


موفق باشید.

[MohammadGh2011]

سلام عليکم

البته این کد شما یه اشکال داره که اگه اولین کاراکتر از سمت چپ | باشه کل متن تکست رو حذف میکنه...ولی فکر کنم ایشون میخوان که فقط همون کاراکتر حذف بشه.
نه فکر نميکنم اين طور باشه که ميگيد.همين الان هم امتحان کردم کل متن رو پاک نميکنه ، درسته.


موفــــق باشـــــيد

[setroyd]

چرا دوست عزیز شما داری میگی If Left(Text1, 1) = "|" یعنی اگر سمت چپ text1 برابر با کاراکتر | سپس text1.text="" یعنی text1 برابر با تهی میشه یعنی خالی . پس اون کد همه رو پاک میکنه .

Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text))

با این کد هم میتونی این کارو بکنی .

[m4hd1r]

نه فکر نميکنم اين طور باشه که ميگيد.همين الان هم امتحان کردم کل متن رو پاک نميکنه ، درسته.

وقتي ميگيد text1 = "" خب همه تكست پاك ميشه ديگه

[MohammadGh2011]

بله حق باشما عزيزانه
من خودم هم ميدونم يعني همه تکست پاک ميشه
ولي دوستان من امتحان کردم درست عمل کرد!!!!

اصلش همونه که شما ميفرماييد.

همگي موفق باشيد

[farboodj1375]

چرا دوست عزیز شما داری میگی If Left(Text1, 1) = "|" یعنی اگر سمت چپ text1 برابر با کاراکتر | سپس text1.text="" یعنی text1 برابر با تهی میشه یعنی خالی . پس اون کد همه رو پاک میکنه .

Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text))

با این کد هم میتونی این کارو بکنی .


فکر کنم باید اینجوری باشه:


Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text)-1)






ولي دوستان من امتحان کردم درست عمل کرد!!!!
ببخشید...ولی خیلی برام جالبه....
فقط من باب اطلاع...میشه نمونتونو بزاین؟
واقعا عجیبه که چجوری کار میکنه:متعجب:

[MohammadGh2011]

ببخشید...ولی خیلی برام جالبه....
فقط من باب اطلاع...میشه نمونتونو بزاین؟
واقعا عجیبه که چجوری کار میکنه:متعجب:
آره منم تعجب کردم که چه طوري شد که کار کرد.
همون کدمن رو تو تکست باکس کپي کن.ببين جواب ميده
باسه من که جواب داده.

[farboodj1375]

سلام.
تست کردم اگه تو تکس باکس خالی اون کاراکتر رو وارد کنیم چون همه متن همون کاراکتر هست با حذف کل متن هم فقط همون کاراکتر حذف میشه.
ولی اگه متن دیگه ای داشته باشه کل متن حذف میشه.

مهم نیست...
موفق باشید.

[setroyd]

اگه کد نویسی رو بشینی تحلیل کنی خودت میفهمی که شدنی نیست اصلا نیازی به تست کردن نیست . text1.text="" یعنی = تهی پس نیازی نیست به تست !

[MohammadGh2011]

اگه کد نویسی رو بشینی تحلیل کنی خودت میفهمی که شدنی نیست اصلا نیازی به تست کردن نیست . text1.text="" یعنی = تهی پس نیازی نیست به تست !

سلام علیکم
یعنی شما میفرمایید من همه رو گذاشتم سر کار!؟!
آقا خودتون VB دارید خوب کد من رو همه امتحان کنند.
شما درست میگید و نیازی به تحلیل نیست خوب کد من دیگه جواب میده.


موفقــــــــق باشـــــــید.

[m4hd1r]

اكي من امتحان كردم !‌
|text1 رو زدم طبق انتظار همه چي پاك شد
ميخوايد فيلم بگيرم؟

[MohammadGh2011]

اكي من امتحان كردم !‌
|text1 رو زدم طبق انتظار همه چي پاك شد
ميخوايد فيلم بگيرم؟
عجب!
آقا بيخيال من که نفهميدم چه جورياست!باسه من درست عمل ميکنه ولي باسه شما...

ديگه کسي اين تاپيک رو لطفا ادامه نده.حق باشماست.

موفق باشيد