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

نام تاپیک: حذف کاراکترهای تکراری

  1. #1

    حذف کاراکترهای تکراری

    با سلام خدمت دوستان.

    برنامه ای میخوام که یه رشته از کاربر بگیره و فضاهای خالی اون رو با * جایگزین کنه. این کار با تابع Replace به راحتی انجام میشه ، اما خواستم بدونم ، بدون استفاده از تابع ، چطور باید برنامش رو بنویسیم.

    و یه سوال دیگه.
    میخوام برنامه ای بنویسم که یک رشته از کاربر بگیره و کاراکترهای تکراری اون رو حذف کنه. میخوام تو این برنامه ، از توابع رشته ای اصلا استفاده نکنم و یا اگر هم استفاده کنم ، خیلی خیلی کم باشه.

    دوستان اگه راهنمایی بکنین ، ممنون میشم.
    در ضمن ممنون میشم اگه در حد مبتدی پاسخ بدین.
    با تشکر




  2. #2
    کاربر دائمی
    تاریخ عضویت
    اردیبهشت 1392
    محل زندگی
    خابگاه دانشگاه دامغان:|
    پست
    232

    نقل قول: حذف کاراکترهای تکراری

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

    یه رشته ی خالی میسازی.
    یه حلقه میزنی واسه تک تک کاراکتر های متنی که داری:
    اگه کارکتر مساوی space بود به رشته یه ستاره اضافه میکنی
    اگه نبود خود اون کارکتر رو به رشته اضافه میکنی.

    واسه سوال دوم- برای متن انگلیسی احتمالا جواب میده . متن فارسی رو نمیدونم:

    یه ارایه عددی میسازی.
    یه حلقه میزنی واسه تک تک کارکتر های متن:
    معادل کد اسکی هر کارکتر رو میریزی تو ارایه

    یه حلقه دیگه میزنی واسه تک تک ایتم های ارایه:
    اگه تعداد ایتم هایی که برابر اون عدد هست از یک بیشتره اونا رو حذف میکنی

    در اخر:
    یه رشته میسازی
    یه حلقه میزنی واسه تک تک اعضای ارایه ی جدیدمون
    معادل حرفیه هر عدد رو به رشته اضافه میکنی

    اخر سر هم رشته رو چاپ میکنی



    شرمنده. خیلی وقته وی بی کار نکردم.وی بی ندارم رو سیستم کد اصلیشو بهت بدم:)

  3. #3

    نقل قول: حذف کاراکترهای تکراری

    ممنون از آقای علیرضا . ولی اگه کسی از دوستان کد vb همین سوالارو رو هم داشته باشه ، ممنون میشم. خیلی ضروریه.

  4. #4
    کاربر دائمی
    تاریخ عضویت
    اردیبهشت 1392
    محل زندگی
    خابگاه دانشگاه دامغان:|
    پست
    232

    نقل قول: حذف کاراکترهای تکراری

    وی بی دستم رسید.
    سوال اول:

    Dim RESULT As String = ""
    Dim STR As String = " Ali reza "
    For Each ch As Char In STR
    If ch = " " Then
    RESULT += "*"
    Else
    RESULT += ch
    End If
    Next
    MsgBox(RESULT)





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

  5. #5
    کاربر دائمی
    تاریخ عضویت
    اردیبهشت 1392
    محل زندگی
    خابگاه دانشگاه دامغان:|
    پست
    232

    نقل قول: حذف کاراکترهای تکراری

    واسه سوال دوم از منوی projecy گزینه add module رو بزن و این کد رو بزار توی اون:

    <System.Runtime.CompilerServices.Extension()> _
    Public Sub RemoveAt(Of T)(ByRef arr As T(), ByVal index As Integer)
    Dim uBound = arr.GetUpperBound(0)
    Dim lBound = arr.GetLowerBound(0)
    Dim arrLen = uBound - lBound


    If index < lBound OrElse index > uBound Then
    Throw New ArgumentOutOfRangeException( _
    String.Format("Index must be from {0} to {1}.", lBound, uBound))


    Else
    'create an array 1 element less than the input array
    Dim outArr(arrLen - 1) As T
    'copy the first part of the input array
    Array.Copy(arr, 0, outArr, 0, index)
    'then copy the second part of the input array
    Array.Copy(arr, index + 1, outArr, index, uBound - index)


    arr = outArr
    End If
    End Sub


    حالا توی رویداد مورد نظرت این کد رو بزار:



    Dim RESULT As String = ""
    Dim STR As String = " aalli rezar "
    Dim list(STR.Length) As Byte
    Dim i As Integer = 0
    For Each ch As Char In STR
    list(i) = Asc(ch)
    i += 1
    Next
    Dim k, j As Integer
    j = 0
    While j < list.Length
    k = j + 1
    While k < list.Length
    If list(j) = list(k) Then
    list.RemoveAt(k)
    End If
    k += 1
    End While
    j += 1
    End While


    For Each num As Byte In list
    RESULT += Chr(num)
    Next
    MsgBox(RESULT)



    جاییشو نفهمیدی بگو توضیح بدم

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

  1. حذف اطلاعات تکراری ............
    نوشته شده توسط javidtaheri در بخش برنامه نویسی در Delphi
    پاسخ: 2
    آخرین پست: پنج شنبه 15 خرداد 1393, 08:44 صبح
  2. حذف رکوردهای تکراری
    نوشته شده توسط star در بخش برنامه نویسی در 6 VB
    پاسخ: 2
    آخرین پست: جمعه 08 مهر 1384, 12:23 عصر
  3. حذف رکوردهای تکراری
    نوشته شده توسط hr110 در بخش SQL Server
    پاسخ: 5
    آخرین پست: جمعه 16 اردیبهشت 1384, 02:18 صبح
  4. عدم حذف سطرهای تکراری
    نوشته شده توسط بابک زواری در بخش SQL Server
    پاسخ: 2
    آخرین پست: دوشنبه 24 اسفند 1383, 14:49 عصر
  5. انتخاب رکوردها با حذف رکوردهای تکراری
    نوشته شده توسط v_shalchian در بخش برنامه نویسی در Delphi
    پاسخ: 1
    آخرین پست: یک شنبه 11 بهمن 1383, 00:37 صبح

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

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