+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] تقسيم ملف نصي (/showthread.php?tid=18015)
تقسيم ملف نصي - rabeh.ram - 14-11-16
هل من الممكن تقسيم محتوى ملف نصي الى عدة ملفات جزئية حيث يتم تحديد محتوى كل نص من خلال ملف نصي اخر يبين عدد الاسطر لكل ملف جزئي
كما هو موضح في الصورة
RE: تقسيم ملف نصي - mhmd_911 - 14-11-16
تفضل
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim splitref() As String = IO.File.ReadAllLines("مرجع التقسيم.txt")
Dim globallines() As String = IO.File.ReadAllLines("global.txt")
Dim pos As Integer = 0
For Each s As String In splitref
Dim t As New System.Text.StringBuilder
Dim filename As String = Split(s, "=")(0) & ".txt"
Dim count As Integer = Val(Split(s, "=")(1))
For j = 0 To count - 1
t.AppendLine(globallines(pos + j))
Next
pos += count
IO.File.WriteAllText(filename, t.ToString)
Next
End Sub
RE: تقسيم ملف نصي - mhmd_911 - 15-11-16
شيء محبط أن لا يعلق الكاتب على الموضوع وقت مشاهدته للحل.
أشكر الأستاذ أبو ليلي على محاولته تشجيع الاعضاء.
وداعاً.
RE: تقسيم ملف نصي - rabeh.ram - 16-11-16
(15-11-16, 01:59 AM)mhmd_911 كتب : شيء محبط أن لا يعلق الكاتب على الموضوع وقت مشاهدته للحل.
أشكر الأستاذ أبو ليلي على محاولته تشجيع الاعضاء.
وداعاً.
اسف اخي mhmd_911 كنت اعتقد اني علقت على جوابك على العموم كان حلك فعال و في صميم السؤال جزاك الله عنا الف خير