এটি পেছনের সাদা স্থানটি কীভাবে সরিয়ে ফেলতে হয় তার একটি দুর্দান্ত উদাহরণ। এই ম্যাক্রোটি ব্যবহার করে যা আবিষ্কার করেছি তার উপর ভিত্তি করে কয়েকটি জিনিস আমি পরিবর্তন করব। প্রথমত, ম্যাক্রো স্বয়ংক্রিয়ভাবে ট্যাবগুলিকে স্পেসে রূপান্তর করে। এটি সর্বদা কাম্য নয় এবং ট্যাবগুলি পছন্দ করে এমন লোকদের (সাধারণত লিনাক্স-ভিত্তিক) জিনিসগুলিকে আরও খারাপ করে তুলতে পারে। ট্যাব সমস্যাটি যেভাবেই হোক অতিরিক্ত শ্বেতস্পেস সমস্যার মতো নয়। দ্বিতীয়ত, ম্যাক্রো ধরে নেয় কেবল একবারে একটি ফাইল সংরক্ষণ করা হচ্ছে। আপনি যদি একসাথে একাধিক ফাইল সংরক্ষণ করেন তবে এটি সঠিকভাবে সাদা স্থান সরিয়ে ফেলবে না। কারণটি সহজ। বর্তমান দস্তাবেজটি আপনি দেখতে পারেন এমন নথি হিসাবে বিবেচনা করা হয়। তৃতীয়ত, ফলাফলগুলি অনুসন্ধানের ক্ষেত্রে এটি কোনও ত্রুটি করে না। এই ফলাফলগুলি পরবর্তী কী করা উচিত সে সম্পর্কে আরও ভাল বুদ্ধি দিতে পারে। উদাহরণস্বরূপ, যদি কোনও সাদা জায়গা খুঁজে পাওয়া যায় না এবং প্রতিস্থাপন করা হয়, ফাইলটি আবার সংরক্ষণ করার দরকার নেই। সাধারণভাবে, আমি সংরক্ষণ করতে বা না রাখার জন্য বিশ্ব পতাকাটির প্রয়োজনীয়তা পছন্দ করি না। এটি অজানা রাষ্ট্রগুলির ভিত্তিতে সমস্যা জিজ্ঞাসা করে। আমি সন্দেহ করি পতাকাটি কেবলমাত্র একটি অসীম লুপ প্রতিরোধের জন্য যুক্ত করা হয়েছিল।
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
কী চলছে তা দেখার জন্য আমি ডিবাগ বার্তা বাক্সগুলি যুক্ত করেছি। এটি খুব স্পষ্ট করে দিয়েছে যে একাধিক ফাইল সেভ কাজ করছে না। আপনি যদি তাদের সাথে খেলতে চান তবে এই লাইনগুলিকে অস্বচ্ছন্দ করুন।
মূল পার্থক্যটি ডকুমেন্টটি ব্যবহার করছে documentআপনিভেট করা () ডকুমেন্টটিকে সম্মুখভাগ সক্রিয় বর্তমান নথিতে জোর করতে। ফলাফলটি যদি 4 হয় তবে এর অর্থ হ'ল পাঠ্যটি প্রতিস্থাপন করা হয়েছিল। জিরো মানে কিছুই হয়নি। আপনি প্রতিটি ফাইলের জন্য দুটি সেভ দেখতে পাবেন। প্রথমটি প্রতিস্থাপন করবে এবং দ্বিতীয়টি কিছুই করবে না। সম্ভবত সেভ ফাইলটি লিখতে না পারলে সমস্যা হতে পারে তবে আশা করি এমনটি ঘটলে এই ইভেন্টটি ডাকা হবে না।
মূল স্ক্রিপ্টের আগে, ভিজুয়াল স্টুডিওতে স্ক্রিপ্টটি কীভাবে কাজ করে তা সম্পর্কে আমি অসচেতন ছিলাম। এটি সামান্য অবাক হওয়ার বিষয় যে এটি ভিজ্যুয়াল বেসিকটিকে প্রধান ইন্টারফেস হিসাবে ব্যবহার করে তবে এটি যা করা দরকার তা ঠিক ঠিক কাজ করে।