IMoniker के माध्यम से एक्सेल से क्लिपबोर्ड पर रेंज ऑब्जेक्ट की प्रतिलिपि बनाना

एक साल पहले, हमारी कंपनी के पास C # लिखने का कार्य था, जिसमें Excel से डेटा आयात करने के लिए एक ऐप्लीकेशन शामिल थी, जिसमें क्लिपबोर्ड और ड्रैग'एयरड्रॉप का उपयोग करना शामिल था। बफ़र पर कॉपी करते समय, एक्सेल वहाँ कई प्रारूपों में डेटा डालता है। उनमें से कुछ मानक प्रकार हैं CF_TEXT, CF_CSV, आदि। हालांकि, यदि आपको मर्ज किए गए सेल और अन्य खुशियों से निपटने की आवश्यकता है, तो आपको सीधे रेंज ऑब्जेक्ट तक पहुंचने की आवश्यकता हो सकती है, जिसे खींच या छोड़ दिया गया था। ऐसा करने के लिए, CF_LINKSOURCE प्रारूप और इसमें निहित IMoniker इंटरफ़ेस का उपयोग करें। इस बारे में पढ़ें कि यह कैसे करें।

सिद्धांत रूप में, काशी के बारे में परियों की कहानी में सब कुछ ठीक है: रेंज IMoniker , IMtiker in IStream , IStream in IDataObject , क्लिपबोर्ड में IDataObject में निहित है। यह ठीक उसी तरह है जो क्लाइंट कोड से कॉल की गई विधि की तरह दिखेगा:

public static Range GetRange ()
{
IDataObject dataObject = System.Windows.Forms.Clipboard . GetDataObject () as IDataObject ;
IStream iStream = IStreamFromDataObject (dataObject);
IMoniker compositeMoniker = IMonikerFromIStream (iStream);
return RangeFromCompositeMoniker (compositeMoniker);
}

केवल एक चेतावनी है: हमें System.Windows की आवश्यकता नहीं है। Forms.IDataObject क्लिपबोर्ड द्वारा लौटाया गया है। GetDataObject (), और System.Runtime.InteropServices.ComTypes.IDataObject । सौभाग्य से, यह एक साधारण कलाकार द्वारा हल किया जाता है।

IDataObject से IStream प्राप्त करना भी आसान है। कृपया ध्यान दें कि एक्सेल क्लिपबोर्ड पर रखे गए दर्जनों स्वरूपों में से कुछ के बीच, हमें CF_LINKSOURCE की आवश्यकता है।

private const string CF_LINKSOURCE_ID = "Link Source" ;
private static IStream IStreamFromDataObject ( IDataObject dataObject)
{
STGMEDIUM medium;
FORMATETC formatEtc = new FORMATETC ();
formatEtc. cfFormat = ( short ) System.Windows.Forms.DataFormats . GetFormat ( CF_LINKSOURCE_ID ). Id ;
formatEtc. dwAspect = DVASPECT . DVASPECT_CONTENT ;
formatEtc. lindex = - 1 ;
formatEtc. ptd = new IntPtr ( 0 );
formatEtc. tymed = TYMED . TYMED_ISTREAM ;

dataObject. GetData ( ref formatEtc, out medium);
return Marshal . GetObjectForIUnknown (medium. unionmember ) as IStream ;
}

तो, IStream मिल गया। अब आपको इसमें से IMoniker को हटाने की आवश्यकता है। यहाँ पहली बारीकियों की खोज की गई थी: IStream को फिर से शुरू किया जाना चाहिए। अन्यथा, OleLoadFromStream STG_E_READFAULT वापस आ जाएगा । वैसे, OleLoadFromStream को ole32.dll से आयात करने की आवश्यकता है। Pinvoke.net हमारी मदद करेगा। हमारे कोड में एकमात्र चीज int से HRESULT में लौटाए गए परिणाम की जगह ले रही है, वहां वर्णित है।

private static IMoniker IMonikerFromIStream ( IStream iStream)
{
iStream. Seek ( 0 , 0 , IntPtr . Zero );
Guid guid = Marshal . GenerateGuidForType ( typeof ( stdole . IUnknown ));
object obj;
if ( ole32 . OleLoadFromStream (iStream, ref guid, out obj))
return obj as IMoniker ;
else
return null ;
}



IMoniker है ! आगे सिद्धांत में, सब कुछ बहुत सरल होना चाहिए था। हम ole32.dll से BindMoniker फ़ंक्शन को कॉल करते हैं , जिसमें हम श्रेणी वर्ग IMoniker और दिशानिर्देश पास करते हैं, और आउटपुट रेंज है । वास्तव में, हालांकि, इसके बजाय हमें MK_E_NOOBJECT त्रुटि मिलती है। यहाँ बिंदु है। कई तरह के मॉनिकर्स हैं: फाइल मॉनीकर, आइटम मॉनीकर, कम्पोजिट मॉनीकर, आदि। हमारे मामले में, क्लिपबोर्ड से हमें कम्पोजिट प्रकार का एक मोनिकर मिलता है। जो अन्य दो को जोड़ती है - फाइल और आइटम। पहला कार्यपुस्तिका को इंगित करता है, और दूसरा कार्यपुस्तिका के अंदर श्रेणी के लिए। जैसा कि हम देख सकते हैं, एक्सेल कम्पाउंड मोनिकर उत्पन्न करने में सक्षम है। लेकिन जुदा करने के लिए - नहीं। खैर, आपको उसकी मदद करनी होगी।

private static Range RangeFromCompositeMoniker ( IMoniker compositeMoniker)
{
List < IMoniker > monikers = SplitCompositeMoniker (compositeMoniker);
if (monikers. Count != 2 )
throw new ApplicationException ( "Invalid moniker" );

IBindCtx bindctx;
if (! ole32 . CreateBindCtx ( 0 , out bindctx) || bindctx == null )
throw new ApplicationException ( "Can't create bindctx" );

object obj;
Guid workbookGuid = Marshal . GenerateGuidForType ( typeof ( Workbook ));
monikers[ 0 ]. BindToObject (bindctx, null , ref workbookGuid, out obj);
Workbook workbook = obj as Workbook ;

ExcelItemMonikerHelper helper = new ExcelItemMonikerHelper (monikers[ 1 ], bindctx);
return helper. GetRange (workbook);
}

private static List < IMoniker > SplitCompositeMoniker ( IMoniker compositeMoniker)
{
List < IMoniker > monikerList = new List < IMoniker >();
IEnumMoniker enumMoniker;
compositeMoniker. Enum ( true , out enumMoniker);
if (enumMoniker != null )
{
IMoniker [] monikerArray = new IMoniker [ 1 ];
IntPtr fetched = new IntPtr ();
HRESULT res;
while (res = enumMoniker. Next ( 1 , monikerArray, fetched))
{
monikerList. Add (monikerArray[ 0 ]);
}
return monikerList;
}
else
throw new ApplicationException ( "IMoniker is not composite" );
}



SplitCompositeMoniker का उपयोग करते हुए, हम कम्पोज़िट मॉनीकर को फाइल मॉनीकर और आइटम मॉनीकर में विभाजित करते हैं, जिसके बाद हम बस फाइल मॉनीटर पर BindToObject कहते हैं और वर्कबुक ऑब्जेक्ट प्राप्त करते हैं। और फिर हम एक्सेल के लिए काम करते हैं और आइटम मॉनीकर द्वारा रेंज ऑब्जेक्ट प्राप्त करते हैं। इसके लिए हमने एक सहायक लिखा। मैं लेख में कोड नहीं दूंगा, आप इसे डेमो प्रोजेक्ट में देख सकते हैं। संक्षेप में, यह moniker की DisplayName संपत्ति को पार्स करता है, शीट का नाम और चयनित क्षेत्र की सीमाओं को बाहर निकालता है, और मानक Microsoft.Office.Interop.Express विधियों का उपयोग करके कार्यपुस्तिका से वांछित सीमा प्राप्त करता है।

यहां पर परी कथा समाप्त होती है। और जिसने सुना - अच्छी तरह से किया और उसी तरह से किसी भी एप्लिकेशन की वस्तुओं को प्राप्त करने में सक्षम होगा जो क्लिपबोर्ड पर मॉनीकर डालता है।
डेमो प्रोजेक्ट यहां है । इस तथ्य के बावजूद कि लिंक एक कोड परियोजना की ओर जाता है, मैंने लेख को कॉपी-पेस्ट नहीं किया, जैसा कि आप सोच सकते हैं =) यह सिर्फ इतना है कि सर्दियों में मेरे पास अभी भी लेख प्रकाशित करने के लिए पर्याप्त कर्म नहीं है, और सामग्री को नहीं भूलने के लिए, मैंने इसे वहां प्रकाशित किया।

आपका ध्यान के लिए धन्यवाद!