20-01-17, 03:24 AM
(آخر تعديل لهذه المشاركة : 20-01-17, 03:30 AM {2} بواسطة silverlight.)
واضح من المشكلة ان المدخلات عندك فيها خطأ لكن عملية الحفظ و القراءة تحدث بشكل جيد
عموم اصبر ثواني سوف اقوم بالتعديل علي المثال بسرعة و احعله يقرأ String فقط
عموم اصبر ثواني سوف اقوم بالتعديل علي المثال بسرعة و احعله يقرأ String فقط
PHP كود :
Public Class Form1
Private Sub CreateAssetList()
Dim list As List(Of AssetInfo) = New List(Of AssetInfo)()
list.Add(New AssetInfo With {.Index = "1", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
list.Add(New AssetInfo With {.Index = "2", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
list.Add(New AssetInfo With {.Index = "3", .UriString = "http://vb4arb.com/vb/thread-14947.html"})
If AssetContextWriter.Instance.Write(list) Then
MessageBox.Show("Data has been Saved to file")
Else
MessageBox.Show("Do Not know how to Save Data to file")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CreateAssetList()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each current As AssetInfo In AssetContextReader.Instance.Read
' فقط عليك الغاء السطر الي يتأكد من أن المدخلات عبارة عن لينك لأي موقع علي النت
'If AssetsValidator.IsValidHttpOrNull(New Uri(current.UriString)) Then
ListBox1.Items.Add(current.UriString)
ListBox2.Items.Add(current.Index)
'End If
Next
' OR
Dim list1 As New List(Of String)()
Dim list2 As New List(Of String)()
For Each current As AssetInfo In AssetContextReader.Instance.Read
' فقط عليك الغاء السطر الي يتأكد من أن المدخلات عبارة عن لينك لأي موقع علي النت
'If AssetsValidator.IsValidHttpOrNull(New Uri(current.UriString)) Then
list1.Add(current.UriString)
list2.Add(current.Index)
''End If
Next
End Sub
End Class
PHP كود :
فقط عليك الغاء السطر الي يتأكد من أن المدخلات عبارة عن لينك لأي موقع علي النت