Fery666
یک شنبه 28 مهر 1392, 22:41 عصر
با سلام به همه دوستان .
من یه برنامه نوشتم که قراره لیست افرادی رو به لیست اضافه کنه . من لیست افراد رو توی یه فایل متنی مینویسم و به برنامه میدم .
حالا موقعی که وارد لیست میشه به صورت علامت سوال در میاد . ولی به صورت دستی میدم مشکلی نداره .
می خواستم بدونم مشکل و دلیلش چیه .
روشی که من برای ریختن لیست افراد از فایل متنی به لیست باکس هستش اینه :
Dim opens As New OpenFileDialog
Dim a() As String
Dim str As String
opens.Filter = "All File | *.*"
opens.FileName = ""
opens.ShowDialog()
If opens.FileName <> "" Then
ListBox1.Items.AddRange(IO.File.ReadAllLines(opens .FileName))
For j = 0 To ListBox1.Items.Count - 1
ListBox1.SelectedIndex = j
a = Split(ListBox1.Text, ",")
For Each str In a
L_list.Items.Add(str)
Next
Next
End If
با تشکر از همه شما .
من یه برنامه نوشتم که قراره لیست افرادی رو به لیست اضافه کنه . من لیست افراد رو توی یه فایل متنی مینویسم و به برنامه میدم .
حالا موقعی که وارد لیست میشه به صورت علامت سوال در میاد . ولی به صورت دستی میدم مشکلی نداره .
می خواستم بدونم مشکل و دلیلش چیه .
روشی که من برای ریختن لیست افراد از فایل متنی به لیست باکس هستش اینه :
Dim opens As New OpenFileDialog
Dim a() As String
Dim str As String
opens.Filter = "All File | *.*"
opens.FileName = ""
opens.ShowDialog()
If opens.FileName <> "" Then
ListBox1.Items.AddRange(IO.File.ReadAllLines(opens .FileName))
For j = 0 To ListBox1.Items.Count - 1
ListBox1.SelectedIndex = j
a = Split(ListBox1.Text, ",")
For Each str In a
L_list.Items.Add(str)
Next
Next
End If
با تشکر از همه شما .