नोटपैड ++ में सभी बुकमार्क लाइनों की नकल कैसे करें

Question

मैं सभी बुकमार्क लाइनों के माध्यम से जाना और उन्हें डुप्लिकेट करना चाहूंगा।

यह F2 फिर Ctrl + D दबाने का एक स्वचालित तरीका होगा।

मैंने मैक्रोज़ की कोशिश की है और नियमित अभिव्यक्ति के साथ दो और 1 \ _ जगह लेता है।

--------------------- उदाहरण से पहले ------------------------

hostname RTA 
interface Loopback0
 ip address 203.250.13.41 255.255.255.0
interface Ethernet0
 ip address 203.250.14.1 255.255.255.0
router ospf 10
 network 203.250.13.41 0.0.0.0 area 1
 network 203.250.0.0 0.0.255.255 area 0.0.0.0

ऊपर कोड की 8 लाइनें हैं। मैं बुकमार्क लाइनों 2 & amp; 4।

------------------------ उदाहरण के बाद -----------------

hostname RTA 
interface Loopback0
interface Loopback0
 ip address 203.250.13.41 255.255.255.0
interface Ethernet0
interface Ethernet0
 ip address 203.250.14.1 255.255.255.0
router ospf 10
 network 203.250.13.41 0.0.0.0 area 1
 network 203.250.0.0 0.0.255.255 area 0.0.0.0

Comments

और दोनों (मैक्रोज़ और RegEx) काम करता है? ;) क्या आप अधिक विशिष्ट हो सकते हैं?

— g2mk

दोनों काम नहीं करते हैं, उदाहरण के लिए, यदि लाइन 10 और 20 को बुकमार्क किया गया है। मैं एक लाइन 21 लाइन में जोड़ना चाहता हूं, जो लाइन 20 की एक प्रति है। और एक लाइन लाइन 11 में जोड़ी गई, जो लाइन 10 की नकल है।

— barryoff

हां - यह एक एन ++ बग है ... मैक्रो को जितनी जल्दी हो सके रिकॉर्डिंग हटा दें।

— g2mk

Answer 1

मेरा यह निराधार समाधान था: -

प्रत्येक बुकमार्क लाइन पर "##" बुकमार्क किए गए LiNe ## "जोड़ें

एक vbs फ़ाइल में निम्नलिखित -run

सभी "## बुकमार्क किए गए LiNe ##" प्रविष्टियां दर्ज करें।

outFile="C:\Users\user\Desktop\test_loop1-out.txt"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFS = CreateObject("Scripting.FileSystemObject")

Set objFileout = objFSO.CreateTextFile(outFile,True)

Set objFile = objFS.OpenTextFile(strFile)

Do Until objFile.AtEndOfStream
strLine= objFile.ReadLine
objFileout.Write strLine & vbCrLf
if strLine.contains("##BOOKmarked LiNe##") Then objFileout.Write strLine & vbCrLf
Loop
objFile.Close
objFileout.Close