المشاركات : 6
المواضيع 2
الإنتساب : Oct 2012
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
بسم الله الرحمن الرحيم
اريد كود يعرض مايحتويه ملف txt الي هو (notepad) في text محدد
يعني مثلا انا عملت notepad وحفظتها باسم am.txt
اريد البرنامج يعرض مايحتويه am.txt في label او textbox :confused:
المشاركات : 32
المواضيع 2
الإنتساب : Nov 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
TextBox1.Text = My.Computer.FileSystem.ReadAllText("c:\1.txt")
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
ضع كود الدالة التالية في Module لاستخدامها في أكثر من Form واحدة (إذا كنت ستستعملها في Form واحدة فقط فيمكنك وضعها في بداية كود الـ Form و جعلها Private بدل Public):
كود :
Public Function OpenTextFile(ByVal AFilePath As String) As String
Dim Result As String
Dim FNum As Integer
On Error GoTo OpenTextFile_Err
Result = ""
FNum = FreeFile
Open AFilePath For Input As #FNum
Result = Input(LOF(FNum), #FNum)
Close #FNum
OpenTextFile = Result
Exit Function
OpenTextFile_Err:
MsgBox "خطأ عند محاولة فتح الملف:" & vbCrLf & Err.Description, vbCritical, "OpenTextFile"
End Function
و لاستعمالها قم باستدعائها. مثلاً لدينا مربع نص Text1 (مع الخاصية MultiLine مضبوطة على True) و زر أمر. الكود التالي يعمل على فتح الملف المحدد بالمسار C:\Setup.log عند النقر على الزر:
كود :
Private Sub Command1_Click()
Text1.Text = OpenTextFile("C:\Setup.log")
End Sub
* طبعاً عند استدعاء الدالة سترسل لها مسار الملف الذي تريده. إذا كنت تصنع برنامج مثل المفكرة (NotePad) فبالتأكيد ستستعمل المكون CommonDialog لتسمح للمستخدم باحتيار الملف الذي يريد فتحه، و بعد الحصول على مسار الملف (باستخدام الـ CommonDialog أو غيره) ترسله إلى الدالة لفتحه و الحصول على محتوياته النصية و عرضها في مربع النص.
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 32
المواضيع 2
الإنتساب : Nov 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
بعد اذن الاستاذ الكبير ناجي ابراهيم
كود اخر يقوم بالمهمه
Private Sub Command1_Click()
Dim FileName As String
Dim f As Integer
FileName = "C:\README.TXT"
f = FreeFile 'Get a file handle
Open FileName For Input As f 'Open the file
Text1.Text = Input$(LOF(f), f) 'Read entire file into text box
Close f 'Close the file.
End Sub
المشاركات : 10
المواضيع 2
الإنتساب : Nov 2012
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 4 مشاركات
الكود جميل ومفيد حقا - وياريت لكى تكون الفائدة اكبر - هل يمكن تطبيق نفس الفكرة فى ملف وورد - اى نريد مثلا ننقل فقرة محددة او كل ماتحتوية صفحة الوورد فى تكست بوكس - منتظ الرد ولكم جزيل الشكر