21-08-13, 08:34 AM
السلام عليكم ورحمة الله وبركاته
الجديد تصحيح خطاء فى طريقة الدوال الثالثة والرابعة
اذا كنت اول مرة تعرف المكتبة عليك زيارة الموضوع الاساسى للاصدار الاول
[h=1]الموضوع: احتراف التعامل مع ( ملفات التهية ini ) باسهل الطرق مكتبه كاملة من صنعى : اصدار 1.0.0[/h]
احدى الدوال قبل التعديل
بعد التعديل
تم نعديل جميع الدوال
الملف مرفق
الجديد تصحيح خطاء فى طريقة الدوال الثالثة والرابعة
اذا كنت اول مرة تعرف المكتبة عليك زيارة الموضوع الاساسى للاصدار الاول
[h=1]الموضوع: احتراف التعامل مع ( ملفات التهية ini ) باسهل الطرق مكتبه كاملة من صنعى : اصدار 1.0.0[/h]
احدى الدوال قبل التعديل
كود :
[color=#0000FF]Public[/color] [color=#0000FF]Function[/color][color=#000000] GetSectionsNames([/color][color=#0000FF]ByVal[/color][color=#000000] File_Name [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000], [/color][color=#0000FF]Optional[/color] [color=#0000FF]ByRef[/color][color=#000000] Variable_CHECK [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color][color=#000000] = 0) [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000]()[/color]
[color=#0000FF]Dim[/color][color=#000000] lst() [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = {}[/color]
[color=#000000] Variable_CHECK = GetSectionsNames(File_Name, lst)[/color]
[color=#0000FF]Return[/color][color=#000000] lst[/color]
[color=#0000FF]End[/color] [color=#0000FF]Function[/color]
بعد التعديل
كود :
[color=#0000FF]Public[/color] [color=#0000FF]Function[/color][color=#000000] GetSectionsNames([/color][color=#0000FF]ByVal[/color][color=#000000] File_Name [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000], [/color][color=#0000FF]Optional[/color] [color=#0000FF]ByRef[/color][color=#000000] Variable_CHECK [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color][color=#000000] = 0) [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000]()[/color]
[color=#0000FF]Dim[/color][color=#000000] lst() [/color][color=#0000FF]As[/color] [color=#0000FF]String[/color][color=#000000] = {}[/color]
[color=#0000FF]Dim[/color][color=#000000] tst [/color][color=#0000FF]As[/color] [color=#0000FF]Byte[/color]
[color=#000000] tst = GetSectionsNames(File_Name, lst)[/color]
[color=#000000] Variable_CHECK = tst[/color]
[color=#0000FF]Return[/color][color=#000000] lst[/color]
[color=#0000FF]End[/color] [color=#0000FF]Function[/color]
تم نعديل جميع الدوال
الملف مرفق