تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم text الى عدة listbox rabeh.ram 4 98 22-11-16, 12:06 AM
آخر رد: rabeh.ram
  [VB.NET] تقسيم ملف نصي rabeh.ram 3 141 16-11-16, 02:02 AM
آخر رد: rabeh.ram
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 123 13-10-16, 04:40 AM
آخر رد: abid
  تقسيم ال textbox حسب محتوى hano 2 89 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  كيف الى تقسيم الملف الى اثنين او ثلاث سعود 12 327 12-07-16, 12:40 PM
آخر رد: الوادي
  [VB.NET] تقسيم النص ادخل و ستفهم ileyslyes 4 184 12-06-16, 11:52 PM
آخر رد: mohamed haroon
  [سؤال] كيفية تقسيم الجردفيو بالطريقة دى alims 3 206 31-03-16, 03:58 PM
آخر رد: محمد كريّم
  مساعدة كود تقسيم ملف الى فقرات تبدأ بكلمة محددة samira2013 1 131 30-03-16, 09:43 AM
آخر رد: silverlight
  [سؤال] تقسيم جزء من اسطر متعددة. gator 7 520 22-10-15, 02:28 PM
آخر رد: gator
  تقسيم سطر استرينج (نص) العالمي 3 347 26-06-15, 04:38 AM
آخر رد: العالمي

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


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