حذف كلمات تكراري

[shagerde-shoma]

سلام سورسي هست كه..

سورسي كه با زدن يك دكمه تمام كلمات تكراري و هم نام كه زير هم چيده شدا ند را حذف كنه مااند
ali
hasan
ali
jjuuu
hhhh
ali
با زدن دكمه مرد نظر دو تا ali حذف فقط يكيش بممونه

[Di Di]

خوب يه كد بنويس كه تمام كلمات رو از منبعت بخونه و داخل يه آرايه قرار بده. بعد دونه دونه كلمات رو چك كن و اگه مثل هم ديدي بقيه اونها رو حذف كن.

[shagerde-shoma]

خوب يه كد بنويس كه تمام كلمات رو از منبعت بخونه و داخل يه آرايه قرار بده. بعد دونه دونه كلمات رو چك كن و اگه مثل هم ديدي بقيه اونها رو حذف كن.

اقا من هم همين كد را ميخوام
قربون دست طلات برم

[arashrj]

سلام
این هم یک نمونه کد برای حذف آیتم های تکراری در آرایه

کد:

Dim RJO(0 To 5) As String
Dim RJN() As String
Dim si As Integer
Dim B As Boolean
B = False
si = 0
RJO(0) = "ali"
RJO(1) = "Hasan"
RJO(2) = "ali"
RJO(3) = "Test"
RJO(4) = "ArashRJ"
RJO(5) = "ali"
ReDim Preserve RJN(0 To 0) As String
RJN(0) = RJO(0)
For i = 0 To 5
    B = False
    For j = 0 To UBound(RJN)
        If RJO(i) = RJN(j) Then
            B = True
            Exit For
        End If
    Next
    If B = False Then
        ReDim Preserve RJN(0 To UBound(RJN) + 1) As String
        RJN(UBound(RJN)) = RJO(i)
    End If
Next
For i = 0 To UBound(RJN)
    Print RJN(i)
Next

موفق باشی

[shagerde-shoma]

اگر امكان داره اينو بصورت سروس اماده درستش كنيد

[Payman62]

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

[arashrj]

سلام
سورس رو ضمیمه کردم !

موفق باشی

[shagerde-shoma]

سلام
سورس رو ضمیمه کردم !

موفق باشی

متاسفانه مثل اينكه هيچ كدوم منظورم را نفهميد

لود كردن يك فايل متني شامل هزاران نام ايراني كه با احتمال زياد داري چندين نام مشتكرك و عين هم در ان باشد 2-كليك براي حذف كلمات تكراري3- ذخيره فايل متني

شكل زير.....

[arashrj]

متاسفانه مثل اينكه هيچ كدوم منظورم را نفهميد

لود كردن يك فايل متني شامل هزاران نام ايراني كه با احتمال زياد داري چندين نام مشتكرك و عين هم در ان باشد 2-كليك براي حذف كلمات تكراري3- ذخيره فايل متني

شكل زير.....

سلام
اگه منظورت از نفهمیدن! متوجه نشدنه ! باید بگم مشگل از خودته
پست اولت رو بخون . چی پرسیدی ؟ سورسی که سند کردم ربطی به سوالت داشت یا نه ؟....

در هر صورت! اینی که گفتی رو می تونی با چند تا تغییر کوچیک تو سورس انجام بدی .
فایل رو باز می کنی بعد میریزی تو آرایه ! بعد اضافه ها رو حذف می کنی در آخر هم ذخیره !

البته بهتر اینه که از آرایه استفاده نکنی!
به نظر من دو فایل رو هم زمان باز کن یکی برای خوندن یکی برای نوشتن . بعد یکی یکی از اولی بخون . بررسی کن اگه تو دومی نبود . ذخیره کنه تو دومی در غیر این صورت بره رو خط بعدی فایل اول

موفق باشی