अनुगामी व्हॉट्सएप को कैसे हटाया जाए, यह वास्तव में एक अच्छा उदाहरण है। इस मैक्रो का उपयोग करके मैंने जो कुछ खोजा है, उसके आधार पर मैं कुछ चीजें बदलूंगा। सबसे पहले, मैक्रो स्वचालित रूप से टैब को रिक्त स्थान में परिवर्तित करता है। यह हमेशा वांछनीय नहीं होता है और लोगों के लिए चीजों को बदतर बनाने की ओर ले जा सकता है जो टैब (आमतौर पर लिनक्स-आधारित) से प्यार करते हैं। टैब की समस्या वास्तव में अतिरिक्त व्हाट्सएप समस्या वैसे भी नहीं है। दूसरे, मैक्रो मानता है कि केवल एक फ़ाइल को एक बार में सहेजा जा रहा है। यदि आप एक साथ कई फ़ाइलों को सहेजते हैं, तो यह व्हाट्सएप को सही ढंग से नहीं हटाएगा। वजह साफ है। वर्तमान दस्तावेज़ को वह दस्तावेज़ माना जाता है जिसे आप देख सकते हैं। तीसरा, यह खोज परिणामों पर कोई त्रुटि जाँच नहीं करता है। ये परिणाम बेहतर बुद्धिमत्ता दे सकते हैं कि आगे क्या करना है। उदाहरण के लिए, यदि कोई व्हाट्सएप नहीं मिला है और उसे बदल दिया गया है, फ़ाइल को फिर से सहेजने की आवश्यकता नहीं है। सामान्य तौर पर, मुझे वैश्विक ध्वज को बचाने या नहीं होने की आवश्यकता पसंद नहीं थी। यह अज्ञात राज्यों के आधार पर परेशानी पूछने के लिए जाता है। मुझे संदेह है कि झंडा अनंत लूप को रोकने के लिए पूरी तरह से जोड़ा गया था।
Private Sub DocumentEvents_DocumentSaved(ByVal document As EnvDTE.Document) _
Handles DocumentEvents.DocumentSaved
Dim result As vsFindResult
'Dim nameresult As String
Try
document.Activate()
' Remove all the trailing whitespaces.
result = DTE.Find.FindReplace(vsFindAction.vsFindActionReplaceAll, _
":Zs+$", _
vsFindOptions.vsFindOptionsRegularExpression, _
String.Empty, _
vsFindTarget.vsFindTargetCurrentDocument, , , _
vsFindResultsLocation.vsFindResultsNone)
'nameresult = document.Name & " " & Str$(result)
'MsgBox(nameresult, , "Filename and result")
If result = vsFindResult.vsFindResultReplaced Then
'MsgBox("Document Saved", MsgBoxStyle.OkOnly, "Saved Macro")
document.Save()
Else
'MsgBox("Document Not Saved", MsgBoxStyle.OkOnly, "Saved Macro")
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Trim White Space exception")
End Try
End Sub
मैंने डिबग संदेश बक्से जोड़े जो यह देखने के लिए कि क्या चल रहा था। इसने यह स्पष्ट कर दिया कि एकाधिक फ़ाइल सेव काम नहीं कर रहा था। यदि आप उनके साथ खेलना चाहते हैं, तो उन लाइनों को अनइंस्टॉल करें।
मुख्य अंतर दस्तावेज़ का उपयोग कर रहा है। सक्रिय करें () दस्तावेज़ को अग्रभूमि में सक्रिय वर्तमान दस्तावेज़ को बाध्य करने के लिए। यदि परिणाम 4 है, तो इसका मतलब है कि पाठ को बदल दिया गया था। शून्य का अर्थ होता है कुछ नहीं हुआ। आपको हर फाइल के लिए दो सेव दिखाई देंगे। पहला बदलेगा और दूसरा कुछ नहीं करेगा। संभावित रूप से परेशानी हो सकती है यदि सेव फ़ाइल नहीं लिख सकता है, लेकिन उम्मीद है कि ऐसा होने पर इस ईवेंट को कॉल नहीं किया जाएगा।
मूल स्क्रिप्ट से पहले, मैं इस बात से अनभिज्ञ था कि विजुअल स्टूडियो में स्क्रिप्टिंग कैसे काम करती है। यह थोड़ा आश्चर्य की बात है कि यह विज़ुअल बेसिक को मुख्य इंटरफ़ेस के रूप में उपयोग करता है लेकिन यह ठीक काम करता है कि इसे क्या करना है।