allinfo

اين الردود الحلوة

حين اريد الكتابة في ملف مثلا bin FileOpen(2, saveFD.FileName, OpenMode.Binary) dim oo as Integer = 1 keyincell = "FFFF" For i = 1 To 2 keyincellok = keyincellok & Chr(Convert.ToInt16((Mid(keyincell, oo, 2),16))) oo = oo + 2 Next FilePut(2, keyincellok, t) النت…

الله يخليك تم حل المشكل تحية تقدير واحترام

!!!!!!!!!!!!!!!!!!!

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

وينكم يا اساتذة

وينكم يا اساتذة

ممكن ترفقلي vba6.dll المتوافق مع النسخة

الملف المضغوط لا يعمل

اخواني الاعزاء انا قرات من ملفbin جمله ولكن اكتشفت ان الاصفار اختفت عند قرائته مثال 0f33520eb05 تطلعلي f3352eb5 For j = i To i + 13 Get #1, j, list(j) se= se & hex(list(j)) Next