|
InsertPlus.vbs - Скрипт-библиотека различных вставок
|
|
| Andrey_A | Дата: Пятница, 06.04.2012, 16:41 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 125
Аверин Андрей
|
InsertPlus.vbs - Скрипт-библиотека различных вставок
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах
Используется скрипт FunctionsDialog.vbs - Скрипт с различными Функциями для вызова диалога Открытия/Сохранения файла (WinAPI) и выбора папки
' Автор: Аверин Андрей
' Версия: 13.5 (05.04.2012 - 22.04.2023)
скачать Доступно только для пользователей
|
| |
| |
| Andrey_A | Дата: Вторник, 19.12.2017, 07:23 | Сообщение № 16 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 125
Аверин Андрей
|
Цитата goldenge (  ) в том было лучше тем, что был перевод строки
Чем точнее задача, тем точнее решение... Добавил 4-й параметр в режим 137
Код Call("Scripts::Main", 1, "InsertPlus.vbs", `137 2 1 1`)
Цитата goldenge ( ) здесь нет и к тому же еще одно автосохранение не нужно
В Functions.vbs найдите SaveOrNoDocuments = 1
и замените на SaveOrNoDocuments = 0 (процедура SaveEditFile)
.
|
| |
| |
| goldenge | Дата: Суббота, 23.12.2017, 22:21 | Сообщение № 17 |
Сержант
На сайте с: 17.12.2017
Сообщений: 37
|
Цитата Andrey_A ( ) Call("Scripts::Main", 1, "InsertPlus.vbs", `137 2 1 1`)
спасибо, отличноДобавлено (23.12.2017, 22:21)
---------------------------------------------
Andrey_A, такой вопрос, есть данные нужно получить с каждого текста все что между слешами
-"Замена на между слешами с переносом строки..." Call("Scripts::Main", 1, "Multi_SR.js", `".+" "/\d{1,5}(?=/)" 0 1 1 0 4 3`) Icon("%a\AkelPadImage.dll",1544)
должно быть
3
11
111
17
512
из этого
02-0012/3/20"fff345"sd 12
02-0013sd%2/11/2017 101-df0012/111/2018
03-0012/17/20... 2-0012/512/2016
что то с этим у меня не получается
|
| |
| |
| Andrey_A | Дата: Воскресенье, 24.12.2017, 19:58 | Сообщение № 18 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 125
Аверин Андрей
|
goldenge, у вас в примере смесь всего, одним регулярным выражением тут не решить задачу...
Можно воспользоваться другим скриптом
Код -"SearhInOutput.vbs" Call("Scripts::Main", 1, "SearhInOutput.vbs", `"/([^/]+)/"`) Icon("%a\AkelPadImage.dll",1)
.
|
| |
| |
| goldenge | Дата: Воскресенье, 08.04.2018, 05:09 | Сообщение № 19 |
Сержант
На сайте с: 17.12.2017
Сообщений: 37
|
Цитата Andrey_A ( ) Можно воспользоваться другим скриптом
[КОД:]
Выделить весь код
-"SearhInOutput.vbs" Call("Scripts::Main", 1, "SearhInOutput.vbs", `"/([^/]+)/"`) Icon("%a\AkelPadImage.dll",1)
отлично такой подходит  Добавлено (08.04.2018, 05:09)
---------------------------------------------
Andrey_A,
есть предложения, нужно убрать лишние переводы строк между кавычками и убрать сами кавычки в начале и последнюю
"ООО «Актекшн»
ул. Ломоно
г.Орел" и далее там идет текст
получить от всех неправильных строк и сделать без кавычек для каждой в одну строку
ООО «Актекшн» ул. Ломоно г.Орел 302040 0,02 22,00 ответ на п. сп 05.04.2018 Простое
ООО «АктКолшн» ул. Ломонос г.Орел 302040 0,02 22,00 ответ на з8 коп. сп 05.04.2018 Простое
и т.д.
из
"ООО «Актекшн»
ул. Ломоно
г.Орел" 302040 0,02 22,00 ответ на п. сп 05.04.2018 Простое
"ООО «АктКолшн»
ул. Ломонос
г.Орел" 302040 0,02 22,00 ответ на з8 коп. сп 05.04.2018 Простое
"ПАО Сбер""
ул. Ломон
г.Орел" 302040 0,02 22,00 ответ на запия 05.04.2018 Простое
"ПАО ""ковар""
пр. Шолохов5
г.Ростов-на-Дону" 344019 0,02 22,00 ответ на запроп 05.04.2018 Простое
"Гречкин Сандрович
ул. Пятигорск
г.Ессентуки" 357625 0,02 22,00 копия оп8 Простое
"ПАО ""МТнк""
ул. Ломоносо
г.Орел" 302040 0,02 22,00 копия оп18 Простое
|
| |
| |
| Andrey_A | Дата: Воскресенье, 08.04.2018, 11:10 | Сообщение № 20 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 125
Аверин Андрей
|
goldenge, там есть непонятные места, можете потестировать
Вставьте перед Case Else код
Код Case 140
T = .GetSelText(3) : If Len(T) = 0 Then T = .GetTextRange(0, -1, 3) End If : EndNull
aL = Split(vb & T, vb & """") : ub = Ubound(aL) : T ="" ' разбивка текста по переносу+кавычке
For i = 1 To ub
aSt = Split(aL(i), vb) ' разбивка куска по строкам
aSt(0) = Replace(aSt(0), Chr(34) & Chr(34), Chr(34)) ' замены
aSt(2) = Replace(aSt(2), Chr(34), "")
T = T & Join(aSt, " ") & vb ' сборка куска и всего текста
Next
V = 1 : C = 0
Код -"InsertPlus.vbs" Call("Scripts::Main", 1, "InsertPlus.vbs", `"140"`) Icon("%a\AkelPadImage.dll",103)
.
|
| |
| |
| goldenge | Дата: Воскресенье, 08.04.2018, 21:34 | Сообщение № 21 |
Сержант
На сайте с: 17.12.2017
Сообщений: 37
|
Цитата Andrey_A ( ) там есть непонятные места, можете потестировать
Вставьте перед Case Else код
Вышло замечательно, идеально) Большое Спасибо.
Христос воскрес, с Пасхой
Добавлено (08.04.2018, 21:34)
---------------------------------------------
есть такой код, может есть другой вариант, чтобы строки не затрагивать? оставить каждую новую строку, но без пустых строк
-"Все через пробелы в выделенном" Call("Scripts::Main", 1, "Multi_SR.js",` "([ \t\n\n]+)" " " 0 1 1 0 8 3`) Icon("%a\AkelPadImage.dll",140)
а нужно в виде -"Все через пробелы в выделенном для каждой строки"
Код цу5екроь---------- ------------35кепр
sdtretujgh wert4e56r9p[ trthjyg m, укауприт и куцеункь,erwfgb укапмиа, укцеерот etr]вуапукерт цвуепкрап, кау цукеп , sfrgb
rwesdth а
sergf n ewtgrh, fgergf wegthfgv
укроь asrd, wetghn,
цыпрат
уцепреоь,
Сообщение отредактировал goldenge - Воскресенье, 08.04.2018, 23:18 |
| |
| |
| Andrey_A | Дата: Четверг, 21.02.2019, 17:10 | Сообщение № 22 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 125
Аверин Андрей
|
Александр из Мацесты - эта кнопка для тебя)))
Код -"InsertPlus.vbs" Call("Scripts::Main", 1, "InsertPlus.vbs", `147 "add address=" ' list="block youtube"'`) Icon("%a\AkelPadImage.dll",103)
|
| |
| |
|
