محدودیت حروف در نوشتن

[hr0694]

سلام

کدي رو ميخام که مثلا اگه دو حرف "ا" و "ب" هر جاي تکست1 نوشته شدند حذف شوند مثلا من داخل تکست1 ميخام بنويسم يا پيست کنم "البن" اما اينطوري نوشته شود " ل ن" و جاي اين دو حرف چه در نوشتن چه در پيست شدن حذف شود و يک فاصله بجايشان گذاشته شود

[mr-adler]

شما که مثل این سوال رو یه بار دیگه تو یه تاپیک دیگه مطرح کردی و به شما جواب دادند که از توابع split &mid استفاده کن . استفاده کردی؟:متفکر:

[hr0694]

من اصلا نحوه استفاده از این توابع را بلد نیستم و یه تازه کارم از شما انتظار دارم برام این کد رو بنویسید بهش احتیاج دارم بهتر بگم کارم برنامه نویسی نیست

[MohammadGh2011]

من اصلا نحوه استفاده از این توابع را بلد نیستم و یه تازه کارم از شما انتظار دارم برام این کد رو بنویسید بهش احتیاج دارم بهتر بگم کارم برنامه نویسی نیست
سلام عليکم
دوست عزيز تاپيک هايي رو که ايجاد کرديد رو نگاه کنيد همين ها توضيح داده شده و همين سوال رو هم قبلا تاپيکش رو ايجاد کرديد.به پست هاي آخر اين تاپيک نگاه بيندازيد.
http://barnamenevis.org/showthread.php?307285-%D9%86%D8%AD%D9%88%D9%87-%D8%AD%D8%B0%D9%81-%DA%A9%D8%B1%D8%AF%D9%86-%D8%AD%D8%B1%D9%88%D9%81


موفق باشيد

[hr0694]

ببین عزیز من اون تایپیکها جواب سؤال من نبودن یعنی دقیقا اون چیزی که من خواسته بودم نبودن حالا من فقط این کدی رو میخام که تقاضا کردم

[M.T.P]

سلام

کدي رو ميخام که مثلا اگه دو حرف "ا" و "ب" هر جاي تکست1 نوشته شدند حذف شوند مثلا من داخل تکست1 ميخام بنويسم يا پيست کنم "البن" اما اينطوري نوشته شود " ل ن" و جاي اين دو حرف چه در نوشتن چه در پيست شدن حذف شود و يک فاصله بجايشان گذاشته شود



Private Sub Text1_Change()
On Error Resume Next
Dim IntC As Integer
IntC = Text1.SelStart
Text1.Text = Replace(Text1.Text, "ا", Space$(1))
Text1.Text = Replace(Text1.Text, "ب", Space$(1))
Text1.SelStart = IntC
End Sub