منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس (/showthread.php?tid=6715)



[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - عاشق الفيجوال - 27-10-12

بسم الله الرحمن الرحيم

اريد كود يعرض مايحتويه ملف txt الي هو (notepad) في text محدد

يعني مثلا انا عملت notepad وحفظتها باسم am.txt
اريد البرنامج يعرض مايحتويه am.txt في label او textbox :confused:


[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - nablion - 27-10-12

TextBox1.Text = My.Computer.FileSystem.ReadAllText("c:\1.txt")


[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - عاشق الفيجوال - 27-10-12

nablion كتب :TextBox1.Text = My.Computer.FileSystem.ReadAllText("c:\1.txt")

مايشتغل الكود هذا الكود اظنه ل فيجوال دوت نت


[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - ناجي إبراهيم - 28-10-12

السلام عليكم...

ضع كود الدالة التالية في 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 أو غيره) ترسله إلى الدالة لفتحه و الحصول على محتوياته النصية و عرضها في مربع النص.

نرجو الاستفادة و السلام.


[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - nablion - 28-10-12

بعد اذن الاستاذ الكبير ناجي ابراهيم
كود اخر يقوم بالمهمه
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


[تم الحل] طلب كود عرض ماتحتويه notepad في تيكس بوكس - samy666 - 16-11-12

الكود جميل ومفيد حقا - وياريت لكى تكون الفائدة اكبر - هل يمكن تطبيق نفس الفكرة فى ملف وورد - اى نريد مثلا ننقل فقرة محددة او كل ماتحتوية صفحة الوورد فى تكست بوكس - منتظ الرد ولكم جزيل الشكر