تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تقسيم نص
#1
بسم الله الرحمن الرحيم

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

اخواني انا عندي ملف تنفيذي قرأت البايتات الخاصة عن طريق الكود التالي

كود :
Dim Data() As Byte = IO.File.ReadAllBytes("C:\App.exe")

ثم حولت البايتات الي Base64String وحفظتها في أداة RichTextBox عن طريق الكود التالي

كود :
RichTxtCode.Text = Convert.ToBase64String(Data)

لحد هنا كل شئ تمام

طلبي :

عندي 6 متغيرات من نوع String متغير A,B,C,D,E,F

أريد تقسيم النص الموجود في أداة RichTextBox الي 6 اقسام علي حسب عدد المتغيرات

واضافة النصوص الي المتغيرات بالترتيب بحيث لما احاول ارجعهم مرة أخري الي مصفوفة Byte يتم استرجاعهم بالكود التالي

كود :
Dim DData() As Byte = Convert.FromBase64String(A & B & C & D & E & F)

أرجوا ان يكون طلبي واضح!

وشكراَ
الرد }}}}
تم الشكر بواسطة:
#2
ما الغرض من ذلك ؟

اقصد ليش ماتستعمل RichTextBox1.Text مباشرة ؟

PHP كود :
Dim DData() As Byte Convert.FromBase64String(RichTextBox1.Text
الرد }}}}
تم الشكر بواسطة:
#3
اولا شكرا لردك أخي

لكني سأفوم بكتابه النصوص التي في المتغيرات في برنامج أخر بمعني ان عندي مشروع Client و Server

سأقوم بكتابه المتغيرات في الServer عن طريق Source الServer ثم عمل Compile للسيرفر
الرد }}}}
تم الشكر بواسطة:
#4
(25-04-14, 12:49 AM)Dr.Virus كتب : ...عندي ملف تنفيذي قرأت البايتات الخاصة عن طريق الكود التالي
كود :
Dim Data() As Byte = IO.File.ReadAllBytes("C:\App.exe")
ثم حولت البايتات الي Base64String وحفظتها في أداة RichTextBox عن طريق الكود التالي
كود :
RichTxtCode.Text = Convert.ToBase64String(Data)
لحد هنا كل شئ تمام

طلبي :
عندي 6 متغيرات من نوع String متغير A,B,C,D,E,F
أريد تقسيم النص الموجود في أداة RichTextBox الي 6 اقسام علي حسب عدد المتغيرات
واضافة النصوص الي المتغيرات بالترتيب بحيث لما احاول ارجعهم مرة أخري الي مصفوفة Byte يتم استرجاعهم بالكود التالي
كود :
Dim DData() As Byte = Convert.FromBase64String(A & B & C & D & E & F)
...

هذا مثال سريع
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Data() As Byte = IO.File.ReadAllBytes("c:\Windows\system32\calc.exe") 'قراءة الملف
    Dim s As String = Convert.ToBase64String(Data) ' تحويل البايتات لنص مشفر

    Dim p As Integer = (s.Length / 6) ' حجم كل جزء

    Dim _A As String = s.Substring((p * 0), p)
    Dim _B As String = s.Substring((p * 1), p)
    Dim _C As String = s.Substring((p * 2), p)
    Dim _D As String = s.Substring((p * 3), p)
    Dim _E As String = s.Substring((p * 4), p)
    Dim _F As String = s.Substring((p * 5))

    RichTxtCode.Text = s

    Dim z As String = _A & _B & _C & _D & _E & _F ' تجميع الأجزاء

    Dim DData() As Byte = Convert.FromBase64String(z) ' تحويل النص المشفر لبايتات
    IO.File.WriteAllBytes("c.exe", DData) ' حفظ الملف

End Sub
الرد }}}}
تم الشكر بواسطة: Dr.Virus
#5
(25-04-14, 02:17 AM)vbnet كتب : هذا مثال سريع
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Data() As Byte = IO.File.ReadAllBytes("c:\Windows\system32\calc.exe") 'قراءة الملف
    Dim s As String = Convert.ToBase64String(Data) ' تحويل البايتات لنص مشفر

    Dim p As Integer = (s.Length / 6) ' حجم كل جزء

    Dim _A As String = s.Substring((p * 0), p)
    Dim _B As String = s.Substring((p * 1), p)
    Dim _C As String = s.Substring((p * 2), p)
    Dim _D As String = s.Substring((p * 3), p)
    Dim _E As String = s.Substring((p * 4), p)
    Dim _F As String = s.Substring((p * 5))

    RichTxtCode.Text = s

    Dim z As String = _A & _B & _C & _D & _E & _F ' تجميع الأجزاء

    Dim DData() As Byte = Convert.FromBase64String(z) ' تحويل النص المشفر لبايتات
    IO.File.WriteAllBytes("c.exe", DData) ' حفظ الملف

End Sub

مشكور حبيبي علي ردك إن شاء الله أجرب وأرد عليك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم الطلاب الي مجموعات atefkhalf2004 2 101 16-09-17, 09:06 PM
آخر رد: أبو نوره
  تقسيم الحروف و اظهارهن في مسج بزك على التوالي Basil Abdallah 4 245 01-03-17, 12:30 PM
آخر رد: Basil Abdallah
  تقسيم مصفوفة الى قسمين bidaya 19 785 25-01-17, 09:13 PM
آخر رد: silverlight
  تقسيم ip داخل textbox Incubus 2 332 10-12-16, 11:30 PM
آخر رد: Incubus
  تقسيم text الى عدة listbox rabeh.ram 4 467 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  [VB.NET] تقسيم ملف نصي rabeh.ram 3 422 16-11-16, 02:02 AM
آخر رد: rabeh.ram
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 446 13-10-16, 04:40 AM
آخر رد: abid
  تقسيم ال textbox حسب محتوى hano 2 404 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  كيف الى تقسيم الملف الى اثنين او ثلاث سعود 12 712 12-07-16, 12:40 PM
آخر رد: الوادي
  [VB.NET] تقسيم النص ادخل و ستفهم ileyslyes 4 495 12-06-16, 11:52 PM
آخر رد: mohamed haroon

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


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