اخواني الاعزاء انا قرات من ملفbin
جمله ولكن اكتشفت ان الاصفار اختفت عند قرائته
مثال
0f33520eb05
تطلعلي
f3352eb5
For j = i To i + 13 Get #1, j, list(j) se= se & hex(list(j)) Next
تم تعديل هذه المشاركة بواسطة allinfo في 13 يونيو 2007 في 01:53
مشكلة: الأصفار أختفت عند القراءة من ملف بإستخدام Get
مغلق
وينكم يا اساتذة
وينكم يا اساتذة
علي ما اعتقد الكود ناقص كتير يا ريت ترسلنا سورس كود المثال علشان نقدر نتوصل للمشكلة
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
Open file For Binary As #1 i = 11 ExisteCode = True While i < 2614 se = "" For j = i To i + 13 Get #1, j, List(j) se = se & Hex(List(j)) Next List1.AddItem se i = i + 56 Wend Close #1
تم تعديل هذه المشاركة بواسطة allinfo في 13 يونيو 2007 في 12:59
!!!!!!!!!!!!!!!!!!!
عزيزي المثال كاملاً حيث لازال هناك غموض بالكود
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
2 هكس = 1 بايت
جرب ..
dim a as string Open file For Binary As #1 i = 11 ExisteCode = True While i < 2614 se = "" For j = i To i + 13 Get #1, j, List(j) a = Hex(List(j)) if len(a) = 1 then se = se & "0" & a else se = se & a end if Next List1.AddItem se i = i + 56 Wend Close #1
تم تعديل هذه المشاركة بواسطة Pharaonic_Guy في 14 يونيو 2007 في 10:54
file
طالما رافض تحط سورس كود الفيل ده ايه
وده
Wend
ايه ده كمان
ExisteCode = True
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
Pharaonic_Guy كتب:2 هكس = 1 بايتجرب ..
dim a as string Open file For Binary As #1 i = 11 ExisteCode = True While i < 2614 se = "" For j = i To i + 13 Get #1, j, List(j) a = Hex(List(j)) if len(a) = 1 then se = se & "0" & a else se = se & a end if Next List1.AddItem se i = i + 56 Wend Close #1
الله يخليك تم حل المشكل
تحية تقدير واحترام
طيب مبروووووك يا عم
:lol: :lol: :lol:
سبحان الله وبحمده عدد خلقه ورضا نفسه وزنة عرشه ومداد كلماته
هذا الموضوع مغلق.