نسخ محتوى ملف نص من متصفح

مالك2006 · يناير 22, 2023

يوجد لدي رابط متصفح مثال

www.website.com\text.txt

اريد نسخ محتوى text.txt في مربع نص موجود في نمودج

**Moosak** · يناير 22, 2023

17 دقائق مضت, مالك2006 said:

www.website.com\text.txt

أهلا بك أخي مالك في المنتدى .. 🙂

رابط الملف لايعمل .. !

ولكن ما يدور في ذهني الآن هو تحميل الملف بشكل مؤقت في الجهاز ، ثم فتح الملف ونسخ ما فيه إلى مربع النص في النموذج .. وبعدها حذف الملف المؤقت ..

كل ذلك عن طريق الأكواد ..

شريطة أن يكون الرابط للملف مباشر .. وليس من مواقع التحميل التي تلف بك وتدور لحد ما تعطيك رابط التحميل 🙂

وربما هناك طريقة أسهل لا أعلمها 🙂

مالك2006 · يناير 22, 2023

المطلوب
عند فتح نمودج تظهر قيمة في مربع نص

من رابط على نت

**Moosak** · يناير 22, 2023

59 دقائق مضت, مالك2006 said:

عند فتح نمودج تظهر قيمة في مربع نص

من رابط على نت

أخي مالك .. أعطنا مثال حي لما تريده بالضبط ... ( رابط حقيقي + النص الذي تريد نقله بالضبط )

تم تعديل يناير 22, 2023 بواسطه Moosak

مالك2006 · يناير 22, 2023

الموضوع لا يحتاج مثال

ما اريده

لدي نمودج يوجد فيه مربع نص

اريد عند فنحه يجلب لي قيمة من هاذ الملف text.txt من موقع ( www.website.com\text.txt )

اريدها ان تظهر في مربع النص الموجود في النمودج

**jjafferr** · يناير 22, 2023

السلام عليكم اخي مالك 🙂

انت صاحب السؤال ، فيجب عليك تزويدنا بما يساعدنا لخدمتك ، فسؤالك ليس من الاسئلة التقليدية اللي جوابها جاهز ونعطيك نسخة منها 🙂

جعفر

**Moosak** · يناير 22, 2023

ما دامك مصر أنه الموضوع ما يحتاج مثال .. 🙂

استخدم هذا الكود على زر أمر بحيث تغير رابط الملف النصي وتغير اسم مربع النص اللي بيلصق النص فيه :

Private Sub btnGetText_Click()
    ' Declare variables to hold the text from the online file and the textbox
    Dim strText As String
    Dim txtTarget As TextBox

    ' Set the URL of the online text file
    Dim strURL As String
    strURL = "http://www.website.com/text.txt"

    ' Use the XMLHTTP object to retrieve the text from the online file
    Dim objXMLHTTP As Object
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    objXMLHTTP.Open "GET", strURL, False
    objXMLHTTP.Send

    ' Check if the request was successful
    If objXMLHTTP.Status = 200 Then
        ' Get the text from the response
        strText = objXMLHTTP.responseText

        ' Get a reference to the textbox on the form
        Set txtTarget = Me.txtTextBox

        ' Put the text from the online file into the textbox
        txtTarget.Value = strText
    Else
        ' Show an error message if the request was not successful
        MsgBox "There was an error retrieving the text from the online file." & vbCrLf & _
               "HTTP Status: " & objXMLHTTP.Status, vbExclamation
    End If

    ' Clean up
    Set objXMLHTTP = Nothing
    Set txtTarget = Nothing
End Sub