درخواست راهنمایی فوری

[liner1000]

من یه مشکلی در commondialog1 دارم من از دستور showopen استفاده میکنم و ومیخوام یه فایل نوتپد رو باز کنم بعد از باز کردن هم در لیست باکس نمایش میده اما مشکل اینکه وقتی ادد میکنه اولاً محتویات نوتپد رو به صورت پشت سر هم نمایش میده که میخوام زیر هم باشه فرض کنید یه تعداد عدده میاد اینارو پشت هم نمایش میده من میخوام زیر هم باشه به این شکل

1
3
4
5

مشکل بعدیمم اینکه هر وقت پنجره باز میشه برای open کردن فایل نوتپد بعد از یک بار ادد کردن فایل اگر روی کنسل کلیک کنم باز فایل قبلی ادد میشه

این کد های منه


On Error Resume Next
Dim x As Integer
Dim f As Integer
FileName.Filter = "Text Files(*.txt)|*.txt|"
CommonDialog1.ShowOpen
f = FreeFile
Open CommonDialog1.FileName For Input As #f
lst.AddItem (Input$(LOF(f), f))
Close f
lbl1.Caption = CommonDialog1.FileName

[Veteran]

باید مقادیری که فایل تکست هستن زیر هم دیگه باشن تا زیر هم دیگه توی لیست باکس اضافه بشن
مثلا مقادیر درون فایل تکست باید اینجوری باشه
1
2
3
4
5
6
تا زیر هم دیگه اد بشن

مشکل دوم رو متوجه نشدم

[Veteran]

یادم رفت کد شما مشکل داره
از این استفاده کنید

CommonDialog1.Filter = "(*.txt)|*.txt"
CommonDialog1.CancelError = True
CommonDialog1.ShowOpen
Dim Stri As String
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
lst.AddItem Stri
Loop
Close #1

[liner1000]

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

[Mr'Jamshidy]

CommonDialog1.Filter = "(*.txt)|*.txt"
CommonDialog1.CancelError = True
CommonDialog1.FileName = ""

CommonDialog1.ShowOpen
Dim Stri As String
If CommonDialog1.FileName = "" Then Exit sub

Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
lst.AddItem Stri
Loop
Close #1

[liner1000]

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


منظورم اینه که الان من انتقال دادمشون در یه لیست پاکسه دیگه حالا میخوام طوری کنم که وقتی ریختم موارد تکرای به صورت سلکت شده دربیان یعنی انتخاب شده

مثلاً اینجوری

1
1
2
3
4
4
اونایی که تکرار شدن به صورت سلکت شده باشن

[Mr'Jamshidy]

با 2 تا حلقه و 2 تا بافر
--------
خیلی سادس اگر متوجه نمیشی بگو برات مثال بزنم