[asto]

كود :

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