تقييم الموضوع :
  • 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
اخي استفد من الاكواد بتعديلها بما يحقق مطلبك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة غربية عندما اقوم بالطباعة تطلع معي فاتورة الكاشير صغيرة جدا moh61 3 357 28-10-23, 06:57 PM
آخر رد: moh61
  [VB.NET] كيف اقوم بمنع المستخدم من استخدام الكيبورد وخصوصا مفتاح Print screen Ameenh 0 235 07-10-23, 10:45 PM
آخر رد: Ameenh
  مشكلة عجيبة و غريبة ! عندما اقوم بطباعة فاتورة من Reportveiwer ينطبع التاريخ هجري moh61 2 327 09-09-23, 11:15 AM
آخر رد: alfaiz678
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  كيف اقوم بالضغط على ذر الويندوز بالكيبورد هل من حل moh61 0 217 01-08-23, 09:45 PM
آخر رد: moh61
  كيف اقوم بقفل الملف الذي يستخدمه احد المستخدمين ابو محمد محمد محمد 8 645 21-04-23, 05:58 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] كيف اقوم بسحب معلومات من صفحة ويكيبديا zxz5432 12 7,121 20-01-23, 01:27 AM
آخر رد: lysalh65@gmail.com
  [سؤال] محتاج بعد انهاء المشروع اقوم بتحويله لملف تنفيذي يصعب الوصول للكود والفورم mony.tornado 6 642 08-12-22, 09:22 AM
آخر رد: مصمم هاوي
  عندما اقوم بتعبئة كومبو بوكس ياخذ الكثير من الوقت .. فمالحل mohamedgadain61 4 577 08-10-22, 08:27 PM
آخر رد: Taha Okla
  كيف اقوم بتحميل اسم معين في الكومبوبوكس Emam emam 9 1,482 12-03-22, 02:54 AM
آخر رد: مصمم هاوي

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


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