एकाधिक डिलीमीटर्स के साथ टेक्स्ट फ़ाइलों को एक्सेल में इम्पोर्ट करें: 3 सिद्ध विधियां

यह लेख दर्शाता है कि टेक्स्ट फ़ाइल डेटा को एकाधिक डिलीमीटर्स के साथ एक्सेल वर्कशीट में 3 अलग-अलग विधियों का उपयोग करके कैसे इम्पोर्ट किया जाए। हम कार्य को पूरा करने के लिए एक्सेल की अंतर्निहित सुविधाओं और VBA कोड का उपयोग करेंगे। विधियों की स्पष्ट समझ पाने के लिए उदाहरणों में गोता लगाएं।

एकाधिक डिलीमीटर्स के साथ टेक्स्ट फ़ाइल को एक्सेल में इम्पोर्ट करने के 3 उपयुक्त तरीके

मान लीजिए हमारे पास एक टेक्स्ट फ़ाइल में एकाधिक डिलीमीटर्स के साथ एक डेटासेट है। टेक्स्ट फ़ाइल में डेटासेट इस तरह दिखता है-

डेटासेट एक दुकान के लिए बिक्री विवरण दर्शाता है। आप अभ्यास के लिए लिंक से टेक्स्ट फ़ाइल डाउनलोड कर सकते हैं। यहां, प्रत्येक डेटा या तो कॉमा या सेमीकोलन द्वारा अलग किया गया है। हम इस डेटा को टेक्स्ट फ़ाइल से एक्सेल स्प्रेडशीट में इम्पोर्ट करना चाहते हैं।

1. लिगेसी विजार्ड्स फीचर का उपयोग करके एकाधिक डिलीमीटर्स के साथ टेक्स्ट फ़ाइल डेटा इम्पोर्ट करें

लिगेसी विजार्ड्स फीचर टेक्स्ट फ़ाइलों को इम्पोर्ट करने के लिए एक्सेल वर्कशीट में इम्पोर्टेड डेटासेट की वांछित संरचना सेट करने के लिए विकल्पों का एक समूह प्रदान करता है।

लिगेसी विजार्ड्स पर जाएं

• एक्सेल रिबन से डेटा टैब पर जाएं।
• गेट डेटा विकल्प पर क्लिक करें।
• माउस को लिगेसी विजार्ड्स विकल्प पर होवर करें।
• फ्रॉम टेक्स्ट (लिगेसी) विकल्प चुनें.

यदि फ्रॉम टेक्स्ट (लिगेसी) विकल्प उपलब्ध नहीं है
यदि फ्रॉम टेक्स्ट (लिगेसी) विकल्प लिगेसी विजार्ड्स विकल्पों में उपलब्ध नहीं है, तो इसे सक्षम करने के लिए निम्न कार्य करें।

• कीबोर्ड पर Alt + T + O दबाकर एक्सेल विकल्प खोलें।
• डेटा टैब पर क्लिक करें।
• "लिगेसी डेटा इम्पोर्ट विजार्ड्स दिखाएं" विकल्पों के तहत "फ्रॉम टेक्स्ट (लिगेसी)" नामक बॉक्स को चेक करें।
• अंत में सेटिंग्स सेव करने के लिए OK दबाएं।

टेक्स्ट फ़ाइल इम्पोर्ट करें
जैसा कि हमने लिगेसी विजार्ड्स से फ्रॉम टेक्स्ट (लिगेसी) विकल्प पर क्लिक किया है, इसने टेक्स्ट फ़ाइल इम्पोर्ट करने के लिए "इम्पोर्ट टेक्स्ट फ़ाइल" विंडो खोली। फ़ाइल स्थान पर नेविगेट करें और इसे इम्पोर्ट करने के लिए चुनें।

सेटिंग्स कॉन्फ़िगर करें
चरण 1 का 3:

• डिलिमिटेड विकल्प चुनें।
• "मेरे डेटा में हेडर्स हैं" विकल्प चेक करें, क्योंकि हम जिस सैंपल डेटासेट का उपयोग कर रहे हैं उसमें हेडर है।
• Next बटन पर क्लिक करें।

चरण 2 का 3:

• डिलीमीटर्स विकल्पों के तहत सेमीकोलन और कॉमा विकल्प चेक करें।

नोट: हमारे डेटासेट में ये दो डिलीमीटर्स हैं। "अन्य" विकल्प सहित कुछ अधिक विकल्प हैं जो सूची में उपलब्ध नहीं हैं।

• "लगातार डिलीमीटर्स को एक मानें" विकल्प भी चेक करें।
• Next बटन पर क्लिक करें।

चरण 3 का 3:

• डिफ़ॉल्ट रूप से, कॉलम डेटा फॉर्मेट General है। इस उदाहरण में, हम इसे वैसे ही छोड़ देंगे।
• अंत में Finish बटन दबाएं।

लक्ष्य चुनें
उपरोक्त सभी चरणों के बाद, कहां रखना है अपने इम्पोर्टेड डेटा चुनें। यहां, हमने वर्तमान वर्कशीट में सेल A1 चुना है।

इम्पोर्टेड डेटासेट

और पढ़ें: किसी अन्य एक्सेल फ़ाइल से एक्सेल में डेटा कैसे इम्पोर्ट करें (2 तरीके)

2. गेट एंड ट्रांसफॉर्म डेटा फीचर का उपयोग करके टेक्स्ट फ़ाइल डेटा को तैयार करें और फिर इम्पोर्ट करें

इस उदाहरण में, हम एकाधिक डिलीमीटर्स के साथ टेक्स्ट फ़ाइल से एक्सेल वर्कशीट में डेटा इम्पोर्ट करने के लिए एक्सेल के गेट एंड ट्रांसफॉर्म डेटा फीचर का उपयोग करेंगे। लेकिन इस बार हमें इम्पोर्ट करने से पहले डेटा तैयार करने की आवश्यकता है।

डेटासेट तैयार करें
हमें गेट एंड ट्रांसफॉर्म फीचर के साथ काम करने के लिए एकाधिक डिलीमीटर्स को एक डिलीमीटर तक कम करने की आवश्यकता है। हमारे डेटासेट के लिए, हमें सभी सेमीकोलन को कॉमा से बदलना होगा। ऐसा करने के लिए, हमने निम्न कार्य किया है।

• मूल टेक्स्ट फ़ाइल की एक कॉपी बनाई जिसका नाम SampleDataModified.txt है।
• फ़ाइल खोली और Ctrl + H दबाया।
• Replace विंडो में "Find what" इनपुट बॉक्स में एक सेमीकोलन और "Replace with" इनपुट बॉक्स में एक कॉमा डाला।
• Replace All बटन पर क्लिक करें।

• अब हमारे डेटासेट में केवल कॉमा डिलीमीटर्स के रूप में हैं।

टेक्स्ट फ़ाइल इम्पोर्ट करें
एक्सेल में गेट एंड ट्रांसफॉर्म फीचर का उपयोग करके संशोधित टेक्स्ट फ़ाइल को इम्पोर्ट करने के लिए सरल चरणों का पालन करें।

• डेटा टैब पर जाएं।
• Get Data बटन पर क्लिक करें।
• From File विकल्प पर होवर करें।
• From Text/CSV विकल्प पर क्लिक करें.

• SampleTextModified.txt के फ़ाइल स्थान पर नेविगेट करें और इम्पोर्ट करने के लिए फ़ाइल चुनें।

• पूर्वावलोकन में, डेटासेट एक टेबल के रूप में दिखाया गया है।
• Load बटन पर क्लिक करें।

इम्पोर्टेड डेटासेट

और पढ़ें: टेक्स्ट फ़ाइल से एक्सेल में डेटा कैसे इम्पोर्ट करें (3 विधियां)

समान पठन

• VBA का उपयोग करके एक्सेल से वर्ड में डेटा स्वचालित रूप से इम्पोर्ट करें (2 तरीके)
• एक्सेल फॉर्मूला का उपयोग करके सूची से डेटा कैसे निकालें (5 विधियां)
• एक्सेल मैक्रो: एकाधिक एक्सेल फ़ाइलों से डेटा निकालें (4 विधियां)
• एक्सेल में तारीख से वर्ष कैसे निकालें (3 तरीके)
• एक्सेल में तारीख से महीना कैसे निकालें (5 त्वरित तरीके)

3. एक्सेल वर्कशीट में एकाधिक डिलीमीटर्स के साथ टेक्स्ट फ़ाइल डेटा इम्पोर्ट करने के लिए VBA कोड चलाएं

हम VBA Split और InStr फ़ंक्शंस का उपयोग करके टेक्स्ट फ़ाइलों को एक्सेल वर्कशीट में इम्पोर्ट करने के लिए VBA कोड कॉन्फ़िगर करने जा रहे हैं। आइए पहले फ़ंक्शंस पेश करें।

VBA Split Function: एक्सेल VBA में Split फ़ंक्शन का उपयोग स्ट्रिंग को सबस्ट्रिंग्स में विभाजित करने के लिए किया जाता है। फ़ंक्शन एक ज़ीरो-बेस्ड वन-डाइमेंशनल ऐरे लौटाता है। ऐरे का प्रत्येक तत्व एक सबस्ट्रिंग है जो प्रीडिफाइंड डिलीमीटर द्वारा अलग किया गया है। VBA फ़ंक्शन का सिंटैक्स है-

Split(expression, [delimiter, [limit, [compare]]])

यहां,
expression– यह आवश्यक पैरामीटर एक टेक्स्ट स्ट्रिंग को दर्शाता है जिसमें सबस्ट्रिंग्स और डिलीमीटर होते हैं। यदि स्ट्रिंग खाली है, तो फ़ंक्शन खाली ऐरे भी लौटाएगा।

delimiter– एक स्ट्रिंग कैरेक्टर जिसका उपयोग स्ट्रिंग को सबस्ट्रिंग्स में विभाजित करने के लिए किया जाता है। यदि छोड़ा गया तो फ़ंक्शन स्पेस कैरेक्टर को डिलीमीटर के रूप में उपयोग करेगा। और यदि यह एक खाली स्ट्रिंग है, तो यह मूल स्ट्रिंग को आउटपुट के रूप में लौटाएगा।

limit– यह आउटपुट में लौटाए जाने वाले सबस्ट्रिंग्स की संख्या को दर्शाता है। यदि छोड़ा गया, तो फ़ंक्शन सभी सबस्ट्रिंग्स लौटाएगा।

compare– इसके कई मान हैं। हम केस–सेंसिटिव डिलीमीटर के लिए vbBinaryCompare और केस-इनसेंसिटिव डिलीमीटर के लिए vbTextCompare का उपयोग Split फ़ंक्शन में कर सकते हैं।

VBA InStr Function: हम एक्सेल VBA में InStr फ़ंक्शन का उपयोग प्रीडिफाइंड पोजीशन से दिए गए स्ट्रिंग के भीतर विशिष्ट स्ट्रिंग खोजने के लिए करते हैं। सिंटैक्स है-

InStr([start], string 1, string 2, [compare])

यहां,
[start]- वह पोजीशन जिससे यह खोज शुरू करता है। यदि छोड़ा गया तो डिफ़ॉल्ट 1 है।
string 1- वह दिया गया स्ट्रिंग जिससे फ़ंक्शन वांछित स्ट्रिंग खोजता है।
string 2- वह विशिष्ट स्ट्रिंग जिसे फ़ंक्शन दिए गए स्ट्रिंग के भीतर खोजता है।
[compare]- तुलना का प्रकार। डिफ़ॉल्ट बाइनरी तुलना है।

टेक्स्ट फ़ाइल डेटा को एकाधिक डिलीमीटर्स के साथ एक्सेल वर्कशीट में इम्पोर्ट करने के लिए, हमें विजुअल बेसिक एडिटर खोलना और VBA कोड लिखना होगा। विजुअल बेसिक एडिटर खोलने और वहां कुछ कोड लिखने के लिए चरणों का पालन करें।

• एक्सेल रिबन से डेवलपर टैब पर जाएं।
• Visual Basic विकल्प पर क्लिक करें।

• Visual Basic For Applications विंडो में, New Module विकल्प चुनने के लिए Insert ड्रॉपडाउन पर क्लिक करें।

अब अपना कोड विजुअल कोड एडिटर के अंदर डालें और इसे चलाने के लिए F5 दबाएं। निम्न कोड VBA Replace फ़ंक्शन का उपयोग करके टेक्स्ट फ़ाइल के सेमीकोलन को कॉमा से बदल देता है।

Sub ImportTextFileDatatoExcel() Dim fileLocation As String, textData As String Dim rowNum As Long folderLocation = "D:\Exceldemy" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(folderLocation) rowNum = 1 Close #1 For Each textFile In folder.Files fileLocation = folder & "\" & textFile.Name Open fileLocation For Input As #1 Do While Not EOF(1) Line Input #1, textData textData = Replace(textData, ";", ",") If InStr(textData, ",") = 0 Then Cells(rowNum, 1) = textData Else tArray = Split(textData, ",") nColumn = 1 For Each element In tArray Cells(rowNum, nColumn) = element nColumn = nColumn + 1 Next element End If rowNum = rowNum + 1 Loop Close #1 Next textFile End Sub

उपरोक्त कोड में, अपना खुद का फ़ोल्डर स्थान डालें जो कोड में टेक्स्ट फ़ाइल रखता है। निम्न स्क्रीनशॉट इस उदाहरण के लिए फ़ाइल स्थान दिखाता है।

इम्पोर्टेड डेटासेट

और पढ़ें: डिलीमीटर के साथ एक्सेल को टेक्स्ट फ़ाइल में बदलें (2 आसान दृष्टिकोण)

नोट्स

• हमारे द्वारा उपयोग किया गया VBA कोड कुशलतापूर्वक गंतव्य फ़ोल्डर में एकाधिक टेक्स्ट फ़ाइलों के साथ काम कर सकता है।
• यदि निर्दिष्ट डिलीमीटर स्रोत स्ट्रिंग में मौजूद नहीं है, तो Split फ़ंक्शन स्ट्रिंग को वैसे ही लौटाएगा।
• यदि Split फ़ंक्शन का तुलना तर्क छोड़ा गया है, तो डिफ़ॉल्ट मान vbBinaryCompare है।
• InStrRev फ़ंक्शन 0 लौटाता है यदि सबस्ट्रिंग दिए गए स्ट्रिंग में मौजूद नहीं है।

निष्कर्ष

अब, हम जानते हैं कि उपयुक्त उदाहरणों की मदद से एक्सेल में एकाधिक डिलीमीटर्स के साथ टेक्स्ट फ़ाइल डेटा को कैसे इम्पोर्ट किया जाए। उम्मीद है, यह आपको कार्यक्षमता का अधिक आत्मविश्वास से उपयोग करने में मदद करेगा। कोई प्रश्न या सुझाव नीचे टिप्पणी बॉक्स में डालना न भूलें।

संबंधित लेख

• एक्सेल में फ़िल्टर्ड डेटा को दूसरी शीट में निकालें (4 विधियां)
• एक्सेल शीट से डेटा कैसे निकालें (6 प्रभावी विधियां)
• छवि से डेटा एक्सेल में निकालें (त्वरित चरणों के साथ)
• नोटपैड को कॉलम के साथ एक्सेल में कैसे बदलें (5 विधियां)
• एक्सेल VBA: वेबसाइट से डेटा स्वचालित रूप से खींचें (2 विधियां)
• टेक्स्ट फ़ाइल को एक्सेल में बदलने के लिए VBA कोड (7 विधियां)