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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقسيم الاسم الكامل الى اجزاء في الداتا جريد فيو yosif 4 525 13-04-23, 11:15 PM
آخر رد: yosif
  تقسيم الرقم الى مجموعات حماده ممدوح البحيرى 1 506 22-11-22, 08:48 AM
آخر رد: asmarsou
  [سؤال] * [تم الحل] * المحاولة الثانية و اللتي باءت بالفشل حول تقسيم ملف بشكل دقيق سعود 8 1,031 27-08-22, 07:41 AM
آخر رد: سعود
  ماهي معادلة تقسيم شيء ما سعود 16 1,475 26-08-22, 06:31 AM
آخر رد: سعود
  هل فيجوال بيسك يدعم تقسيم الملف؟ سعود 8 1,312 07-08-22, 05:38 AM
آخر رد: سعود
  تقسيم مدة تاريخ (10 سنوات، 5 سنوات ...) b4getws 2 1,007 26-07-21, 03:55 AM
آخر رد: b4getws
  تقسيم الأعمدة فى فيجوال بيسك سؤال jemyx 0 801 11-02-21, 10:22 PM
آخر رد: jemyx
  [Acces2007] اريد تقسيم بيانات عمود الى عدة اعمدة ويوجد مثال مصور sasay202 2 1,326 01-09-20, 10:22 PM
آخر رد: ابراهيم ايبو
  [VB.NET] طريقة تقسيم نص الي عدة نصوص Codack 2 1,596 07-04-20, 09:14 PM
آخر رد: Codack
  ممكن كود تقسيم النص على حقلين على سبيل المثال محمد شريف sherf 0 1,008 15-11-19, 04:28 AM
آخر رد: sherf

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


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