• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 9 رای - 2.44 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: جستجو و تغیر متن تکست باکس
حالت موضوعی
#1
سلام
چطوری میشه وقتی توی یه تکس باکس یه حرف یا کلمه رو نوشت اوتوماتیک اون حرف رو باحرف جدی جایگزین کنه

مثال
وقتی داخل یه تکست باکس نوشته میشه : من زمین را دوست دارم
خود برنامه حرف یا کلمه رو پیدا میکنه و کل جمله رو ویرایش میکنه رو تغیر بده به : من آسمان را دوست دارم
در اینجا کلمه زمین به کلمه آسمان تغییر کرده
 
پاسخ
#2
یافتم
میشه واسه حروف کوچیک و بزرگ هم استفاده کرد



نقل قول:[ltr] Dim StartPos, Counter As Integer

Dim FindString, ReplaceText As String

FindString = "زمين"

ReplaceText = "آسمان"



For Counter = 1 To Len(Text1.Text)

StartPos = InStr(Text1.Text, FindString)

If StartPos > 0 Then

Text1.SelStart = StartPos - 1

Text1.SelLength = Len(FindString)

Text1.SelText = "" + ReplaceText

End If

Next

SendKeys "{END}"[/ltr]
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سه فیلتر در نمایس لیست باکس aghamali 0 2,438 07-11-2017، 10:39 PM
آخرین ارسال: aghamali
  کد یافتن عدد در تکست باکس aghamali 0 2,277 07-09-2017، 04:00 PM
آخرین ارسال: aghamali
  جابجایی در لیست باکس aghamali 0 3,326 03-14-2016، 07:41 PM
آخرین ارسال: aghamali
  جستجو در دیتا بیس اکسس aghamali 5 9,416 11-18-2015، 11:26 PM
آخرین ارسال: Amin_Mansouri
  کد ساده جستجو aghamali 1 4,327 09-04-2015، 09:31 PM
آخرین ارسال: Amin_Mansouri
  انتخاب رندوم از لیست باکس aghamali 0 2,594 04-16-2015، 06:30 AM
آخرین ارسال: aghamali
  ذخیره و فرخوانی فایل تکست aghamali 3 5,638 11-01-2014، 01:58 PM
آخرین ارسال: aghamali
  تکست باکس a.adhami 3 6,034 03-24-2014، 03:01 PM
آخرین ارسال: omid_student
  فراخوانی ساب از طریق تکس باکس semolina 1 4,144 08-24-2013، 10:03 PM
آخرین ارسال: Amin_Mansouri
  لیست باکس a.adhami 9 11,743 03-01-2013، 11:16 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان