ایجاد سیستم اعلان بروز رسانی برنامه

[Mehr@ban]

سلام
ایام دهه مبارک فجر و پیروزی انقلاب رو تبریک میگم

خیلی خلاصه سعی میکنم که خواسته خودم رو توضیح بدم
برای اطلاع رسانی انتشار نسخه جدید برنامه قصد دارم در یک فایل متنی رو در روی وب قرار بدم که آخرین نسخه منتشر شده رو که یک عدد هست رو ذخیره کنه

حالا میخوام از طریق فایل اکسس محتوای این فایل رو بخونم و اگر نسخه موجود از نسخه منتشر شده پایین تر بود عملیات خاصی رو انجام بده.


اگر دوستان راه حلی دیگه ای سراغ دارن یا نمونه ای موجود هست، ممنون میشم کمکی کنن

[mazoolagh]

در کل خوندن فایل از وب کار ساده ای هست و قبلا هم بحث مشابه داشتیم:

http://barnamenevis.org/showthread.php?524097-وب-سرويس&highlight=%D8%AA%D8%A7%D9%85%DB%8C%D9%86+%D8%A7%D8 %AC%D8%AA%D9%85%D8%A7%D8%B9%DB%8C

تاپیک بالا برای کسانی که میخوان بهتر با XMLHTTPREQUEST آشنا بشن و بخصوص اگر پاسخ (یا فایل) به فرمت XML هست و نیاز به تفسیر و استخراج مقادیر داره خوبه.

اما خواسته شما ساده تر محسوب میشه:
Option Compare Database
Option Explicit

Public Type Response
FILE_CONTENT As String
ERROR_MESSAGE As String
End Type

Public Function Read_File(File_Url As String) As Response
On Error GoTo Error_Handler
Dim REQ As Object ' XMLHttpRequest
Set REQ = CreateObject("MSXML2.XMLHTTP")
REQ.Open "GET", File_Url, False
REQ.Send
If REQ.status = 200 Then ' STATUS CODE 200 = OK
Read_File.FILE_CONTENT = REQ.responseText
Else
Read_File.FILE_CONTENT = ""
Read_File.ERROR_MESSAGE = " XMLHttpRequest Error = " & REQ.status & vbCrLf & REQ.statusText
End If
Set REQ = Nothing
Exit Function
Error_Handler:
Read_File.FILE_CONTENT = ""
Read_File.ERROR_MESSAGE = "Access Error=" & Err.Number & vbCrLf & Err.Description
Set REQ = Nothing
End Function


نمونه نحوه استفاده از تابع :
147649

[mazoolagh]

اگر کدهای بررسی خطا رو کنار بگذارین میبینین که اصل کار چقدر ساده است:

Public Function Read_File(File_Url As String) As String
Dim REQ As Object ' XMLHttpRequest
Set REQ = CreateObject("MSXML2.XMLHTTP")
REQ.Open "GET", File_Url, False
REQ.Send
If REQ.status = 200 Then ' STATUS CODE 200 = OK
Read_File = REQ.responseText
Else
Read_File = "-- ERROR --"
End If
Set REQ = Nothing
End Function


ولی پیشنهاد نمیکنم

[SB1398]

سلام دوستان
این دستورات فقط خط اول درج شده در یک فایل php رو میخونه
اگر بخواهیم خطوط بعدی رو هم بخوانیم چه باید کرد؟

[mazoolagh]

سلام دوستان
این دستورات فقط خط اول درج شده در یک فایل php رو میخونه
اگر بخواهیم خطوط بعدی رو هم بخوانیم چه باید کرد؟

سلام و روز خوش
فایل های php (و asp , aspx , ....) در سمت سرور پردازش میشن و نتیجه پردازش هست برای کلاینت فرستاده میشه و نه خود فایل.
شما مطلقا دسترسی مستقیم به این دست فایلها ندارین.