[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: Andrey_A, simup, ХарВик  
Форум » • AkelPad • » ТЕСТИРОВАНИЕ СКРИПТОВ для AkelPad » InsertPlus.vbs - Скрипт-библиотека различных вставок (Вставка объектов)
InsertPlus.vbs - Скрипт-библиотека различных вставок
Andrey_AДата: Пятница, 06.04.2012, 16:41 | Сообщение № 1
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 6304
Награды: 93
Репутация: 85
Аверин Андрей
InsertPlus.vbs - Скрипт-библиотека различных вставок
Используется скрипт Functions.vbs - Скрипт с различными Функциями, которые можно использовать в других скриптах
Используется скрипт FunctionsDialog.vbs - Скрипт с различными Функциями для вызова диалога Открытия/Сохранения файла (WinAPI) и выбора папки

' Автор: Аверин Андрей
' Версия: 9.1 (05.04.2012 - 03.02.2018)

скачать Доступно только для пользователей



 
Andrey_AДата: Вторник, 19.12.2017, 07:23 | Сообщение № 16
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 6304
Награды: 93
Репутация: 85
Аверин Андрей
Цитата 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
Сообщений: 29
Награды: 0
Репутация: 0
Цитата 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
Город: Сочи, Хоста
Сообщений: 6304
Награды: 93
Репутация: 85
Аверин Андрей
goldenge, у вас в примере смесь всего, одним регулярным выражением тут не решить задачу...
Можно воспользоваться другим скриптом
Код
-"SearhInOutput.vbs" Call("Scripts::Main", 1, "SearhInOutput.vbs", `"/([^/]+)/"`) Icon("%a\AkelPadImage.dll",1)


.


 
goldengeДата: Воскресенье, 08.04.2018, 05:09 | Сообщение № 19
Сержант

На сайте с: 17.12.2017
Сообщений: 29
Награды: 0
Репутация: 0
Цитата 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
Город: Сочи, Хоста
Сообщений: 6304
Награды: 93
Репутация: 85
Аверин Андрей
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
Сообщений: 29
Награды: 0
Репутация: 0
Цитата 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
 
Форум » • AkelPad • » ТЕСТИРОВАНИЕ СКРИПТОВ для AkelPad » InsertPlus.vbs - Скрипт-библиотека различных вставок (Вставка объектов)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Сообщите о находке всему миру:
Рейтинг@Mail.ru Тиц и pr сайта Яндекс.Метрика

Интеллектуальные права и отказ от ответственности