दिलचस्प पोस्ट
मैं क्रोम 37 में window.showmodaldialog कैसे काम कर सकता हूँ? मैं जावा में गैर-प्रिंट करने योग्य यूनिकोड वर्णों को कैसे बदल सकता / सकती हूं? कंसोल से एंड्रॉइड ऐप्लीकेशन रोकना आईफ़ोन डिवाइस पर विधि स्विजल बाश में, मैं कैसे जांच सकता हूँ अगर कोई स्ट्रिंग कुछ मान से शुरू होती है? सी में एक स्ट्रिंग पर स्विच करने का सबसे अच्छा तरीका Android पर क्रोम में भौतिक स्क्रीन आयाम / डीपीआई / पिक्सेल घनत्व प्राप्त करना एक्लिप्स के लिए सबसे अच्छी जेवीएम सेटिंग्स क्या हैं? एंड्रॉइड – 15 मिनट तक टाइम पिकर मिनट कीबोर्ड को खारिज करने का आसान तरीका? एक .net ऑब्जेक्ट के आकार का पता लगाएं एंड्रॉइड में एसडी कार्ड से मैं एक टेक्स्ट फाइल कैसे पढ़ सकता हूं? बैकस्लैश दो बार क्यों दिखाई देते हैं? जावा JAR फ़ाइल में एक संसाधन के लिए पथ कैसे प्राप्त करें एएसपी.नेट एमवीसी सुरक्षा पैच संस्करण 3.0.0.1 टू ब्रेक्स बिल्ड

VBA में पंक्ति द्वारा पाठ फ़ाइल को पढ़ें / पार्स करें

मैं VBA का उपयोग कर एक पाठ दस्तावेज़ को पार्स करने की कोशिश कर रहा हूं और पाठ फ़ाइल में दिए गए पथ को वापस लौटाता हूं।
उदाहरण के लिए, पाठ फ़ाइल ऐसा दिखेगी:

*Blah blah instructions *Blah blah instructions on line 2 G:\\Folder\...\data.xls D:\\AnotherFolder\...\moredata.xls 

मैं चाहता हूं कि VBA को एक बार में 1 लाइन लोड करने के लिए, और यदि वह * साथ शुरू होता है तो अगली पंक्ति पर जाइये (उस पंक्ति की टिप्पणी के समान) एक फ़ाइल पथ के साथ लाइनों के लिए, मैं उस पथ को सेल में लिखना चाहता हूं, पहले पथ के लिए A2 , अगले के लिए B2 , आदि।

जिन मुख्य चीजें मैं जवाब देने की उम्मीद कर रहा था वे थे:
1. VBA का उपयोग कर पाठ फ़ाइल के माध्यम से पढ़ने का सबसे अच्छा / सरल तरीका क्या है?
2. मैं रेखा से यह रेखा कैसे कर सकता हूं?

वेब के समाधान से एकत्रित समाधान "VBA में पंक्ति द्वारा पाठ फ़ाइल को पढ़ें / पार्स करें"

एक पाठ फ़ाइल के सबसे बुनियादी पढ़ने के लिए, open उपयोग करें

उदाहरण:

 Dim FileNum As Integer Dim DataLine As String FileNum = FreeFile() Open "Filename" For Input As #FileNum While Not EOF(FileNum) Line Input #FileNum, DataLine ' read in data 1 line at a time ' decide what to do with dataline, ' depending on what processing you need to do for each case Wend 

मैं फाइलसिस्टमऑब्जेक्ट को एक TxtStream के साथ फाइल पढ़ने का सबसे आसान तरीका खोजता हूं

 Dim fso As FileSystemObject: Set fso = New FileSystemObject Set txtStream = fso.OpenTextFile(filePath, ForReading, False) 

फिर इस txtStream ऑब्जेक्ट के साथ आपके पास सभी प्रकार के उपकरण होते हैं जो txtStream FreeFile() विधि का उपयोग करने के विपरीत) इसलिए कम अनुमान वाली कार्यवाही है। प्लस आप 'को एक FreeFile आवंटित किया है और आशा है कि यह वास्तव में अभी भी जब से आप इसे सौंपा के बाद से मुक्त है।

आप एक फ़ाइल पढ़ सकते हैं जैसे:

 Do While Not txtStream.AtEndOfStream txtStream.ReadLine Loop txtStream.Close 

नोट: इसमें माइक्रोसॉफ्ट स्क्रिप्टिंग रनटाइम के संदर्भ की आवश्यकता है

संपूर्णता के लिए; मेमोरी में लोड किए गए डेटा के साथ काम करना;

 dim hf As integer: hf = freefile dim lines() as string, i as long open "c:\bla\bla.bla" for input as #hf lines = Split(input$(LOF(hf), #hf), vbnewline) close #hf for i = 0 to ubound(lines) debug.? "Line"; i; "="; lines(i) next 

आप इस कोड को टेक्स्ट फ़ाइल में पंक्ति द्वारा रेखा को पढ़ने के लिए इस्तेमाल कर सकते हैं और आप पहले वर्ण के बारे में भी जांच सकते हैं "*" तो आप उसे छोड़ सकते हैं ..

 Public Sub Test() Dim ReadData as String Open "C:\satheesh\myfile\file.txt" For Input As #1 Do Until EOF(1) Line Input #1, ReadData 'Adding Line to read the whole line, not only first 128 positions If Not Left(ReadData, 1) = "*" then '' you can write the variable ReadData into the database or file End If Loop Close #1 End Sub