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

[مالك2006]

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

www.website.com\text.txt

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

[Moosak]

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

www.website.com\text.txt

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

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

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

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

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

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

[مالك2006]

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

من  رابط على نت

[Moosak]

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

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

من  رابط على نت

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

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

[مالك2006]

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

ما اريده 

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

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

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

[jjafferr]

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

 

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

 

جعفر

[Moosak]

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

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

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

 

[Moosak]

على فكرة قمت بتجربة الكود وعمل معي بنجاح 🙂 

أولا : أحضرت رابط لنموذج ملف txt  من هذا الموقع  والذي يوفر لك نماذج Samples جاهزة للتحميل بروابط مباشرة لكل أنواع الملفات : https://filesamples.com

وهذا كان رابط الملف النصي : https://filesamples.com/samples/document/txt/sample2.txt

وعملت نموذج بسيط للتجربة وهذه هي النتيجة : 🙂 

 

Read Online Txt File.accdb

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