سؤال في قراءة كل حرف لوحدة

السلام عليكم

كتبت مثال يوضح الطريقة بس اظن ان فيه حل اسهل وان شاء الله يدلك الاخوة

Dim txt  As String, str As String

str = "ahmed"
For n = 1 To Len(str)

txt = Left(str, 1)
str = Right(str, Len(str) - 1)
MsgBox txt

Next n

او

Dim txt  As String, str As String

str = "ahmed"

For n = 1 To Len(str)
txt = Mid(str, n, 1)
MsgBox txt

Next n

أشكرك أخي الكريم FemTo على المشاركة الفعالة أنا خطرت لي هذة الطريقة ولكن كنت أبحث عن طرق أسهل ولكن على العموم مشكور وما قصرت معانا والله يجعله في ميزان حسناتك.

أخوك سعد

او باستخدام الدالة Mid اضفتها للمشاركة الاولى

أخي FemTo أنا فكرت في الطريقة وجدت أنها غير مجدية لأني إذا أردت تحويل مثلا قصة مكونة من 10 صفحات مالعمل؟؟؟

وما الغاية من استخرج حرف حرف من القصة ؟ مافكرتك اخى ممكن نجد حل اخر

أخي الكريم أنا أريد أن أعمل برنامج تشفير للنصوص لكن لتشفير النص يجب أن أقرأ كل حرف لوحدة هل فهمت أخي الكريم؟؟

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

ولماذا قراءة النص حرف حرف مدام راح تشفره

اقراءه BINNARY

اقتباس

أخي الكريم أنا أريد أن أعمل برنامج تشفير للنصوص لكن لتشفير النص يجب أن أقرأ كل حرف لوحدة هل فهمت أخي الكريم؟؟

أنا لدي هنا برنامج لتشفير الملفات بلغة سي++

كل ما في الأمر أنه يقرأ كل حرف و يحوله لرمز آخر

كل حرف يقابله رمز معين و طبعاً الرمز لا يتكرر

و في بداية الملف هناك كود معين مكون من 20 حرف عندما يراه البرنامج يعرف أن هذا الملف مشفر و عندما يزيل التشفير يحذف الكود

و هناك بعد الكود كلمة مرور و لكن قبل كلمة المرور يوجد حرف يعبر عن عدد حروف كلمة المرور و بعد إزالة التشفير يتم حذف هذا كله و عند التشفير يتم وضعه

Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True

Dim MyArray() As Byte
Dim L As Long

MyArray = StringToByteArray("Welcome")

For L = 0 To UBound(MyArray)
	Print Chr$(MyArray(L))
Next
End Sub

Private Function StringToByteArray(Text As String) As Byte()
	StringToByteArray = StrConv(Text, vbFromUnicode)
End Function

أخي الكريم ، أنا مش عارف إذا كانت مشاركتي هذه بفائدة لك أم لا ، ولكنني سأشارك ورزقي علي الله :

أنا ما فهمته من سؤالك بأن لديك ثلاثة كلمات في جمله معينة ، ترغب في تقسيمها الي ثلاثة نصوص ،

سأرفق لك مثال بدلاً من الشرح :

Dim strArray() As String

Dim X As Long

strArray = Split("Name,Sex,Salary,Bdate,Jdate)

For X = 0 To UBound(strArray,",")

MsgBox strArray(X)

Next

فالدالة Split تقوم بتقسيم النص علي أساس الحرف "," ، وإذا وجد هذا الحرف يقوم بتحويل

النص الي سطر ، وبعد ذلك يمكنم الإستفادة منها.

أتمني أن يكون مشاركتي فائدة لك.

وشكراً

شكرا لمشاركة الجميع في الموضوع وأخص بالشكر أخي msayed2004 لأنه أوجد الحل المناسب ولكن ياليت لو يشرح لي الكود أكون له من الشاكرين.

وشكرا....

StrConv دالة مرنة جدا و مع vbFromUnicode تقدر تحول نص ما الى مصفوفة من النوع Byte و العكس.

أخي الكريم msayed2004 الكود لا يدعم اللغة العربية هل تعرف السبب وهل لها حل؟؟

يدعمها عادى جدا ؟!

أنا لسه مجربه على جملة : منتدى الفريق العربى

عندى ملحوظة : أنا معرف L على أنها Long لا داعى للمجال ده كله مع الجمل البسيطة فلو أنت بتشتغل على جمل صغيرة خليه Integer

أخي الكريم msayed2004 المشكلة ما زالت قائمة لدي ولا أعرف لها حلا فهل لهذة المشكلة علاقة بـ(الإعدادات الإقليمية للغة الويندوز؟).

جرب تنزل دعم لكل حاجة ( أنا بنزل دعم لكل اللغات الممكنة و بنشط كل Code page conversion tables المتوفرة ) , و جرب كمان تحدث الـ VB بتاعك لـ VB6SP

أخي msayed2004 من أبن أستطيع تحديث الـ(VB6) إلى (VB6SP6)؟

شكرا اخي msayed2004 على الرابط وجعله في موازين حسناتك.

عندي رد ممكن يكون اسرع

For i = 1 To Len(Text1) 'a

Text2(i) = Mid(Text1, i, 1)'a

Next i

ملحوظه

'a لكي يستقيم الكود

Text2 هي مصفوفه textbox باسم text2