الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

بليييييز ساعدوني .. أبغا مساعده في إستيراد أسماء من ملف Txt ووضعها في قائمة List ..

بدأه Roz-HmS في 8 سبتمبر 2009 · 12 رد · 1,079 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

أول شي أحب أقلكم كل سنة وانتو طيبين والله يعيده علينا وعليكم بكل خير يارب

ثاني شي .. عندي مشكلة في الفيجوال بيسكـ .. حاجة ماني عارفه أسويها بصراحة لأني مبتدئة :lol: !!

المطلوب إنو يكون في زر إستعراض للملفات في البرنامج .. ويعطيني خاصية فتح ملفات txt فقط ..

الغرض إنو ملف الـ txt يكون يحتوي على عدد كبير من الأسماء .. كل إسم يكون في سطر مستقل ..

واللي أبغاه إن البرنامج يستورد هادي الأسماء ويحطها في قائمة بالبرنامج نفسو .. يعني List

إن شاء الله تكونوا فهمتوا عليا يارب .. :wink:

وبإنتظار المساعده على أحر من الجمر .. بس بليز اللي يعرف لا يبخل علينا والله يجزاه خير يارب :happy:

RoZ

تم تعديل هذه المشاركة بواسطة Roz-HmS في 8 سبتمبر 2009 في 04:42

#2

وعليكــم السـلام ورحمة الله وبركاتـه..

مرحبا

أول شي تضيف أداة

Microsoft Common Dialog Control 6.0 (sp6)

وذلك بالنقر بزر الفارة الأيمن على صندوق الأدوات وأختيار Components

ثم تحديد الأداة

ثم إدراجها على الفورم

ثم تضع Command1 = فتح

List1

Text1

في كوماند تضع الكود التالي

CommonDialog1.Filter = "Txt أختر الملف بإمتداد |*.txt"

CommonDialog1.ShowOpen

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CommonDialog1.CancelError = True
ملاحظة السطر هذا مهم في حالة تم عرض صندوق الفتح ومن ثم قام المستخدم بالنقر على زر إلغاء الأمر فأنه لا يظهر رسالة خطأ بأنه لا يوجد أختيار ملف
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Open CommonDialog1.FileName For Input As #1

Do Until EOF(1)

Input #1, txt
List1.AddItem txt

Loop

Close #1

وفي حدث Change الخاص بالتكست تضع الكود التالي

For i = 0 To (List1.ListCount - 1)
If List1.List(i) = Text1 Then
List1.Selected(i) = True
Exit For
Else
List1.Selected(i) = False
End If
Next i

فقط وسوف يقوم بملء الليست بالأسماء الموجودة في الملف النصي الذي تم تحديده وأيضاً عند كتابة الأسم في التكست يتم تحديده من اللست

وهذا مثال على ذلك .. تحياتي

Txt_Test.rar

تم تعديل هذه المشاركة بواسطة محمدvb في 8 سبتمبر 2009 في 02:05

#3

الاخ / محمدvb اول شي جزاك الله خير على المساعده

بس واجهتني مشكلة بسيطة لمن جربت الكود هذا .. المشكلة إنو بعض الأسماء أو الـ ( نكات ) بمعنى أصح

تحتوي على رموز خاصة زي أداة التنصيص مثلاً يكون إسم العضو ( "عزف الألحان" ) فمثل هذا الإسم بعد

ماتمت إضافته للـ List لاحظت إنو علامات التنصيص إختفت تماماً .. ومثلاً كمان إسم ( گليےٍ ولـه ) حروف

الكاف والياء ما تطلع !!

فكيف أقدر أخلي البرنامج يتعرف على هذي الحروف الخاصة ويضمنها ضمن الإسم ..؟؟

لأنو زي ما تعرف في عالم النت والمنتديات الإسم لازم يكون دقيق 100% .. فإذا إستمر الحال زي كذا

معناها البرنامج راح يضطرني أسوي كل الأسماء اللي فيها رموز خاصة يدوياً .. والعملية شبه مستحيلة :(

عموماً .. يارب تقدروا تساعدوني .. وسامحوني على الثقالة

RoZ

تم تعديل هذه المشاركة بواسطة Roz-HmS في 8 سبتمبر 2009 في 04:53

#4

السلام عليكــم ورحمـة الله وبركاتــه ،،

جرب المثال الذى صممته لك أخى

و أخبرنى بالنتيجة و الملاحظات

d.experinse.rar

#5

مرحبا //

من ناحية المشكلة البسيطة يكون حلها من خصائص أداة اللست تغيير الفونت وذلك بالتحديد على أداة اللست ثم من الخصائص أختيار Font

ويتم تغيير الخط إلى الخط التالي

Times New Roman

ومن نفس الشاشة أختيار العربية من كومبو Script في نفس شاشة إختيار الخط بالأسفل

ثم النقر على زر موافق

ملاحظة يمكنك أختيار أي خط من القائمة فكل خط له خصائصه في عرض النص ... تحياتي

تم تعديل هذه المشاركة بواسطة محمدvb في 8 سبتمبر 2009 في 08:15

#6

الاخ / D.EXPERINSE

الله يعطيكـ العافيه وشكراً على المساعدهـ ..

بس انتا حطيت أداة text ماهي list .. أنا أبغاها تكون عبارة عن أداة list لأني بعد كذا أبغا البرنامج يبدأ يطبق كود معين

على كل الأسماء اللي في القائمة واحد واحد ..!!

فما أدري .. أهل أقدر أنفذ نفس الفكرة على برنامجكـ اللي استخدمت فيه الـ text بدل الـ list ولا لا ؟؟

::

الأخ / محمدvb الله يعطيك العافيه .. لمن غيرت الخط انحلت معايا مشكلة حروف الياء والكاف .. بس نفس المشكلة موجودة

في إختفار علامات التنصيص !!

::

دارية والله اني تعبتكم .. سامحوني بس والله مني عارفه أبحث في النت عن حل لهذا الموضوع !!

#7

الفكره واحدة في ظهور الكاف والياء

أبحثي عند خطوط تدعم الكاف والياء والتنصيص فأعتقد ليس لها بالبرمجة بل هي المشكلة قائمة على اختيار الحرف الذي يدعم الحروف المكتوبة

..... تحياتي

#8

اخ / محمدvb

اسفه على الغلاسة بس والله مو راضي يزبط معايا !!

كل ما احط خط علامات التنصيص ما تطلع عشان كده انا قلت أكيد من الكود نفسو !

الكود حق الاخ / D.EXPERINSE اشتغل كويس بدون ما أغير ولا شي في الخط

بس المشكلة زي ماقلت انو الكود هادا حط الاسماء في أداة text ما أدري هل فكرتي حتنفع ولا لا ؟؟

وعشان أوضح لكم الفكرة شوية .. أنا اللي محتاجتو إن البرنامج ياخذ الأسماء اللي استوردها من ملف الـ txt واللي حطها في القائمة ..

بعد كده أبغا البرنامج يضيف لي قبل كل إسم ( وسم كود ) معين .. وبعد كل إسم ( وسم كود ) تاني حق التقفيل .. وتكون كلها لاصقة في بعض ..

مثلاً أبغا البرنامج ياخذ الأسماء كلها واحد واحد من القائمة بعد ما يستوردها .. ويحط قبل كل إسم الكود حق المنتديات اللي هوا :-

وبعد نهاية كل إسم يحط كود التقفيل اللي هوا :-
وتكون أكواد كل الأسماء ورى بعض بدون أي مسافات بينها أبداً ..
للتوضيح أكتر .. مثلاً ملف الـ txt كان فيه 5 أسماء ( أحمد ، محمد ، صالح ، سعيد ، إبراهيم )
بعد ما البرنامج يستورد هذي الأسماء من ملف txt ويحطها في قائمة .. يقوم في أداة text جديده يضيف هذي الأسماء مع الأكواد السابقة وبدون مسافات .. تصير زي كذا :-
أحمدمحمدصالحسعيدإبراهيم
كيف أقدر أخلي البرنامج يسوي زي كده ..؟؟
ملاحظة .. أنا عارفه إنو أقدر أحط كل الأسماء بين الكودين وتنصبغ كلها أحمر بدون ما أكرر الكود على كل إسم ..
بس أنا الكود اللي ابغا استخدموا مختلف مرة ولازم يتكرر مع كل إسم .. ومايكون في أي فراغات بين الإسم والتاني ..
يارب تكونوا فهمتوا عليا .. والله يسعدكم سامحوني والله طفشتكم .. بس مالي غيركم بعد الله ..  :wink: 
الله يوفقكم يارب
RoZ 

      
تم تعديل هذه المشاركة بواسطة Roz-HmS في 10 سبتمبر 2009 في 04:12

      

      
    

  

    
    

      
#9
        
        

      
مرحبا المثال جاهز بالمرفقات يقوم بعد كتابة الكود أيضاً بنسخة في الحافظة ويمكن لصقة في أي مكان آخر .. تحياتي
NewFileText.rar

      
تم تعديل هذه المشاركة بواسطة محمدvb في 10 سبتمبر 2009 في 05:23

      

      
    

  

    
    

      
#10
        
        

      
 أخ / محمد
الله يسعدكـ ولا يحرمكـ الأجر يارب ..
البرنامج إشتغل 100% ونفس ما أنا أبغا ..
مشكلة صغيرة طلعلتي .. وهيا بعد ما أنسخ الأسماء وألصقها في مكان تاني ..
تطلع لي الأسماء العربية بلغة غريبة !!
رغم انها في البرنامج طالعه كويس .. بس بعد ما أنسخها تتخرب مدري ليه !!
هذا مثال على الخربطة اللي تصير :-
[tr=alt1][td]ÃÈæÇáåÔ[/td][td]no1[/td][/tr]
[tr=alt1][td]ÃÈæ æåÌ[/td][td]no2[/td][/tr]
آسفه .. :( 
RoZ 

      
تم تعديل هذه المشاركة بواسطة Roz-HmS في 10 سبتمبر 2009 في 18:22

      

      
    

  

    
    

      
#11
        
        

      
مرحبا والحمدلله انه ضبط 
بخصوص الملاحظة
نفرض انه بعد عملية النسخ من البرنامج سيتم لصق النص في برنامج وورد مثلاً /// من صفحة وورد اختيار الخط Times New Roman
ولو كان في برنامج ثاني أيضاً مكان لصق النص لنفرض أنه في Text3 مثلاً خاصية الفونت للتكست3 اختيار الخط Times New Roman
..... تحياتي

      
تم تعديل هذه المشاركة بواسطة محمدvb في 11 سبتمبر 2009 في 00:57

      

      
    

  

    
    

      
#12
        
        

      
-
الاخ / محمد
كلماتي تعجز عن شكركـ الله يسعدكـ ويعطيكـ العافيه ان شاء الله ..
شاكره لكـ طولة بالكـ ومساعدتكـ بروحكـ الطيبة ..
والله يقدرنا ونرد لكـ الجميل بدعوة في هذا الشهر الفضيل ..
البرنامج اشتغل ولله الحمد والشكر 100% بفضل الله ثم تعاونكم ..
هونتوا علينا تعب وإرهاق وعمل بالساعات الطويلة .. عسى ربي
يهون عليكـ أعباء الدنيا ..
موفق خير يارب
أختكـ RoZ

      
تم تعديل هذه المشاركة بواسطة Roz-HmS في 16 سبتمبر 2009 في 08:33

      

      
    

  

    
    

      
#13
        
        

      
هلا أخت روز
لا عادي أختي انا في الخدمة وأتشرف ... تحياتي

      
      

      
    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…