تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اقوم بهذا بتنسيق
#1
كيف اقوم بتنسيق ملف نصي يحتوي على فراغات في بداية كل سطر على النحو المبين في الصورة ادناه

ملاحظة ------ الاسطر التي تحتوي على فراغ ليس بالضرورة ان تكون في بداية الملف 
            ------ الفراغ الذي قيمته ( 1 فراغ) الذي يفصل الاعمدة لا يتم تغييره ام الفراغ ( 1 فراغ)  في بداية السطر يتم تغيره كما هو موضح في الصورة
ارجو ان اكون قد طرحت اشكالي بالشكل الواضح كما ارجو ان اجد غندكم فكرة لحله


الرد
تم الشكر بواسطة:
#2
اخوي، ممكن الملف لجل نعمل عليه
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد
تم الشكر بواسطة:
#3
كود :
        Dim result As New StringBuilder("")
        Dim lines As New List(Of String) From { _
        "     52389734438 b94393438 b4398374b34 4387 34.3434", _
        " 52389734438 b94393438 b4398374b34 4387 34.3434", _
        "  52389734438 b94393438 b4398374b34 4387 34.3434", _
        "f999 52389734438 b94393438 b4398374b34 4387 34.3434", _
        "     52389734438 b94393438 b4398374b34 4387 34.3434"}
        For Each line In lines
            If line.Trim.Substring(0, 4).ToLower = "f999" Then
                result.AppendLine(line)
            Else
                result.AppendLine("0000 " & Trim(line))
            End If
        Next
        textbox1.text = result.ToString


مع تغيير  ما يناسبك  ، بالاضافة ان الطريقة التي بالاسطر التي بالاعلى تقرا الملف كامل تعدله تحفظه من جديد
اسم معرفي : محمد يحيى
الرد
تم الشكر بواسطة:
#4
هذا الكود حسب الشرح يطبق المطلوب على النص الموجود في المتغير sourceString وتكون النتيجة في المتغير resultString
PHP كود :
Dim resultString As String Regex.Replace(sourceString"^\s+?(?=[^\s])""0000 "RegexOptions.Multiline
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد
تم الشكر بواسطة: myalsailamy
#5
(18-11-16, 12:02 AM)السرور كتب : هذا الكود حسب الشرح يطبق المطلوب على النص الموجود في المتغير sourceString وتكون النتيجة في المتغير resultString
PHP كود :
Dim resultString As String Regex.Replace(sourceString"^\s+?(?=[^\s])""0000 "RegexOptions.Multiline

فكره ذكيه  منك استخدام  Regex  ، جميل جدا
اسم معرفي : محمد يحيى
الرد
تم الشكر بواسطة:
#6
شكرا لكما اخي [b]myalsailamy [/b]و اخي[b] السرور [/b]ساجرب حليكما وافيكم بالجديد


ما اريده ان احول الملف المسمى file الى الملف المسمى FINAL -------- الملفين بالمرفقات----------


الملفات المرفقة
.txt   file.txt (الحجم : 5.36 ك ب / التحميلات : 36)
.txt   FINAL.txt (الحجم : 5.38 ك ب / التحميلات : 32)
الرد
تم الشكر بواسطة:
#7
اشكرك اخي على كلماتك الطيبة، وما انا الا تلميذ لديكم، تحياتي الك
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد
تم الشكر بواسطة:
#8
لم ينجح معي الكود الذي زودتني به اخي [b]myalsailamy[/b]  لان الكود قام بادراج عمود جديد يحمل 0000 بينما انا اريد ادراج 0000 في نفس العمود الذي يحمل القيمة F252 لكي تصبح  الاعمدة بنفس البداية والنهاية اي الاعمدة تكون منسقة فوق بعضها البعض دون اي ازحات 

ام بالنسبة لكود الاخ السرور لم افهم كيفية العمل به على العموم شكرا لدعمكما كم اني انتظر المزيد من الاقترحات منكما ومن بقية الاعضاء 

كي لا اطيل لقد ارفقت ملفين في ردي السابق يلخصان المطلوب
الرد
تم الشكر بواسطة:
#9
ما تعرف تقرا ملف نصي؟
هل انت في بداية دراسة البرمجة؟

هذا الكود يقرا ملف نصي ويضعه في المتغير sourceString الذي اخبرتك به ثم يطبق عليه العملية والسطر الاخير يحفظ الناتج من المتغير resultStrint في ملف نصي اخر

لاحظت ان الملف الاول لم يبدا بمسافة يبدو انه خطا منك
PHP كود :
       Dim sourceString File.ReadAllText("file.txt")

 
       Dim resultString As String Regex.Replace(sourceString"^\s+""0000 "RegexOptions.Multiline)

 
       File.WriteAllText("FINAL.txt"resultString
مع تحسين الباترن السابق
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد
تم الشكر بواسطة:
#10
وهذا تعديل لو كان السطر لم يبدا بمسافة ولكن لم يبدا بحرف ايضا
PHP كود :
Dim resultString As String Regex.Replace(sourceString"^(\s+|(?=[^[a-aA-Z]))""0000 "RegexOptions.Multiline
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [سؤال] كيف اقوم بدمج ملفات التشغيل runtime الخاصة بال crystal report في التطبيق dell 1 47 15-09-18, 11:34 AM
آخر رد: elgokr
  [سؤال] كيف اقوم باضافة زر اختيار toggle switch button مصطفى محمود 14 347 22-08-18, 06:17 PM
آخر رد: elgokr
  طريقة عرض هذه المواضيع بهذا الشكل ابو روضة 22 661 01-08-18, 11:13 PM
آخر رد: GameOver
  [VB.NET] كيف اقوم بعمل المخطط البياني ياخذ الارباح الاسبوعية والشهرية والسنوية من قاعدة البي فراس الغزي 11 477 01-08-18, 02:42 AM
آخر رد: elgokr
  [سؤال] كيف اقوم بعمل فلتر DataGridView مرسل لها البيانات من فورم اخري dametucorazon 12 383 10-07-18, 06:03 PM
آخر رد: elgokr
  [سؤال] كيف اقوم باضافه صورة الي اكثر من حقل في sql في نفس الوقت dametucorazon 2 110 08-07-18, 06:54 AM
آخر رد: dametucorazon
  [سؤال] كيف اقوم بعمل فلتر لبيانات في LISTBOX تم تعبئة البيانات من خلال قاعدة البيانات dametucorazon 3 151 08-07-18, 03:05 AM
آخر رد: elgokr
  [سؤال] كيف اقوم بتحديث اخر سجل في قاعدة البيانات بشرط معين ؟ dametucorazon 3 136 18-06-18, 02:41 AM
آخر رد: elgokr
  اريد بعد ان اقوم بطباعة البيانات في PDF بعد ادخالها وحفظها وبتنسيق معين farah112233 16 612 10-06-18, 07:51 AM
آخر رد: عبدالله الدوسري
  [VB.NET] كيف اقوم بحل مشكلة الترميز بقاعدة البيانات عند استدعائها فى الفيجوال بيسك elgokr 9 447 12-05-18, 09:40 PM
آخر رد: elgokr

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


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