|
Компьютерный форум 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 |
Ветеран Сообщения: 2708
|
Профиль | Отправить PM | Цитировать Имя файла можно прописывать явным образом в скрипте, либо указывать в аргументе скрипта в кавычках при вызове, либо создать, например, на рабочем столе значок на этот скрипт и в проводнике затягивать на него мышкой обрабатываемый файл
FileIn = "Z:\Box_In\Исходный файл.txt" S1 = "download:""https:" S2 = ".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 Mas = Split(InTxt, vbCrLf) With .CreateTextFile(FileIn, True) For Each iMas In Mas If Not (InStr(1, iMas, S1) = 1 And (InStrRev(iMas, S2) + Len(S2) - 1) = Len(iMas)) Then .WriteLine iMas End If Next .Close End With End With |
------- Последний раз редактировалось megaloman, 12-05-2019 в 15:24. Отправлено: 15:16, 12-05-2019 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 3806
|
Профиль | Отправить PM | Цитировать |
Отправлено: 15:20, 12-05-2019 | #3 |
Старожил Сообщения: 175
|
Профиль | Отправить PM | Цитировать Цитата megaloman:
А расширение вашего скрипта vbs? FileIn = "Z:\Box_In\Исходный файл.txt" S1 = "download:""https:" S2 = ".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 Mas = Split(InTxt, vbCrLf) With .CreateTextFile(FileIn, True) For Each iMas In Mas If Not (InStr(1, iMas, S1) = 1 And (InStrRev(iMas, S2) + Len(S2) - 1) = Len(iMas)) Then .WriteLine iMas End If Next .Close End With End With |
|
------- Отправлено: 00:48, 13-05-2019 | #4 |
Ветеран Сообщения: 2708
|
Профиль | Отправить PM | Цитировать angel_lyucifer, расширение vbs, заархивируйте и дайте образец Вашего файла, так можно сто лет гадать, в чем дело.
|
|
------- Отправлено: 01:25, 13-05-2019 | #5 |
Старожил Сообщения: 175
|
Профиль | Отправить PM | Цитировать Цитата megaloman:
|
|
------- Отправлено: 06:12, 13-05-2019 | #6 |
Crazy Сообщения: 1171
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 07:12, 13-05-2019 | #7 |
Старожил Сообщения: 175
|
Профиль | Отправить PM | Цитировать Цитата YuS_2:
|
|
------- Отправлено: 00:24, 14-05-2019 | #8 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать |
Отправлено: 01:05, 14-05-2019 | #9 |
Старожил Сообщения: 175
|
Профиль | Отправить PM | Цитировать Цитата Iska:
|
|
------- Отправлено: 05:34, 14-05-2019 | #10 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|