एक स्यूडोकोड कैसे लिखें

मंद प्रत्यय सूची () के रूप में स्ट्रिंग में प्रत्यय की एक सूची होगी, मंद prefixList () के रूप में स्ट्रिंग में उपसर्गों की एक सूची होगी

निजी उप ParseName (मूल्य स्ट्रिंग, ByRef firstName स्ट्रिंग के रूप में, ByRef MiddleName स्ट्रिंग के रूप में, ByRef अंतिम नाम स्ट्रिंग के रूप में के रूप में) स्ट्रिंग मंद splittedName splittedName = स्प्लिट (मूल्य, "") मंद prefixLname स्ट्रिंग मंद suffixLname स्ट्रिंग के रूप में के रूप में `के रूप में ***** **************************************** `विभाजित नाम के लिए टाई` *** के लिए मैं = ****************************************** LBound (splittedName) करने के लिए UBound (splittedName) मैं तो = 0 तब

प्रथम नाम = स्पलेटेड नाम (i)

Elseif मैं = 1 फिर `******************************************** * `जांच करता है कि मूल्य suffixList या preFixList में मौजूद नहीं है` तो MiddleName रूप में परिभाषित करता है, लेकिन prefixLname या suffixLname `के रूप में सहेजता ********************* यदि ************************ (DoesValueExsistInList (suffixList, splittedName (i))) फिर suffixLname = splittedName (i) elseif (DoesValueExsistInList (preFixList, splittedName (i))) फिर prefixLname = splittedName (i) वरना MiddleName = splittedName (i) अंत तो

वरना `********************************************* के चेक मूल्य suffixList या preFixList में मौजूद नहीं है `तो अंतिम नाम के रूप में सेट है, लेकिन suffixList या preFixList रूप में सहेजता है` ************************* यदि ******************** (DoesValueExsistInList (suffixList, splittedName (i))) फिर suffixLname = splittedName (i) elseif (DoesValueExsistInList (preFixList, splittedName (i)) ) फिर prefixLname = splittedName (i) = अंतिम नाम वरना splittedName (i) यदि समाप्त

समाप्त करते हैं अगला `*********************************************` जाँच करता है कि स्ट्रिंग खाली है, और फिर आवंटित अंतिम नाम = MiddleName `suffixLname lastName साथ मूल्यों concatenates "***************************** ****************

यदि लेन (अंतिम नाम) = 0 तब LastName = MiddleName अंत यदि LastName = prefixLname "" LastName "" suffixLname End Sub `*********************************************` आप वेक्टर में मूल्य खोजने के `******************************************** * निजी समारोह DoesValueExsistInList (स्रोत () स्ट्रिंग, searchString स्ट्रिंग के रूप में के रूप में) के रूप में बूलियन `******************************** ************* `तार की एक सरणी में एक मूल्य के लिए खोज और सही (सही) लौटाता है यदि पाया` ******************** ************************* मंद retval retval बूलियन के रूप में झूठी = मैं के लिए = LBound (स्रोत) UBound (स्रोत) के लिए तो LCase (searchString) = LCase (स्रोत (i)) फिर retval = समाप्ति हैं के लिए सच बाहर निकलें

अगला समाप्ति समारोह

निजी उप कमांड 1_Click () मंद नाम स्ट्रिंग मंद के रूप में नाम के रूप में स्ट्रिंग दीम lN नाम स्ट्रिंग मंद के रूप में नाम स्ट्रिंग नाम के रूप में = "एटम" एंड सब