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

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

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))

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

بسيطة عليك بفصل العبارة كاملة عند العلامة "-" ووضع كل الاقسام الناتجة في الجدول وترتيبه حسب رغبتك واعادة جمعة و كل هذا بدوال جاهزة اصلا فلا داعي للقلق :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)

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

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

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

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

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

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

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

لقرائتهم

Imp.rar

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

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

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