منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] استفسار عن قراءة ملف نصي online - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار عن قراءة ملف نصي online (/showthread.php?tid=25441)

الصفحات: 1 2

استفسار عن قراءة ملف نصي online - dubai.eig - 19-06-18

السلام عليكم ورحمة الله

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

txt file 


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

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

[attachment=18572]

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

كود :
       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


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

بارك الله فيكم وشكرا على المساعدة

RE: استفسار عن قراءة ملف نصي online - HASAN6.0 - 19-06-18

ما هو رابط الملف النصي , او قم بارفاقه لطفاً.

RE: استفسار عن قراءة ملف نصي online - dubai.eig - 19-06-18

(19-06-18, 02:32 PM)HASAN6.0 كتب : ما هو رابط الملف النصي , او قم بارفاقه لطفاً.

شكرا على الرد 

الملف مرفق 



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

[attachment=18574]

مثال عن الملف

RE: استفسار عن قراءة ملف نصي online - elgokr - 19-06-18

تفضل اخى 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

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


RE: استفسار عن قراءة ملف نصي online - dubai.eig - 19-06-18

(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

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



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

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

RE: استفسار عن قراءة ملف نصي online - حريف برمجة - 19-06-18

(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"

RE: استفسار عن قراءة ملف نصي online - dubai.eig - 19-06-18

(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


RE: استفسار عن قراءة ملف نصي online - حريف برمجة - 19-06-18

الرابط خطأ !
جرب تفتحه في المتصفح اولاً .

RE: استفسار عن قراءة ملف نصي online - dubai.eig - 19-06-18

(19-06-18, 10:23 PM)حريف برمجة كتب : الرابط خطأ !
جرب تفتحه في المتصفح اولاً .

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

http://bkqslmanager.com/test.txt

RE: استفسار عن قراءة ملف نصي online - HASAN6.0 - 20-06-18

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