CMD/BAT - [решено] можно ли батником разрезать файл по шаблону?

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

CMD/BAT - [решено] можно ли батником разрезать файл по шаблону?

ruslaw

Пользователь

Сообщения: 87
Благодарности: 0

Профиль | Отправить PM | Цитировать

Есть один текстовый файл (file.txt) в котором заключена информация на несколько html-файлов.
Примерно такой:
-------------------------------------------
<html>
<title>1</title>
<body>
1111111111
</body>
</html>
<html>
<title>2</title>
<body>
2222222222
</body>
</html>
<html>
<title>3</title>
<body>
3333333333
</body>
</html>
..........
<html>
<title>x</title>
<body>
xxxxxxxxxx
</body>
</html>
-------------------------------------------
как превратить его средствами bat-файлов (если можно) в несколько html-файлов: 1.htm, 2.htm, 3.htm .... x.htm

Отправлено: 18:14, 27-09-2013

Pet20211029

Новый участник

Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать

Перебрал vbs для своих целей, теперь есть возможность указать путь к (file.txt), так же можно его или другой файл, просто перетащить на сам vbs. Может кому и пригодится.

Скрытый текст

Код:

Option Explicit
Dim objArgs, readablefile, strContent, objRegExp, objMatch, strNewreadablefile
readablefile = "file.txt"
Set objArgs = WScript.Arguments     
' Для обработки можно просто перетянуть файл на значек сценария.		
If objArgs.Count > 0 Then readablefile = objArgs(0)	

	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(readablefile) Then
			With .OpenTextFile(readablefile)
				strContent = .ReadAll()
				.Close
			End With
			
			Set objRegExp = WScript.CreateObject("VBScript.RegExp")
			
			With objRegExp
				.Pattern = "<html>[\s\S]*?<title>([\s\S]*?)</title>[\s\S]*?</html>"
				.Global = True
			End With
			
			If objRegExp.Test(strContent) Then
				For Each objMatch In objRegExp.Execute(strContent)
					strNewreadablefile = .BuildPath(.GetParentFolderName(readablefile), objMatch.SubMatches(0) & ".html")
					'WScript.Echo "Create readablefile [" & strNewreadablefile & "]."
					
					With .CreateTextFile(strNewreadablefile)
						.WriteLine objMatch.Value
						.Close
					End With
				Next
			Else
				WScript.Echo "No matches"
			End If
		Else
			WScript.Echo "Source readablefile [" & readablefile & "] not found."
		End If
	End With
WScript.Quit 0

Последний раз редактировалось Pet20211029, 30-10-2021 в 19:12.

Отправлено: 19:05, 30-10-2021 | #11