+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل على كود فتح ملف (/showthread.php?tid=7462)
تعديل على كود فتح ملف - 3amo - 21-12-12
السلام عليكم ورحمة الله وبركاته
اخواني المرجوا تعديل الكود الموجود في الصورة.
لقد قمت بعمل function لقراءة ملف تكست سطر سطر
كما في الصورة محاط بإطار ازرق
المشكلة تكمن في الكود المحاط بإطاراحمر اريد كود بديل له :confused: اوتعديل لfunction بأكمله
وجزاكم الله خيرا
ارجو ان يكون طلبي واضح
اخواني المرجوا تعديل الكود الموجود في الصورة.
لقد قمت بعمل function لقراءة ملف تكست سطر سطر
كما في الصورة محاط بإطار ازرق
المشكلة تكمن في الكود المحاط بإطاراحمر اريد كود بديل له :confused: اوتعديل لfunction بأكمله
وجزاكم الله خيرا
ارجو ان يكون طلبي واضح
بالتوفيق للجميع
تعديل على كود فتح ملف - sooriaty03 - 21-12-12
وعليكم السلام ورحمة الله وبركاته
أخي الكريم الكود المرفق مكتوب بـ VB6
والدوت نت تميزت باختصار الكود
فإليك هذا الكود الذي يعطي نفس النتيجة ولكن في سطر واحد فقط
كود :
Private Function LoadTips(ByVal FileName As String) As String()
Return System.IO.File.ReadAllLines(FileName)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.AddRange(LoadTips("اسم الملف"))
End Subوبعدها يقوم بإضافة الناتج في ListBox1
بالتوفيق
تعديل على كود فتح ملف - 3amo - 21-12-12
السلام عليكم ورحمة الله
بارك الله فيك وزادك من علمه
الكود السابق يقوم بإضافة محتوى الملف بأكمله الى اللست
وأنا ما اريده هو عند الضغط على الزر يقوم بإضافة سطر من الملف وعند الضغط مرة اخرى ينتقل الى سطر اخر وهكذا....
تعديل على كود فتح ملف - sooriaty03 - 21-12-12
هل تقصد بأنك تريد تحميل سطر عشوائي عند كل مرة تضغط فيها على الزر أم بالتزتيب؟
تعديل على كود فتح ملف - 3amo - 22-12-12
السلام عليكم ورحمة الله وبركاته
sooriaty03 كتب :هل تقصد بأنك تريد تحميل سطر عشوائي عند كل مرة تضغط فيها على الزر أم بالتزتيب؟بارك الله فيك اخي هذا ما اقصده
لو ممكن مثال على تحميل سطر عشوائي ومثال اخر على تحميل سطر بالترتيب وعرضها في label
وجزاك الله خيرا
تعديل على كود فتح ملف - @@أبورائد@@ - 22-12-12
السلام عليكم ورحمة الله وبركاته
تفضل مثال كامل
كود :
Public Class Form1
Private Tips As New List(Of String)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadTips("Azkar.dl")
End Sub
Private Function LoadTips(ByVal filename As String) As Boolean
If IO.File.Exists(filename) Then
Tips = Split(IO.File.ReadAllText(filename).Trim, vbNewLine).ToList
Return True
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DisplayTip()
End Sub
Private Sub DisplayTip()
If Tips.Count > 0 Then
Dim indx As Integer = CInt((Tips.Count - 1) * Rnd() + 1)
Me.Label1.Text = Tips.Item(indx - 1)
End If
End Sub
End Classالسلام عليكم ورحمة الله وبركاته
تعديل على كود فتح ملف - 3amo - 22-12-12
السلام عليكم ورحمة الله
بارك الله فيك اخي@@أبورائد@@هذا ما اقصده100*100
وجزاك الله خيرا وزادك من علمه
بقيت مشكلة اخرى يتم عرض المعلومة على شكل رموز غير مفهومة:confused:كما في الصورة
[ATTACH=CONFIG]1610[/ATTACH]
بارك الله فيك اخي@@أبورائد@@هذا ما اقصده100*100
وجزاك الله خيرا وزادك من علمه
بقيت مشكلة اخرى يتم عرض المعلومة على شكل رموز غير مفهومة:confused:كما في الصورة
[ATTACH=CONFIG]1610[/ATTACH]
تعديل على كود فتح ملف - @@أبورائد@@ - 23-12-12
3amo كتب :السلام عليكم ورحمة الله
بارك الله فيك اخي@@أبورائد@@هذا ما اقصده100*100
وجزاك الله خيرا وزادك من علمه
بقيت مشكلة اخرى يتم عرض المعلومة على شكل رموز غير مفهومة:confused:كما في الصورة
[ATTACH=CONFIG]1610[/ATTACH]
السلام عليكم ورحمة الله وبركاته
أغلب الظن يعود لترميز النص داخل الملف Azkar.dl
الحل: قم بفتح الملف بالمفكرة ثم [حفظ بإسم..] واختر الترميز [UTF-8] قبل ان تضغط على [حفظ]
السلام عليكم ورحمة الله وبركاته
تعديل على كود فتح ملف - 3amo - 23-12-12
السلام عليكم ورحمة الله وبركاته
إقتباس :أغلب الظن يعود لترميز النص داخل الملف azkar.dlتم حل المشكل كما قلت اخي
الحل: قم بفتح الملف بالمفكرة ثم [حفظ بإسم..] واختر الترميز [utf-8] قبل ان تضغط على [حفظ]
@@أبورائد@@
:dجزاك الله عنا كل خير
وفقك الله الى ما يحبه ويرضاه
اللهم اجعل هذا العمل في ميزان حسناته
بالتوفيق