Я хотел бы перейти через все отмеченные строки и дублировать их.

Это будет автоматический способ нажатия 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 и 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

1 ответ1

0

Моим неумелым решением этого было:

-добавить "## BOOK отмечена LiNe ##" для каждой строки закладки

- запустить следующее в VBS-файле

-удалять все записи "## BOOK, отмеченные 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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .