Printable View
سلام
ایام دهه مبارک فجر و پیروزی انقلاب رو تبریک میگم
خیلی خلاصه سعی میکنم که خواسته خودم رو توضیح بدم
برای اطلاع رسانی انتشار نسخه جدید برنامه قصد دارم در یک فایل متنی رو در روی وب قرار بدم که آخرین نسخه منتشر شده رو که یک عدد هست رو ذخیره کنه
حالا میخوام از طریق فایل اکسس محتوای این فایل رو بخونم و اگر نسخه موجود از نسخه منتشر شده پایین تر بود عملیات خاصی رو انجام بده.
اگر دوستان راه حلی دیگه ای سراغ دارن یا نمونه ای موجود هست، ممنون میشم کمکی کنن
در کل خوندن فایل از وب کار ساده ای هست و قبلا هم بحث مشابه داشتیم:
https://barnamenevis.org/showthread.p...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
اگر کدهای بررسی خطا رو کنار بگذارین میبینین که اصل کار چقدر ساده است:
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
ولی پیشنهاد نمیکنم
سلام دوستان
این دستورات فقط خط اول درج شده در یک فایل php رو میخونه
اگر بخواهیم خطوط بعدی رو هم بخوانیم چه باید کرد؟
سلام و روز خوشنقل قول:
نوشته شده توسط SB1398
فایل های php (و asp , aspx , ....) در سمت سرور پردازش میشن و نتیجه پردازش هست برای کلاینت فرستاده میشه و نه خود فایل.
شما مطلقا دسترسی مستقیم به این دست فایلها ندارین.