فصل جزء من جملة نصية

[wael_rafat]

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

السادة الافاضل اعضاء ومشرفي منتدانا الجميل

استفساري عن فصل جزء من جملة نصية

لدي كود لعمل تجميع لعنوان العميل وهو

   [address].Value = "Area:" & "{" & Me.area & "}" & " - " & "Block:" & "{" & Me.block & "}" & " - " & "Street:" & "{" & Me.street & "}" & " - " & "Jaddah:" & "{" & Me.jaddah & "}" & " - " & "building:" & "{" & Me.building & "}" & " - " & "floor:" & "{" & Me.floor & "}" & " - " & "flat:" & "{" & Me.flat & "}"
بمعنى ان المستخدم يقوم بادخال العنوان جزء جزء وهذا الكود اعلاه يقوم بتجميعة بالخلية .

وهذا هو الشكل النهائي بعد التجميع

Area:{ََQarain} - Block:{3} - Street:{12} - Jaddah:{} - building:{20} - floor:{} - flat

المطلوب هو فصل المكان فقط لحالة وهو  Qarain

مرفق صورة توضيحية مع البرنامج

Split text.rar

كل الشكر والتقدير ،،،

[jjafferr]

تفضل ياسيدي

بس لا تسال ليش 7 ، لأني ما عندي لك جواب

المفروض يكون 1 ، بس ما اعطى الجواب الصحيح ، ولكن 7 اعطى الجواب الصحيح

A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7)

 

جعفر

[wael_rafat]

حبيبي استاذنا تسلم ايدك  

تمااااام زي الفل  

كل تقديري واحترامي حبيبنا

[Shivan Rekany]

اعتذر على المداخلة يااستاذنا @jjafferr

حسب فهمي للموضوع السبب ان يعطي النتيجة الصحيحة برقم 7- هو

ان الجملة يبدأ بـــ

4 ساعات مضت, wael_rafat said:

Area:{

وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7
اي اذا نعطي هذا 

InStr([f5];"{")+1

سيعطينا رقم 7
اي اذا كان نريد ان نأخذ البيانات في اوله سيكون بدل رقم 7 رقم واحد

هذا والله يعلم

مع تحياتي

[jjafferr]

هلا اخوي شفان

 

هكذا هي القيمة الصحيحة:

Area:{ ...... }

 

واستخدمت المعادلة التالية لقراءة آخر قوس:

InStr([f5],"}")-7

 

الكلام انه يجب ان يكون الرقم في المعادلة 1 بدل 7 ، ولكن الرقم 1 لا يعطي النتائج الصحيحة

 

جعفر

[Shivan Rekany]

42 دقائق مضت, jjafferr said:

هكذا هي القيمة الصحيحة:

Area:{ ...... }

هل تريد ان يظهر هكذا
 

Area:{Qarain} 

بالتمام او فقط اللي بين قوسين

تم تعديل مايو 4, 2017 بواسطه Shivan Rekany

[jjafferr]

النتائج تطلع عندنا صحيحة بالكود:

A: Mid([f5],InStr([f5],"{")+1,InStr([f5],"}")-7)

 

بس السؤال هو:

46 دقائق مضت, jjafferr said:

الكلام انه يجب ان يكون الرقم في المعادلة 1 بدل 7 ، ولكن الرقم 1 لا يعطي النتائج الصحيحة

 

اللي بين القوسين فقط ، لوسمحت

 

نحن لا نريد معادلة ثانية ، مجرد السؤال لماذا 7 بدل 1 !!

 

جعفر

تم تعديل مايو 4, 2017 بواسطه jjafferr

[Shivan Rekany]

كما قلت لك مسبقا يا سيدي 

1 ساعه مضت, Shivan Rekany said:

ان الجملة يبدأ بـــ

6 ساعات مضت, wael_rafat said:

Area:{

وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7

اي الكلمة ( Area:{ ) حجز 6 مقاعد واحنا عطيته مقعد واحد  بهذا

1 ساعه مضت, Shivan Rekany said:

InStr([f5];"{")+1

صار 7 مقاعد ولكي نحذف تلك المقاعد يجب نعيه 7- 

جرب ان تحذف احد من الحروف البداية 
اذا حذف مثلا حرف A في Area:{ يجب ان تعطي رقم 6 -  
والله يعلم

مع تقدير 

[jjafferr]

1 دقيقه مضت, Shivan Rekany said:

6 ساعات مضت, wael_rafat said:

Area:{

وهو يحسب 6 مسافات مع + 1 اللي في كودنا هو 7

بالعربي (من اليمين الى اليسار) ، حسابك صحيح ،

ولكن واقعا الجمله من اليسار الى اليمين ، وبالطريقة هذه ، فالقوس في ملاحظتك سيكون بالمقلوب (يعني فاتح لليمين) ، بينما كلامنا عن القوس الثاني اللي فاتح لليسار 

 

جعفر

[Shivan Rekany]

4 دقائق مضت, jjafferr said:

بالعربي (من اليمين الى اليسار) ، حسابك صحيح ،

ولكن واقعا الجمله من اليسار الى اليمين ، وبالطريقة هذه ، فالقوس في ملاحظتك سيكون بالمقلوب (يعني فاتح لليمين) ، بينما كلامنا عن القوس الثاني اللي فاتح لليسار 

 

جعفر

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

[wael_rafat]

بارك الله فيكم وزادكم الله من فضلة وعلمة 

كل التقدير والاحترام

استاذنا القدير  الساحر @جعفر

استاذنا الحبيب @Shivan Rekany