Function Loadhekmah() As String
Dim StrHekmah As String = String.Empty
'===================
'Dim lines() = My.Resources.textfile.Split(vbNewLine)
Dim lines() = IO.File.ReadAllText(My.Application.Info.DirectoryPath & "\textfile.xml").Split(vbNewLine)
'====================
If My.Settings.TodayDate.ToString("yyyy-MM-dd") = Date.Now.ToString("yyyy-MM-dd") Then
If My.Settings.HekmaID > lines.Count - 1 Then
My.Settings.HekmaID = 0
My.Settings.Save()
End If
'ضع كود عرض حكمة اليوم'
Dim hekma = lines(My.Settings.HekmaID)
StrHekmah = hekma
Return StrHekmah.Trim
ElseIf My.Settings.TodayDate <> Date.Now.ToString("yyyy-MM-dd") Then
'ضع كود عرض حكمة اليوم +1'
My.Settings.HekmaID = My.Settings.HekmaID + 1
If My.Settings.HekmaID > lines.Count - 1 Then
My.Settings.HekmaID = 0
My.Settings.Save()
End If
My.Settings.TodayDate = Date.Now.ToString("yyyy-MM-dd")
My.Settings.Save()
Dim hekma = lines(My.Settings.HekmaID)
StrHekmah = hekma
Return StrHekmah.Trim
End If
Return StrHekmah.Trim
End Function