Rread from txt file

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

يمكنك الإستعانة بالكود التالي :

dim tmp as string
dim arr() as long
dim i as long
i = 1
open "c:\1.txt" for input as #1
while not eof(1) do
input #1,tmp
arr(i) = val(tmp)
i = i +1
loop

ثم يمكنك تحويل المصفوفة الأحادية إلى مصفوفة ثنائية

هذا والله أعلم

شكرا اخي الكريم على هذا الرد

اقتباس

أتوقع أن يغلق الموضوع لأنك لم تستخدم عملية البحث

هذا والله أعلم

انا استخدمت محرك البحث

وحصلت على هذا الكود

n = FreeFile 
Open FileName For Input As #n 
Text1 = Input$(LOF(n), n) 
Close #n 

او 
n = FreeFile 
Open FileName For Input As #n 
Do While Not EOF(n) 
Line Input #n, Linen 
Text1 = Text1 & vbNewLine & Linen 
Loop 
Close #n

بس كنت اريد اتأكد من ان القراءة تكون رقم رقم مش سطر سطر

وبالنسبة لسؤالي الثاني هل الرقم الموجود في الفايل على هيئة long اقدر اخذه كما هو؟؟؟

وشكرا جزيلا

يمكنك بالطبع استخدام طريقة الملفات العشوائية او الملفات التتابعية

يمكنك الرجوع لشرح الاخت بنت اليمن

/index.ph...=125240&hl=

شكراً أخي

شكرا لكم جميعا

وشكر خاص ل kindy_ibrahim

والشكر الجزيل للاخت بنت اليمن على الشرح المفيد

شكرا مرة ثانية