النصي لتعديل التوقعات (2003) اتصالات

Question

وأنا أحاول لتنظيف اتصالاتي توقعات عام 2003، والتي أصبحت فوضى قبيحة بدلا من التنسيق المختلفة، وما إلى ذلك.

والأساس، ولدي مجموعة من الاتصالات، في شكل إما:

و0XXXXXXXXX [عشرة أرقام، بدءا 0] 0xxxxxxxx [تسعة أرقام، بدءا 0] 0xxxxxxxx (كسكسكسكسكس) [نفس تسعة أرقام أعلاه مع الخمس الماضية المتكررة بين قوسين] + XXXXXXX [بعض عشوائي الرقم "الكامل" مع رمز الاتصال الدولي، الخ]

وأريد كل الأرقام لتتناسب مع شكل آخر. خوارزمية بسيطة للغاية: لأنواع الأولين، إسقاط 0 وإضافة + YYY حيث YYY هو بلدي رمز البلد. كما سبق للثالث، ولكن ترك كل شيء بين قوسين.

ومشكلتي هي أنني لا أعرف كيفية التوجه نحو ذلك. لقد كتبت مليون البرامج النصية في حياتي في بيرل، لكنني أفضل عدم تصدير كل شيء إلى النص، معالجته، وإعادة استيراد؛ أود أن يكون الحل بنقرة واحدة التي يمكن بسهولة إعادة تشغيل (مثل عندما كنت استيراد جهة اتصال جديدة من دليل الشركات بلدي 'التي تأتي في واحدة من أشكال أعلاه). وأظن أن VBScript وسيلة للذهاب. رأيت بعض المراجع على الانترنت لوصول الاتصالات ككائنات، لكني لست متأكدا ما هي أفضل طريقة للبدء هي.

وأي موارد الموصى بها؟

وهذا هو نسخة مكررة من https://superuser.com/questions/15913/ النصي إلى تعديل، توقعات 2003-الاتصالات . لست متأكدا أي موقع هو موقع أفضل

Answer 1

وأود أن أقول VBA، بدلا من فبسكريبت.

Sub GetContactsTel()

    Set oFolder = GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
    ' Loop through all of the items in the folder.
    For i = 1 To oFolder.Items.Count
       Debug.Print oFolder.Items(i).BusinessTelephoneNumber
    Next

End Sub