منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم
ممكن مساعدة بالفيجوال بيسك
قراءة نص من ملف ثم تحويل الملف النصي إلى مصفوفة من الرموز ِASCII حيث يمثل كل حرف في النص بما يقابله
من ASCII Code وتكون المصفوفة الناتجة من هذه العملية ذات بعد واحد ، يتم تحويلها الى مصفوفة ذات بعدين

ارجو المساعده وشكررررررررررراً

كود :

حتي  تتمكن من إجراء حفظ لقيمة معينة موجودة بملف البيانات مثل برنامج Notepad الشهير يمكنك كما يلي :

 Open "C:\Data.txt" For Output As #1

Print#1,Text1.Text

Close#1

وفي حالة الرغبة في قراءة ما هو موجود بملف البيانات إلي مربع النص كما يلي :

 Open "C:\Data.txt" For Input As #1

Text1.Text = Input(LOF(1),1)

Close#1

و هذا مثال عن تقسيم كلمة الى رموز اسكي تحتاج ال 2 تكست و 1 كوماند

Private Sub Command1_Click()

d = 0

ReDim f(5)

charlen% = Len(Text1.Text)

For i% = 1 To charlen%

d = d + 1

Letters$ = Mid(Text1.Text, i%, 1)

Encrypt$ = Encrypt$ & Asc(Letters$) + 1

f(d)=Asc(Letters$) + 1

Next i

Text2.Text = Encrypt$

endsub

اما التحويل لبعدين لم افهمه لكن عليك اولا النقل الى لست

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

شمس الغروب

asto