تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن مساعدة تتعلق بالمصفوفات
#1
السلام عليكم
ممكن مساعدة بالفيجوال بيسك
قراءة نص من ملف ثم تحويل الملف النصي إلى مصفوفة من الرموز ِASCII حيث يمثل كل حرف في النص بما يقابله
من ASCII Code وتكون المصفوفة الناتجة من هذه العملية ذات بعد واحد ، يتم تحويلها الى مصفوفة ذات بعدين

ارجو المساعده وشكررررررررررراً
الرد }}}
تم الشكر بواسطة:
#2
كود :
حتي  تتمكن من إجراء حفظ لقيمة معينة موجودة بملف البيانات مثل برنامج 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
اما التحويل لبعدين لم افهمه لكن عليك اولا النقل الى لست
الرد }}}
تم الشكر بواسطة:



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


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