تقييم الموضوع :
  • 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
اما التحويل لبعدين لم افهمه لكن عليك اولا النقل الى لست
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في فورمات المبالع للفلكسي قريد khezzani 2 0 06-02-18, 08:05 AM
آخر رد: sendbad100
  [سؤال] طلب مساعدة بسيطة اي سفن 6 1 29-01-18, 12:41 PM
آخر رد: اي سفن
Heart [سؤال] مساعدة : أريد كود excel 2003 من إخواني مشكورين ؟؟؟؟؟؟ abdouhai 3 0 29-01-18, 03:33 AM
آخر رد: عبدالله الدوسري
  مساعدة ضروري saharramadan 1 33 16-01-18, 10:21 PM
آخر رد: Amir_alzubidy
  مساعدة اريد ظهور جميع البيانات في القريد فلكسي khezzani 6 110 12-01-18, 08:06 PM
آخر رد: khezzani
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 131 26-11-17, 12:02 PM
آخر رد: الاصيله
  [سؤال] مساعدة لوتكرمتم في صنع برنامج تخفيضات Visual Basic 8 125 17-11-17, 12:00 AM
آخر رد: Visual Basic
  مساعدة في البحث والجمع sulimanalahdl 4 133 10-11-17, 02:17 AM
آخر رد: sulimanalahdl
  [vb6.0] هل ممكن تعديل البيانات فى الفليكس جريد؟ ahmed_egypt 2 120 21-10-17, 03:35 AM
آخر رد: sendbad100
  مساعدة في حل رسالة خطأ تظهر لي Error 5000 loayrefai 3 128 15-10-17, 01:50 AM
آخر رد: Amir_alzubidy

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


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