|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Необходимо найти все строки которые начинаются с "download:"https:" и заканчиваются |
|
VBS/WSH/JS - [решено] Необходимо найти все строки которые начинаются с "download:"https:" и заканчиваются
|
Старожил Сообщения: 175 |
Профиль | Отправить PM | Цитировать Здравствуйте, нужна ваша помощь.
Есть текстовый файл сгенерированный программой, вид содержимого файла: {'title':'Эпизод 1', 'file':'[1080p]//de2.anilibria.tv/videos/ts/8374/0001-hd/playlist.m3u8,[720p]//de2.anilibria.tv/videos/ts/8374/0001/playlist.m3u8,[480p]//de2.anilibria.tv/videos/ts/8374/0001-sd/playlist.m3u8', download:"https://x.anilibria.tv/get/3BdXdlP0bs4wlKyjQcXZpA/1557795967/mp4/8374/0001.mp4?download=Hitoribocchi no Marumaru Seikatsu-1-sd.mp4", 'id': 's1'}, {'title':'Эпизод 2', 'file':'[1080p]//de2.anilibria.tv/videos/ts/8374/0002-hd/playlist.m3u8,[720p]//de2.anilibria.tv/videos/ts/8374/0002/playlist.m3u8,[480p]//de2.anilibria.tv/videos/ts/8374/0002-sd/playlist.m3u8', download:"https://x.anilibria.tv/get/ciP3toJ3rI3-x25Rqxxa0g/1557795967/mp4/8374/0002.mp4?download=Hitoribocchi no Marumaru Seikatsu-2-sd.mp4", 'id': 's2'}, {'title':'Эпизод 3', 'file':'[1080p]//de2.anilibria.tv/videos/ts/8374/0003-hd/playlist.m3u8,[720p]//de2.anilibria.tv/videos/ts/8374/0003/playlist.m3u8,[480p]//de2.anilibria.tv/videos/ts/8374/0003-sd/playlist.m3u8', download:"https://x.anilibria.tv/get/2xTCA5dY7tiA634RtlXrTw/1557795967/mp4/8374/0003.mp4?download=Hitoribocchi no Marumaru Seikatsu-3-sd.mp4", 'id': 's3'}, {'title':'Эпизод 4', 'file':'[1080p]//de2.anilibria.tv/videos/ts/8374/0004-hd/playlist.m3u8,[720p]//de2.anilibria.tv/videos/ts/8374/0004/playlist.m3u8,[480p]//de2.anilibria.tv/videos/ts/8374/0004-sd/playlist.m3u8', download:"https://x.anilibria.tv/get/Zgk0waIDnyzpgH4K3QM1hw/1557795967/mp4/8374/0004.mp4?download=Hitoribocchi no Marumaru Seikatsu-4-sd.mp4", 'id': 's4'}, {'title':'Эпизод 5', 'file':'[1080p]//de2.anilibria.tv/videos/ts/8374/0005-hd/playlist.m3u8,[720p]//de2.anilibria.tv/videos/ts/8374/0005/playlist.m3u8,[480p]//de2.anilibria.tv/videos/ts/8374/0005-sd/playlist.m3u8', Hitoribocchi no Marumaru Seikatsu-5-sd.mp4", =Hitoribocchi no Marumaru Seikatsu-5-sd.mp4", 'id': 's5'} Например чтобы были удалены только строки такого вида: Количество строк каждый раз разные.... |
|
------- Отправлено: 05:52, 12-05-2019 |
Ветеран Сообщения: 2709
|
Профиль | Отправить PM | Цитировать А можно на языке vbs удалить все эти фрагменты
FileIn = "Z:\Box_In\playlist.txt" RegExp = "download:""https:.*?\.mp4"", " With WScript.Arguments If .Count <> 0 Then FileIn = .Item(0) End With With CreateObject("Scripting.FileSystemObject") On Error Resume Next With .OpenTextFile(FileIn, 1) If Err.Number <> 0 Then MsgBox "Error open file " + vbCrLf + vbCrLf + FileIn + vbCrLf + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description WScript.Quit 1 End If InTxt = .ReadAll If Err.Number <> 0 Then MsgBox "Error read file " + vbCrLf + vbCrLf + FileIn + vbCrLf + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description WScript.Quit 1 End If .Close On Error GoTo 0 End With With CreateObject("VBScript.RegExp") .Pattern = RegExp .IgnoreCase = True .MultiLine = True .Global = True Result = .Replace(InTxt, "") End With With .CreateTextFile(FileIn, True) .Write Result .Close End With End With MsgBox "Done!" |
------- Последний раз редактировалось megaloman, 14-05-2019 в 07:43. Отправлено: 07:28, 14-05-2019 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Crazy Сообщения: 1171
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 08:01, 14-05-2019 | #12 |
Старожил Сообщения: 175
|
Профиль | Отправить PM | Цитировать Цитата megaloman:
|
|
------- Отправлено: 11:49, 14-05-2019 | #13 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать megaloman, несколько замечаний по коду:
|
Последний раз редактировалось Iska, 14-05-2019 в 17:56. Причина: Грамматика Отправлено: 17:42, 14-05-2019 | #14 |
Ветеран Сообщения: 3806
|
Профиль | Отправить PM | Цитировать |
Отправлено: 21:09, 14-05-2019 | #15 |
Ветеран Сообщения: 2709
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Цитата Iska:
то это было бы полезным.
................. With CreateObject("VBScript.RegExp") .Pattern = RegExp .IgnoreCase = True .Global = True If Not .Test(InTxt) Then MsgBox "no substrings to replace. Reg expression:" + vbCrLf + vbCrLf + """" + RegExp + """" WScript.Quit 1 End If Result = .Replace(InTxt, "") End With ................. |
||
------- Отправлено: 22:20, 14-05-2019 | #16 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Busla:
Цитата Busla:
Цитата megaloman:
|
|||
Отправлено: 19:30, 15-05-2019 | #17 |
Ветеран Сообщения: 3806
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Цитата Iska:
тогда и вопрос перезаписи снимется Цитата Iska:
Цитата Iska:
|
||||
Отправлено: 21:01, 15-05-2019 | #18 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата Busla:
Цитата Busla:
Цитата Busla:
Цитата Busla:
Цитата Busla:
|
|||||
Отправлено: 21:51, 15-05-2019 | #19 |
Crazy Сообщения: 1171
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
|
------- Отправлено: 22:37, 15-05-2019 | #20 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
CMD/BAT - Как из строки в .txt вывести символы "которые там обновляются"в другой .txt | Bombastig | Скриптовые языки администрирования Windows | 6 | 08-02-2014 04:54 | |
Интерфейс - [решено] Нет "стеклянного" эффекта при наведении на "Свернуть все окна" | aka_smile | Microsoft Windows 7 | 5 | 21-09-2012 11:49 | |
Не получается найти все выпуски "Хакер"+"спец"+"железо" | verdix | Хочу все знать | 5 | 29-11-2008 15:19 | |
Запретить/удалить пункт "Programs" ("Программы") из меню кнопки "Start" ("Пуск") | submaster | Microsoft Windows NT/2000/2003 | 5 | 13-09-2006 12:29 |
|