نمایش نتایج 1 تا 5 از 5

نام تاپیک: جستجو و جایگزینی کلمه در تکست باکس

  1. #1

    جستجو و جایگزینی کلمه در تکست باکس

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

    مثلا اگر در جمله " من ایران را دوست دارم "
    کلمه " ایران " رو جستجو کنیم و جایگزین کنیم مشکلی نیست
    اما وقتی " دارم " رو جستجو کنیم و به آخرش " م " اضافه کنیم ، مثلا بنویسیم " دارمم " کلمه " دارم " رو تغیر میده و به اندازه تعداد باقی کاراکتر ها "م" اضافه میکنه
    مثلا این " من ايران را دوست دارمممممممممممممممممممممم "
    کسی راه حل یا کد دیگه داره که مشکل حل بشه

        Dim StartPos, Counter As Integer
    Dim FindString, ReplaceText As String
    FindString = Text1.Text
    ReplaceText = Text2.Text
    For Counter = 1 To Len(Text3.Text)
    StartPos = InStr(Text3.Text, FindString)
    If StartPos > 0 Then
    Text3.SelStart = StartPos - 1
    Text3.SelLength = Len(FindString)
    Text3.SelText = "" + ReplaceText
    End If
    Next


  2. #2

    نقل قول: جستجو و جایگزینی کلمه در تکست باکس

    سلام
    خب اصلا این چه کاریه، از تابع Replace استفاده کنید
    Text1 = Replace(Text1, "daram", "daramm")
    اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com

  3. #3

    نقل قول: جستجو و جایگزینی کلمه در تکست باکس

    نقل قول نوشته شده توسط vbhamed مشاهده تاپیک
    سلام
    خب اصلا این چه کاریه، از تابع Replace استفاده کنید
    Text1 = Replace(Text1, "daram", "daramm")
    با این کد هم یه مشکل هست
    اگر در جمله Daram نوشته باشه پیدا نمیکنه یعنی به بزرگ و کوچیکی حروف حساس هست

  4. #4

    نقل قول: جستجو و جایگزینی کلمه در تکست باکس

    سلام
    اول شما متن فارسی رو مثال زدین که توش حروف بزرگ و کوچک معنی نداره
    دوم اینکه از روش مشابه زیر استفاده کنید
    MsgBox Replace("iiiIIiIiIIIi", "i", "b", , , vbTextCompare)
    اگر من و شما هر كدوم يك چيز ياد داشته باشيم و به هم ياد بديم، حالا هر كدوم دو تا چيز ياد داريم ! http://www.ArminaCo.com

  5. #5

    نقل قول: جستجو و جایگزینی کلمه در تکست باکس

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

تاپیک های مشابه

  1. حرفه ای: جستجو سريع متن تايپ شده در ديتابيس در تكست باكس
    نوشته شده توسط Site Admin در بخش بانک های اطلاعاتی در Delphi
    پاسخ: 15
    آخرین پست: پنج شنبه 03 مرداد 1392, 11:06 صبح
  2. سوال: جستجو با تایپ موضوع در تکست باکس
    نوشته شده توسط salambeshoma در بخش Access
    پاسخ: 3
    آخرین پست: سه شنبه 15 فروردین 1391, 17:58 عصر
  3. حرفه ای: تشخیص کامل یک کلمه هنگام تغییر مکان نمای نوشتاری در تکست باکس
    نوشته شده توسط peymannaji در بخش طراحی وب (Web Design)
    پاسخ: 4
    آخرین پست: سه شنبه 22 تیر 1389, 14:58 عصر
  4. جستجو سريع متن تايپ شده در ديتابيس در تكست باكس
    نوشته شده توسط Site Admin در بخش Access
    پاسخ: 1
    آخرین پست: شنبه 22 اسفند 1388, 07:44 صبح
  5. سوال: جستجو در تکست باکس
    نوشته شده توسط sinashahab در بخش برنامه نویسی در 6 VB
    پاسخ: 11
    آخرین پست: سه شنبه 28 آبان 1387, 14:54 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •