किसी फ़ाइल फ़ाइल में तत्काल विंडो की सामग्री लिखें

Question

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

Answer 1

यहां मेरा सुझाव है: तत्काल विंडो और एक ही समय में फ़ाइल में लिखें। नीचे उदाहरण।

जानकारी को पहली बार तत्काल विंडो में क्यों पारगमन करें, और उसके बाद इसे वहां से एक फ़ाइल में लिखें? यह सिर्फ उलटा और बेकार मुश्किल लगता है!

Dim s As String 
Dim n As Integer 

n = FreeFile() 
Open "C:\test.txt" For Output As #n 

s = "Hello, world!" 
Debug.Print s ' write to immediate 
Print #n, s ' write to file 

s = "Long time no see." 
Debug.Print s 
Write #n, s ' other way of writing to file 

Close #n 


Dim FSO As Scripting.FileSystemObject 
Set FSO = New Scripting.FileSystemObject 
Dim txs As Scripting.TextStream 
Set txs = FSO.CreateTextFile("C:\test2.txt") 
s = "I like chickpeas." 
Debug.Print s ' still writing to immediate 
txs.WriteLine s ' third way of writing to file 
txs.Close 
Set txs = Nothing 
Set FSO = Nothing 

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

Answer 2

इस कोड को तत्काल विंडो में रखें और सी # में JSON टेक्स्ट में सूची लिखने के लिए एंटर दबाएं।

System.IO.File.WriteAllText(@"C:\Users\m1028200\Desktop\Json2.txt", 
JsonConvert.SerializeObject(resultsAll));