+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : files reader like txt (/showthread.php?tid=30408)
files reader like txt - Basil Abdallah - 20-07-19
مرحبا ,
هذا الشيفرة المصدرية (على ما اعتقد ) لصورة فتحتها بالنوت باد
المشكلة انو لو فتحنا الصورة ع النوت الباد العادية رح تكون ناقصة بايتات وبيانات مهمة لانو النوت باد هو متصفح للنصوص وليس للاكواد
بينما لو فتحنا نفس الصورة على النوت باد ++ رح يعطينا الشيفرة المصدرية كاملتاً
السؤال كيف نقدر نعمل قارئ مثل النوت باد ++ للملفات التنفيذية والصور ..الخ.؟
وشو اسم ذلك الكود الي بالصورة ؟
RE: files reader like txt - Basil Abdallah - 21-07-19
upppppppppppppppppppp
RE: files reader like txt - Eng.Ahmed Amen - 21-07-19
هذا ليس تعامل مع Text File
تعامل الملفات غير النصيه معاملة Byte Array
يجب استخدام > Binary Reader
PHP كود :
File.ReadAllBytes(fileName)
RE: files reader like txt - Basil Abdallah - 21-07-19
اها
بعد اذنك لو تكرمت بمثال لقراءة صورة مثلا
RE: files reader like txt - fouadhdfouad - 22-07-19
تفضل اخي هذا المثال
PHP كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync()
Control.CheckForIllegalCrossThreadCalls = False
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
TextBox1.Clear()
Try
Dim Mp3Binary = IO.File.ReadAllText("C:\Users\f\Pictures\9-482.png")
System.Text.Encoding.ASCII.GetBytes(Mp3Binary)
For i = 0 To Mp3Binary.Length - 1
TextBox1.AppendText(Mp3Binary(i))
Next
Catch ex As Exception
End Try
End Sub
End Class
RE: files reader like txt - Basil Abdallah - 22-07-19
كل الشكر صديقي ولكن اذا اردنا حفظ الملفات كيف يصبح الكود ؟