منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اكواد ملف تكست - نسخة قابلة للطباعة

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

الصفحات: 1 2


RE: اكواد ملف تكست - SaedAmer - 18-03-20

(18-03-20, 08:23 AM)سعود كتب :
لدي برنامج kaspersky  وقد منع تحميل الصور  لعلة في الموقع فلو احببت الرفع مرة اخرى في موقع https://postimages.org/
و اعتذر لاي ازعاج

محاولتي وهي بإجرائين:
تحميل كامل الملف وحذف الملف واستبداله بالمحتوى الجديد سواء تم التحديث ام لا.
PHP كود :
Public Class Form1
    Dim fn 
As String
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        If My
.Computer.FileSystem.ReadAllText(fnSystem.Text.Encoding.UTF8).Trim "" Then Exit Sub
        d
.Rows.Clear()
 
       For Each h As String In My.Computer.FileSystem.ReadAllText(fnSystem.Text.Encoding.UTF8).Split(vbNewLine)
 
           If h.Trim "" Then Exit For
 
           d.Rows.Add(h.Split("|")(0), h.Split("|")(1), h.Split("|")(2))
 
       Next
    End Sub
    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        IO
.File.Delete(fn)
 
       For Each row As DataGridViewRow In d.Rows
            If row
.IsNewRow Then Exit For
 
           My.Computer.FileSystem.WriteAllText(fnrow.Cells(0).Value "|" row.Cells(1).Value "|" row.Cells(2).Value vbNewLineTrueSystem.Text.Encoding.UTF8)
 
       Next
    End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        fn 
CurDir() & "\t.txt"
 
       If IO.File.Exists(fn) = False Then
            IO
.File.Create(fn).Close()
 
       End If
 
   End Sub
End 
Class 








RE: اكواد ملف تكست - SaedAmer - 18-03-20

(18-03-20, 06:16 PM)mhmad كتب : مشاركتى لم تفيدك؟ ام لم تراها! ام تنتظر الاجابه من شخص محدد؟

مشاركتك عبارة عن اضافة في الداتا جريد فيو وانا عاوز تعديل و حذف مش اضافة


RE: اكواد ملف تكست - SaedAmer - 19-03-20

اي مساعدة ؟


RE: اكواد ملف تكست - سعود - 19-03-20

(19-03-20, 07:06 PM)SaedAmer كتب : اي مساعدة ؟

اخي الكريم 
طلبك واضح من وجهة نظري واظن اني جاوبت على طلبك.
مشاركتك هذه #12 
لم افهم القصد منها!


RE: اكواد ملف تكست - SaedAmer - 19-03-20

(19-03-20, 08:23 PM)سعود كتب :
(19-03-20, 07:06 PM)SaedAmer كتب : اي مساعدة ؟

اخي الكريم 
طلبك واضح من وجهة نظري واظن اني جاوبت على طلبك.
مشاركتك هذه #12 
لم افهم القصد منها!

عندي في الملف اكتر من محتوى زي ما وضحت لك بالصور
انا عاوز مثلا احذف سطر معين من السطور دي
و اعدل سطر معين
دون حذف كل البيانات الي في الملف او حذف الملف نفسو


RE: اكواد ملف تكست - سعود - 19-03-20

الان لم يعد بوسعي الا ان اذكرك باستخدام الاداة HtmlAgilityPack 
#8