Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » 2010 - Нумерация между строк

Ответить
Настройки темы
2010 - Нумерация между строк

Ветеран


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

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


Все привет!

Имеется файл с текстом. как между строчками сделать нумерацию в Wordе
чтобы номерация была между строк а не на самой строке?

например
1
вапыарыварыапрыапрыапры
2
лотдлотржлдотрлот
3

Отправлено: 15:20, 14-06-2020

 

Модератор


Moderator


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

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


А можно узнать цель? Вы потом собираетесь что-то дописывать после номера или номер будет относиться к тексту под ним?

-------
При заполнении сведений о конфигурации компьютера не забудь поставить флажок: отображать - "Да"
-------------------------------------------------------------------------------------------
Ассоциация VirusNet - помощь и обучение борьбе с вирусами. Некоторые вопросы загрузки в моем блоге

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:16, 14-06-2020 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


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

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


Цитата okshef:
А можно узнать цель? Вы потом собираетесь что-то дописывать после номера или номер будет относиться к тексту под ним? »
У меня есть текстовый файл с субтитрами, он составлен некорректно, поэтому не отображаются во многих плеерах. В оригинальном шаблоне перед каждой строчкой установлена цифра - нумерация.
В ручную это делать нереально долго

Отправлено: 13:14, 27-06-2020 | #3


Модератор


Moderator


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

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


На мой взгляд, самым простым способом будет включить отображение непечатных знаков, тогда будут видны абзацы. Затем встать на пустой абзац, применить к нему нумерацию, выделить этот абзац, а после этого выбрать "метелку" (копировать форматирование) двойным щелчком и применить ко всем пустым абзацам.
Вполне возможно, что для большого количества строк этот процесс можно автоматизировать макросом, но в этом я вам не помогу.

-------
При заполнении сведений о конфигурации компьютера не забудь поставить флажок: отображать - "Да"
-------------------------------------------------------------------------------------------
Ассоциация VirusNet - помощь и обучение борьбе с вирусами. Некоторые вопросы загрузки в моем блоге


Отправлено: 16:22, 27-06-2020 | #4


Ветеран


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

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


По-хорошему, надо поглядеть на этот файл:
Цитата seman:
Имеется файл с текстом »

Отправлено: 09:47, 28-06-2020 | #5


Ветеран


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

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


Вложения
Тип файла: zip We Already Had Great Things.srt.zip
(22.8 Kb, 4 просмотров)

Цитата okshef:
Вполне возможно, что для большого количества строк этот процесс можно автоматизировать макросом »
да, в ручную долго очень

Цитата Iska:
По-хорошему, надо поглядеть на этот файл: »

Отправлено: 20:50, 08-07-2020 | #6


Ветеран


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

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


На WSH:
Скрытый текст
Код: Выделить весь код
Option Explicit

Dim strSourceFile

Dim objFSO
Dim strContent

Dim iCount


If WScript.Arguments.Count = 1 Then
	strSourceFile = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FileExists(strSourceFile) Then
		If StrComp(objFSO.GetExtensionName(strSourceFile), "srt", vbTextCompare) = 0 Then
			With objFSO.OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With WScript.CreateObject("VBScript.RegExp")
				.Pattern = "\n(\n\d{2}:\d{2}\.\d{3} --> \d{2}:\d{2}\.\d{3}\n)"
				
				If .Test(strContent) Then
					iCount = 0
					
					Do
						iCount = iCount + 1
						strContent = .Replace(strContent, vbLf & vbLf & CStr(iCount) & "$1")
					Loop While .Test(strContent)
					
					With objFSO.CreateTextFile(strSourceFile, True)
						.Write strContent
						.Close
					End With
				Else
					WScript.Echo "Not found pattern in text."
					WScript.Quit 4
				End if
			End With
		Else
			WScript.Echo "Need .srt file."
			WScript.Quit 3
		End If
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

Путь к исходному файлу задаётся параметром скрипта (также можно просто перетянуть .srt файл на скрипт в Проводнике).
Это сообщение посчитали полезным следующие участники:

Отправлено: 02:47, 09-07-2020 | #7


Ветеран


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

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


Цитата Iska:
Путь к исходному файлу задаётся параметром скрипта (также можно просто перетянуть .srt файл на скрипт в Проводнике) »
Спасибо, у меня с программированием плохо, мне нужно сохранить этот текст в блокноте?

Отправлено: 18:40, 09-07-2020 | #8


Ветеран


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

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


seman, сохраните приведённый код в файл с расширением .vbs. Затем используйте:
Цитата Iska:
также можно просто перетянуть .srt файл на скрипт в Проводнике »
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:15, 11-07-2020 | #9



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » 2010 - Нумерация между строк

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
[решено] Автоматическая нумерация строк в Calc WSonic Хочу все знать 15 07-10-2016 09:25
CMD/BAT - Нумерация строк в файле ВиталийВ Скриптовые языки администрирования Windows 2 25-09-2015 19:06
2013 - Сквозная нумерация строк alleclf Microsoft Office (Word, Excel, Outlook и т.д.) 2 23-12-2014 11:15
CMD/BAT - [решено] Нумерация строк в cmd werov Скриптовые языки администрирования Windows 20 08-08-2011 12:22
PHP|Кол-во строк между выбранными тегами morgan1991 Вебмастеру 0 17-03-2010 22:06




 
Переход