منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

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

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

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

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

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

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

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

شكرا على الرد

الملف مرفق

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

[attachment=18574]

مثال عن الملف

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

تحياتى لك

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

(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

تحياتى لك

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

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

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

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

(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

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

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

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

http://bkqslmanager.com/test.txt

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 

الصفحات : 1 2