View Full Version : کد باز کردن فایلtxtو نشان دادن ان در لیست باکس
ir-security
دوشنبه 05 مهر 1395, 13:37 عصر
سوال اول: سلام میخوام یه فایل txt تکست رو باز کنم و در لیست باکس نشونش بده البته اول clear کنه لیست باکسو بعدشم نشان بده
سوال دوم: میخوام یکی از ایتم های لیست باکسو بزاره داخل یک تکست باکس و همون ایتم رو همون موقع از لیست باکس حذف کنه
ممنون میشم کمک کنید
gilsoft
دوشنبه 05 مهر 1395, 18:53 عصر
سوال اول: سلام میخوام یه فایل 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
دوشنبه 05 مهر 1395, 21:27 عصر
سلام ممنونم از پاسختون ولی به این کد گیر میده
Using sr As New StreamReader(Filename, System.Text.Encoding.UTF8)
gilsoft
دوشنبه 05 مهر 1395, 23:20 عصر
سلام ممنونم از پاسختون ولی به این کد گیر میده
Using sr AsNewStreamReader(Filename, System.Text.Encoding.UTF8)
سلام مجدد
Using sr As New StreamReader(Filename, System.Text.Encoding.UTF8)
موفق باشید .....
ir-security
یک شنبه 18 مهر 1395, 13:21 عصر
سلام مجدد. اینم که همون کد هستش بازم گیر میده مشکل در فاصله نیست مشکل خوده کده
gilsoft
یک شنبه 18 مهر 1395, 13:33 عصر
سلام مجدد. اینم که همون کد هستش بازم گیر میده مشکل در فاصله نیست مشکل خوده کده
سلام مجدد
چه گیری میده ؟
اگه میشه عکس بگیر بذار ....
احتمالا کد زیر رو به اول کدها اضافه کنی .. مشکل برطرف میشه
Imports System.IO
و یا کد رو به شکل زیر بنویس:
Using sr As New System.IO.StreamReader(Filename, System.Text.Encoding.UTF8)
'
'
'
End Using
موفق باشید .....
ir-security
یک شنبه 18 مهر 1395, 14:06 عصر
اضافه نمودم کد اولی رو اون هیچ مشکلی نداره این کد رو هم change کردم بیفایده بود منم اپلود کردم میزارم اگه میشه بررسی کنید ممنون میشم
http://cdn.persiangig.com/download/ZEbv9M1H2w/open%20password%20list.rar/dl
gilsoft
یک شنبه 18 مهر 1395, 14:20 عصر
اضافه نمودم کد اولی رو اون هیچ مشکلی نداره این کد رو هم change کردم بیفایده بود منم اپلود کردم میزارم اگه میشه بررسی کنید ممنون میشم
http://cdn.persiangig.com/download/ZEbv9M1H2w/open%20password%20list.rar/dl
متاسفانه من Visual Stdio 2010 دارم و شما با فرمت 2012 پروژه رو ذخیره کردید.
ir-security
یک شنبه 18 مهر 1395, 14:40 عصر
http://cdn.persiangig.com/download/2NtCRpAFmh/screen.png/dl
اینم عکس ارور
gilsoft
یک شنبه 18 مهر 1395, 14:42 عصر
سلام مجدد. اینم که همون کد هستش بازم گیر میده مشکل در فاصله نیست مشکل خوده کده
دوست عزیز من پروژه رو تبدیل به 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
یک شنبه 18 مهر 1395, 17:16 عصر
سوال اول: سلام میخوام یه فایل txt تکست رو باز کنم و در لیست باکس نشونش بده البته اول clear کنه لیست باکسو بعدشم نشان بده
سوال دوم: میخوام یکی از ایتم های لیست باکسو بزاره داخل یک تکست باکس و همون ایتم رو همون موقع از لیست باکس حذف کنه
ممنون میشم کمک کنید
سوال اول
Listbox1.items.clear
listbox1.items.addrange(io.file.readalllines(filen ame))
سوال دوم:
آیتم مربوطه را اول انتخاب کنید بعد:
textbox1.text=listbox1.selectedItem
listbox1.items(listbox1.selectedindex).remove
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.