الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اغير مواقع نص

بدأه aftfm في 30 أكتوبر 2010 · 4 رد · 518 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني لدي ملف نصي باسم

2010-10-30-MMD-12345-1200-C

هذا الملف قمت باستيراده من المجلد عن طريق البرنامج الى ListBox

وهو بنفس الاسم

واريد طباعته أي الاسم في ملف نصي آخر بشرط تغيير مواقع عناصرة

مثلاً

C-12345-2010-10-30-1200-MMD

وحفظه في ملف نصي آخربهذا الترتيب

#2

اخواني هذه دالة قد تفيد في الموضوع

Dim str1 As String = "CopyTo() sample"

Dim chrs(5) As Char str1.CopyTo(0, chrs, 0, 6)

MsgBox(chrs(0) + chrs(1) + chrs(2) + chrs(3) + chrs(4) + chrs(5))

لكن فيها خطأ مش عارف فين

#3

بسيطة عليك بفصل العبارة كاملة عند العلامة "-" ووضع كل الاقسام الناتجة في الجدول وترتيبه حسب رغبتك واعادة جمعة و كل هذا بدوال جاهزة اصلا فلا داعي للقلق :unsure:

Dim a As String
Dim word() As String

a = "2010-10-30-MMD-12345-1200-C"
word=a.Split("-")
بعدها اعد ترتيب الجدول هنا
وبعدها اعد جمع العبارة بهذا الكود 
Dim s As String
s=String.Join("-",word)
#4

اخي الكريم هذا مثال اريد التعديل علية عبارة عن قراءة ملفات من مجدل زر القراء/ تقوم بتحديد المجلد ثم موافق

تظهر ملفات المجلد التي هي في مثالنا هذا pdf

ثم زر استيراد البيانات

المطلوب في هذا الزر

تغيير مواقع اسم الملفات اي ملف يظهر في Listbox1

يتم تغيير مواقع اسمة

الملف المرفق به مثال وعدد 2 ملفات pdf

لقرائتهم

Imp.rar

#5

اضف العبارة التالية

Dim a As Object = ListBox1.Items(1)
        a.ToString()

بعدها بنفس الطريقة اقسم العبارة واختر الجزء الذي بدون .pdf وطبق عليه ماذكرت من قبل ايضا

مواضيع مشابهة