تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار عن قراءة ملف نصي online
#1
السلام عليكم ورحمة الله

اريد اقراء ملف نصي من موقعي 

txt file 


الملف في اربع سطور

وفي القراءه يكونون كلهم في سطر واحد 

   

جربت هذا الكود

كود :
       Dim Lines() As String
       Dim stringSeparators() As String = {vbCrLf}
       Dim Source As String
       Dim wc As New WebClient

       Source = wc.DownloadString("http://www.test.net/test.txt")
       Lines = Source.Split(stringSeparators, StringSplitOptions.None)
       For Each s As String In Lines
           ListBox1.Items.Add(s)
       Next


وجربت هذا

كود :
       Dim address As String = "http://www.test.net/test.txt"
       Dim client As WebClient = New WebClient()
       Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
       TextBox1.Text = reader.ReadToEnd


حاولت ان اجعله يقراء سطر سطر نفس الي في الملف بس ما ضبط 

بارك الله فيكم وشكرا على المساعدة
الرد }}
تم الشكر بواسطة:
#2
ما هو رابط الملف النصي , او قم بارفاقه لطفاً.
الرد }}
تم الشكر بواسطة: dubai.eig
#3
(19-06-18, 02:32 PM)HASAN6.0 كتب : ما هو رابط الملف النصي , او قم بارفاقه لطفاً.

شكرا على الرد 

الملف مرفق 



محتوى الملف كمثال اخبار عن البرنامج 


.txt   test.txt (الحجم : 169 بايت / التحميلات : 25)

مثال عن الملف
الرد }}
تم الشكر بواسطة: dametucorazon
#4
تفضل اخى dubai.eig

طريق بطريقة بسيطة
كود :
Dim lines() As String = IO.File.ReadAllLines("D:\file.txt")
       For ii As Integer = 0 To lines.Length - 1
           TextBox1.Text += lines(ii) & IIf(ii < lines.Length - 1, vbCrLf, "")
       Next

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}
تم الشكر بواسطة: dubai.eig , YousefOkasha
#5
(19-06-18, 05:47 PM)elgokr كتب :
تفضل اخى dubai.eig

طريق بطريقة بسيطة
كود :
Dim lines() As String = IO.File.ReadAllLines("D:\file.txt")
       For ii As Integer = 0 To lines.Length - 1
           TextBox1.Text += lines(ii) & IIf(ii < lines.Length - 1, vbCrLf, "")
       Next

تحياتى لك
وتمنياتى لك التوفيق



تسلم استاذي الكريم

المشكله ان الملف في موقعي وليس في الجهاز
الرد }}
تم الشكر بواسطة:
#6
(19-06-18, 09:23 PM)dubai.eig كتب :
(19-06-18, 05:47 PM)elgokr كتب :
تفضل اخى dubai.eig

طريق بطريقة بسيطة
كود :
Dim lines() As String = IO.File.ReadAllLines("D:\file.txt")
       For ii As Integer = 0 To lines.Length - 1
           TextBox1.Text += lines(ii) & IIf(ii < lines.Length - 1, vbCrLf, "")
       Next

تحياتى لك
وتمنياتى لك التوفيق



تسلم استاذي الكريم

المشكله ان الملف في موقعي وليس في الجهاز

ضع الرابط بدال موقع الملف "D:\file.txt"
الرد }}
تم الشكر بواسطة: dubai.eig
#7
(19-06-18, 09:47 PM)حريف برمجة كتب :
(19-06-18, 09:23 PM)dubai.eig كتب :
(19-06-18, 05:47 PM)elgokr كتب :
تفضل اخى dubai.eig

طريق بطريقة بسيطة
كود :
Dim lines() As String = IO.File.ReadAllLines("D:\file.txt")
       For ii As Integer = 0 To lines.Length - 1
           TextBox1.Text += lines(ii) & IIf(ii < lines.Length - 1, vbCrLf, "")
       Next

تحياتى لك
وتمنياتى لك التوفيق



تسلم استاذي الكريم

المشكله ان الملف في موقعي وليس في الجهاز

ضع الرابط بدال موقع الملف "D:\file.txt"

نعم اخي جربت

طلع معاي
إقتباس : 'URI formats are not supported.'


كود :
       Dim lines() As String = IO.File.ReadAllLines("http://www.test.net/test.txt")
       For ii As Integer = 0 To Lines.Length - 1
           TextBox1.Text += Lines(ii) & IIf(ii < Lines.Length - 1, vbCrLf, "")
       Next
الرد }}
تم الشكر بواسطة: elgokr
#8
الرابط خطأ !
جرب تفتحه في المتصفح اولاً .
الرد }}
تم الشكر بواسطة:
#9
(19-06-18, 10:23 PM)حريف برمجة كتب : الرابط خطأ !
جرب تفتحه في المتصفح اولاً .

لا عزيزي الرابط صحيح بس في الرد  انا  حاط مثال فقط

http://bkqslmanager.com/test.txt
الرد }}
تم الشكر بواسطة:
#10
PHP كود :
Dim address As String "http://bkqslmanager.com/test.txt"
        
Dim client As WebClient = New WebClient()
        
Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
        
Dim x As New TextBox
        x
.Text reader.ReadToEnd
        Dim sb 
As New System.Text.StringBuilder
        
For Each lineOfText As String In x.Lines
            TextBox1
.Text &= lineOfText vbNewLine
        Next 
الرد }}
تم الشكر بواسطة: dubai.eig , dametucorazon , elgokr , elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم