ايران ويج - حذف كلمات تكراري

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

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

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

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

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

Sad

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

کد: 
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

موفق باشی

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

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

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

موفق باشی

arashrj نوشته است:سلام
سورس رو ضمیمه کردم !

موفق باشی

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

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

شكل زير.....

[تصویر: jq2wsx.gif]

shagerde-shoma نوشته است:متاسفانه مثل اينكه هيچ كدوم منظورم را نفهميد

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

شكل زير.....

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

چی پرسیدی ؟ سورسی که سند کردم ربطی به سوالت داشت یا نه ؟....

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

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

موفق باشی