التعامل مع متغير يحتوي علي علامات خاصة

xcode كتب:

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

لكي اوضح لك اكثر برجاء مراجعة الجدول المرفق. 

ملحوظة لم استطيع اختيار عنوان مناسب للموضوع برجاء المعذرة

اخي العزيز اطلعت على المرفق 

وماهو المطلوب بالتفصيل 

وارفق لنا مثال عن الكود الذي يقوم باضافة البيانات للجدول 

تحياتي

اخي العزيز

هل تريد اخراج رقم الموبايل فقط ؟

IF SUBSTR(data1, 3, 4)="DATE" and SUBSTR(data1,36,2)="02"
   Telno = RIGHT(ALLTRIM(DATA1),13)
ENDIF

سيدي العزيز انا اريد استخراج اي رقم تليفون سواء كان موبيل او رقم ارضي مهما اختلف موقعة في البيانات المرسلة من الموديم دون الاضطرار لتعديل الكود اي اريد كود يعمل مع كافة انواع الموديم

 وبالنسبة للكود الذي يجلب البيانات الي الجدول 

1- انا اقوم بأستخدام  atcallerid.ocx

2-في ال comevent كتبت الكود التالي

LPARAMETERS smessage

test.rar

انتظرني بعض الوقت لضيق الوقت حاليا ولعدم توفر النت وانا استخدم حاليا بيانات الخلوي

وان شاء الله سهلة

اخي العزيز جرب هذا الكود لغرض اخراج رقم الموبايل او الارضي من الجدول 

IF SUBSTR(data1, 3, 4)="DATE" and SUBSTR(data1,36,2)="02"
   Telno = RIGHT(ALLTRIM(DATA1),LEN(ALLTRIM(DATA1))-34)
ENDIF

وفي حال لم ينجح سوف اقوم بتفكيك عنصر التحكم واستخراج رقم الهاتف والكيفية 

انتظر اجابتك

سيدي العزيز هذا الحل يعمل بنجاح ولكن ليس مع كل انواع الموديم لان موقع رقم التليفون في البيانات المرسلة من الموديم ليس دائما ثابت ولكنة يتغير من نوع الي اخر مما يضطرني الي تعديل الكود لكل نوع علي حدا وكنت اتصور انة من الممكن ايجاد صيغة برمجية تعمل مع كافة الانواع . انا ايضا ابحث عن حل واقوم بالتجربة الان لعل وعسي :)

اخي العزيز هنالك عناصر تحكم كثيرا جداً

ومنها من هو موجود أصلاً في اي نظام

ولكن هذا الذي تستخدمهٓ ان شاء الله اجد له كود لرقم التلفون فقط

فقط انتظرني بعض الوقت بسبب ظروف خاصه

ويمكن عمل معالج على حقل الجدول فقط لاستخراج الرقم

انتظرني لبعض الوقت

شكرا لك سيدي العزيز انا في انتظارك واتمني ان تكون هذة الظروف خير انشاء الله . لقد توصلت الي صيغة من الممكن ان تحل المشكلة ولكن هذا لا يمنع اني في انتظار ابداعاتك 

 اخي العزيز 

فكرة جميلة ويبقى ايعاز السابق فعالاً وحسب شرطك

IF SUBSTR(data1, 3, 4)="DATE" and SUBSTR(data1,36,2)="02"
   Telno =RIGHT(ALLTRIM(data1),LEN(ALLTRIM(data1))-20)
ENDIF

وانتظرني لبعض الوقت ان كان الايعاز لايفيد تسلسل البيانات في الاجهزة  

لاني لم اجرب الايعاز على الاجهزة

وتحياتي لك وللجميع