+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة منطقية اكثر من برمجية ارجوا المساعدة (/showthread.php?tid=1372)
مشكلة منطقية اكثر من برمجية ارجوا المساعدة - Mr.ILI - 28-12-13
السلام عليكم اخوتي :
عندي مشكلة منطقية وهي عندي برنامج يقوم بقراءة ملف باسم معين مثلا ليكن : Readme.txt
ويقوم بقراءة الملف سطر سطر ... ولحد الآن الامر ماشي تمام ... وعند قراءته الاسطر اذا وجدا مثلا كلمة Vb4arab.com يقوم بفتح الموقع على الانترنت ... والامر ايضا ماشي تمام ... لكن المشكلة هي اني لم اجد فكرة لكي يقوم بفتح الموع مرة واحدة وليس كل مرة ... مع العلم ان الكود السابق الخاص بالقراءة موضوع في Timer ... هل من حل ؟
RE: مشكلة منطقية اكثر من برمجية ارجوا المساعدة - Aly El-Haddad - 28-12-13
PHP كود :
Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim txtFilePath As String = desktopPath & "\Readme.txt"
Dim wantedSites As New List(Of String)({"www.vb4arb.com", "www.stackoverflow.com"})
Dim visitedSites As New List(Of String)
Dim lines As String() = IO.File.ReadAllLines(txtFilePath)
For x As Integer = 0 To lines.Length - 1
For xx As Integer = 0 To wantedSites.Count - 1
If lines(x).Contains(wantedSites(xx)) Then
If Not visitedSites.Contains(wantedSites(xx)) Then
Process.Start(wantedSites(xx))
visitedSites.Add(wantedSites(xx))
End If
End If
Next
Next