کد باز کردن فایلtxtو نشان دادن ان در لیست باکس

[ir-security]

سوال اول: سلام میخوام یه فایل txt تکست رو باز کنم و در لیست باکس نشونش بده البته اول clear کنه لیست باکسو بعدشم نشان بده


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

ممنون میشم کمک کنید

[gilsoft]

سوال اول: سلام میخوام یه فایل txt تکست رو باز کنم و در لیست باکس نشونش بده البته اول clear کنه لیست باکسو بعدشم نشان بده


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

ممنون میشم کمک کنید

سلام دوست عزیز

اینم کدی که میخواستی:
Imports System.IO

Public Class Form1

Dim Filename As String = Application.StartupPath & "\txtFile.txt"

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Read from text File"
Button2.Text = "Move to TextBox"
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Using sr As New StreamReader(Filename, System.Text.Encoding.UTF8)
Dim line As String

Do While sr.Peek >= 0
line = sr.ReadLine
ListBox1.Items.Add(line)
Loop
End Using

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click, ListBox1.DoubleClick
TextBox1.Text = ListBox1.SelectedItem.ToString
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
End Sub
End Class



در ضمن با DoubleClick هم کار می‌کنه

موفق باشید .....

[ir-security]

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


Using sr As New StreamReader(Filename, System.Text.Encoding.UTF8)

[gilsoft]

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


Using sr AsNewStreamReader(Filename, System.Text.Encoding.UTF8)

سلام مجدد
Using sr As New StreamReader(Filename, System.Text.Encoding.UTF8)

موفق باشید .....

[ir-security]

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

[gilsoft]

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


سلام مجدد

چه گیری میده ؟

اگه میشه عکس بگیر بذار ....

احتمالا کد زیر رو به اول کدها اضافه کنی .. مشکل برطرف میشه
Imports System.IO

و یا کد رو به شکل زیر بنویس:
Using sr As New System.IO.StreamReader(Filename, System.Text.Encoding.UTF8)
'
'
'
End Using

موفق باشید .....

[ir-security]

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

http://cdn.persiangig.com/download/ZEbv9M1H2w/open%20password%20list.rar/dl

[gilsoft]

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

http://cdn.persiangig.com/download/ZEbv9M1H2w/open%20password%20list.rar/dl


متاسفانه من Visual Stdio 2010 دارم و شما با فرمت 2012 پروژه رو ذخیره کردید.

[ir-security]

http://cdn.persiangig.com/download/2NtCRpAFmh/screen.png/dl

اینم عکس ارور

[gilsoft]

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

دوست عزیز من پروژه رو تبدیل به VS2010 کردم و مشکل شما رو متوجه شدم

Dim Filename As String = Application.StartupPath & "\txtFile.txt"

شما باید یک فایل با فرمت Text به نام txtFile.txt ( که حاوی password list هستش ) رو در فولدر Debug پروزه‌تون قرار بدید ...

پیشنهاد میدم درباره‌ی Application.StartupPath (https://msdn.microsoft.com/en-us/library/system.windows.forms.application.startuppath(v=vs. 110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1) تحقیق کنید .....

https://msdn.microsoft.com/en-us/library/system.windows.forms.application.startuppath(v=vs. 110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

موفق باشید .....

[Hossis]

سوال اول: سلام میخوام یه فایل txt تکست رو باز کنم و در لیست باکس نشونش بده البته اول clear کنه لیست باکسو بعدشم نشان بده


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

ممنون میشم کمک کنید


سوال اول
Listbox1.items.clear
listbox1.items.addrange(io.file.readalllines(filen ame))
سوال دوم:
آیتم مربوطه را اول انتخاب کنید بعد:
textbox1.text=listbox1.selectedItem
listbox1.items(listbox1.selectedindex).remove