Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

UoKit.com Форумы _ UO Pilot _ Декодер | замена текста.

Автор: FREEON 27.1.2019, 10:52

Можно ли на базе пилота сделать скрипт который бы заменял текст в файле на нужный?
К примеру есть текстовый документ test.txt, в нем находится набор символов которые нечитаемы, но разделены к примеру запятой(или пробелом или ещё каким символом).

Код

1,2,3,4,5,11,27

Мы знаем и делаем условие что 1 это привет, 2 допустим имя Максим и так далее. Нужно чтобы пилот сканировал текст и менял символы на нужные слова и результат сохронял в нужном месте.
Примеры, готовые скрипты:

qwerty перевод на русский: Hfcrkflrf -> Раскладка

Готовый скрипт конвертирует набранный текст в неверной раскладке клавиатуры. Владение методом слепого набора, уменьшает эту вероятность, но неприятности иногда случаются. Также данный метод можно использовать для кодирования своих сообщений или легкого запоминания своих паролей.
Например:

Цитата

$GfHjKm$_Dfvgbh >>> ;ПаРоЛь;_Вампир

Код


--lua
-- Скрипт для перевода английской раскладки в русскую
-- Hfcrkflrf -> Раскладка
local file= io.open([[C:\123.txt]], "r")          -- файл с текстом
local result_file = io.open([[C:\456.txt]], "w")  -- куда сохранить результат

local t={}
t["a"]="ф"  t["b"]="и"  t["c"]="с"  t["d"]="в"  t["e"]="у"  t["f"]="а"
t["g"]="п"  t["h"]="р"  t["i"]="ш"  t["j"]="о"  t["k"]="л"  t["l"]="д"
t["m"]="ь"  t["n"]="т"  t["o"]="щ"  t["p"]="з"  t["q"]="й"  t["r"]="к"
t["s"]="ы"  t["t"]="е"  t["u"]="г"  t["v"]="м"  t["w"]="ц"  t["x"]="ч"
t["y"]="н"  t["z"]="я"  t["`"]="ё"  t["["]="х"  t["]"]="ъ"  t[";"]="ж"
t["'"]="э"  t[","]="б"  t["."]="ю"  t["/"]="."  t["A"]="Ф"  t["B"]="И"
t["C"]="С"  t["D"]="В"  t["E"]="У"  t["F"]="А"  t["G"]="П"  t["H"]="Р"
t["I"]="Ш"  t["J"]="О"  t["K"]="Л"  t["L"]="Д"  t["M"]="Ь"  t["N"]="Т"
t["O"]="Щ"  t["P"]="З"  t["Q"]="Й"  t["R"]="К"  t["S"]="Ы"  t["T"]="Е"
t["U"]="Г"  t["V"]="М"  t["W"]="Ц"  t["X"]="Ч"  t["Y"]="Н"  t["Z"]="Я"
t["{"]="Х"  t["}"]="Ъ"  t[":"]="Ж"  t['"']="Э"  t["<"]="Б"  t[">"]="Ю"
t["?"]=","  t["~"]="Ё"  t["@"]='"'  t["#"]="№"  t["$"]=";"  t["^"]=":"
t["&"]="?"

if file and result_file then     -- если файлы открылись
    for v in file:lines() do
        result_file:write(string.gsub(v, ".", t).."\r\n")  -- поиск и замена текста из таблицы 't'
    end

    file:close()
    result_file:close()
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

URL-decoder(декодер): %D0%A2%D0%B5%D0%BA%D1%81%D1%82 -> Текст

URL применяется всеми и везде и стал неотъемлемой частью Интернета и является идентификации ресурсов(сайтов) в браузерах. Стандарт URL использует набор символов US-ASCII. И имеет серьёзный недостаток, поскольку можно использовать лишь латинские буквы, цифры и несколько знаков пунктуации. Все другие символы необходимо перекодировать. Скрипт размещенный ниже, это, инструмент и поможет раскодировать строку, закодированную подобным алгоритмом.
Пример:

Цитата

%D0%9A%D1%83%D0%BF%D0%B8%D1%82%D1%8C >>> Купить

Код


--lua
log "clear"   log "mode compact"

local s="Вставить свой код URL"   -- << Для декодирования вставить url-код между ""
log(s)

local t={}
t["%D0%90"]="А" t["%D0%91"]="Б" t["%D0%92"]="В" t["%D0%93"]="Г" t["%D0%94"]="Д" t["%D0%95"]="Е" t["%D0%81"]="Ё" t["%D0%96"]="Ж" t["%D0%97"]="З" t["%D0%98"]="И" t["%D0%99"]="Й"
t["%D0%9A"]="К" t["%D0%9B"]="Л" t["%D0%9C"]="М" t["%D0%9D"]="Н" t["%D0%9E"]="О" t["%D0%9F"]="П" t["%D0%A0"]="Р" t["%D0%A1"]="С" t["%D0%A2"]="Т" t["%D0%A3"]="У" t["%D0%A4"]="Ф"
t["%D0%A5"]="Х" t["%D0%A6"]="Ц" t["%D0%A7"]="Ч" t["%D0%A8"]="Ш" t["%D0%A9"]="Щ" t["%D0%AA"]="Ъ" t["%D0%AB"]="Ы" t["%D0%AC"]="Ь" t["%D0%AD"]="Э" t["%D0%AE"]="Ю" t["%D0%AF"]="Я"
t["%D0%B0"]="а" t["%D0%B1"]="б" t["%D0%B2"]="в" t["%D0%B3"]="г" t["%D0%B4"]="д" t["%D0%B5"]="е" t["%D1%91"]="ё" t["%D0%B6"]="ж" t["%D0%B7"]="з" t["%D0%B8"]="и" t["%D0%B9"]="й"
t["%D0%BA"]="к" t["%D0%BB"]="л" t["%D0%BC"]="м" t["%D0%BD"]="н" t["%D0%BE"]="о" t["%D0%BF"]="п" t["%D1%80"]="р" t["%D1%81"]="с" t["%D1%82"]="т" t["%D1%83"]="у" t["%D1%84"]="ф"
t["%D1%85"]="х" t["%D1%86"]="ц" t["%D1%87"]="ч" t["%D1%88"]="ш" t["%D1%89"]="щ" t["%D1%8A"]="ъ" t["%D1%8B"]="ы" t["%D1%8C"]="ь" t["%D1%8D"]="э" t["%D1%8E"]="ю" t["%D1%8F"]="я"

for v in pairs(t) do   -- добавление ключей в таблицу, если был "%D0%9A", то добавляется "%d0%9a"
    t[v:lower()]=t[v]
end

for i=32, 127 do t["%" .. string.format("%X", i)]=string.char(i) end   -- добавление ключей в таблицу, все символы ascii с 32 по 127

s=s:gsub("%%[Dd][01]%%%x%x", t)   -- замена кириллицы
s=s:gsub("%%..", t)               -- замена спецсимволов
log(s)                            -- результат

Текст задом наперед. Reverser : Зеркальный код. -> .док йыньлакреЗ

Зеркальный код использовал да Винчи в эпоху Возрождения, он в зеркальном стиле писал свои заметки, а также картины. Возможно он подсмотрел эту технику у арабов...кто знает

Данный скрипт позволяет отзеркалить текст в одну или в обратную сторону.
Пример:

Цитата

Не только Леонардо да Винчи пишет задом наперед! >>> !дерепан модаз тешип ичниВ ад одраноеЛ окьлот еН

Код


--lua
log "clear"  log "mode compact"
local s="Текст который нужно отзеркалить."
log (s)
log (s:reverse())

Азбука морзе: Morse to text -> -- --- .-. ... . - --- - . -..- -

Код Морзе, «Морзянка» — способ кодирования букв алфавита, цифр, знаков препинания и других символов при помощи длинных и коротких сигналов, так называемых «точек» и «тире».
Конвертирует латиницу в код морзе и обратно. Пример:

Цитата

Text <<->> - . -..- -

Код


--lua
log "clear"  log "mode compact"
-- Скрипт для конвертерования текста(ЛАТИНИЦА)в Азбуку Морзе или наоборот.
local text=[[Text or - . -..- -]]-- << Введите исходный текст на латинице или код Морзе и запустите скрипт.

log(text)

local t, t1, temp = {}, {}, {}
t["A"]=".-"     t["B"]="-..."   t["C"]="-.-."   t["D"]="-.."    t["E"]="."      t["F"]="..-."   t["G"]="--."
t["H"]="...."   t["I"]=".."     t["J"]=".---"   t["K"]="-.-"    t["L"]=".-.."   t["M"]="--"     t["N"]="-."
t["O"]="---"    t["P"]=".--."   t["Q"]="--.-"   t["R"]=".-."    t["S"]="..."    t["T"]="-"      t["U"]="..-"
t["V"]="...-"   t["W"]=".--"    t["X"]="-..-"   t["Y"]="-.--"   t["Z"]="--.."
for v in pairs(t) do temp[string_lower(v)]=t[v] end
for v in pairs(temp) do t[v]=temp[v] end
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-"
for v in pairs(t) do t1[t[v]]=v end   -- таблица для дешифровки, копия 't' только ключи и значения ключей поменяны местами

local x=0
for v in text:gmatch("[%.%- ]") do x=x+1 end  -- подсчёт точек, тире и слешей в строке

if x > #text*50/100 then   -- если их больше 50%, считаем что передана шифрованная строка
    text=string.gsub((text .. " "):gsub("(.-) ", t1), "  ", " ")    -- дешифруем
else
    text=string.gsub(text:gsub("(.)", "%1 "), "[^ ]", t)  -- иначе шифруем
end
log (text)

Конвертирует кириллицу в код морзе и обратно. Пример:

Цитата

Текст<<->> - . -.- ... -

Код


--lua
log "clear"  log "mode compact"

-- Скрипт для конвертирования текста(КИРИЛЛИЦА)в Азбуку Морзе или наоборот.
local text=[[Текст или - . -.- ... -]]-- << Введите исходный текст на кириллице или код Морзе и запустите скрипт.

log(text)

local t, t1, temp = {}, {}, {}
t["А"]=".-"     t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."    t["Ё"]="."
t["Ж"]="...-"   t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.." t["М"]="--"
t["Н"]="-."     t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"    t["У"]="..-"
t["Ф"]="..-."   t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-" t["Ь"]="-..-"
t["Ъ"]="-..-"   t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do temp[string_lower(v)]=t[v] end
for v in pairs(temp) do t[v]=temp[v] end
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-"
for v in pairs(t) do t1[t[v]]=v end   -- таблица для дешифровки, копия 't' только ключи и значения ключей поменяны местами

local x=0
for v in text:gmatch("[%.%- ]") do x=x+1 end  -- подсчёт точек, тире и слешей в строке

if x > #text*50/100 then   -- если их больше 50%, считаем что передана шифрованная строка
    text=string.gsub((text .. " "):gsub("(.-) ", t1), "  ", " ")    -- дешифруем
else
    text=string.gsub(text:gsub("(.)", "%1 "), "[^ ]", t)  -- иначе шифруем
end
log (text)

Выражаю огромную благодарность в написании скриптов нашему великому гуруhttps://forum.uokit.com/index.php?showuser=16971.

Автор: cirus 27.1.2019, 11:44

Код

--lua
local file= io.open([[C:\123.txt]], "r")          -- файл с текстом
local result_file = io.open([[C:\456.txt]], "w")  -- куда сохранить результат

local t={}
t["1"]="привет"          -- '1' заменить на 'привет'
t["2"]="Максим"          -- '2' на 'Максим'
t["11"]="Двадцать пять"

if file and result_file then     -- если файлы открылись
    for v in file:lines() do
        result_file:write(string.gsub(v, "[^,]+", t).."\r\n")  -- поиск и замена текста из таблицы 't'
    end

    file:close()
    result_file:close()
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

Автор: NoName212 27.1.2019, 12:24

на php обычно такое делают)

как это может быть на на пыхе

в дивел студио 3.0(2012 год! :/ ) добавить в форму кнопку и текст, (справа). Потом выбрать кнопку, слева, свойства и события, выбрать событие, добавить событие - клик, дважды на него кликнуть. Откроется редактор кода туда этот код и F5. Скомпилируется открыть папку вставить файл test.txt, запустить нажать на кнопку. Массив 0 => 'string' поменять надо под себя и компилировать.

Код

c("label1")->text;
$find_and_repeat = array (
'0' => 'Привет',
'1' => ' Максим',
'23' => ' как дела',
'45' => ' нормально реально не реально',
);
$test = 'test.txt';
$test = file_get_contents($test);
$test = explode (',', $test); // , - символ которым разделены слова!
foreach ($find_and_repeat as $key => $v)
{
    $test = str_replace($key, $v, $test);
    $newTest = fopen('new_test.txt', 'w');
    $check = fwrite($newTest , implode($test));
    fclose($newTest);
}
//print_r($test);
if($check = true)
{echo 'Заменил!!!';}

Автор: FREEON 27.1.2019, 13:12

Цитата(cirus @ 27.1.2019, 11:44)

Код

--lua
local file= io.open([[C:\123.txt]], "r")          -- файл с текстом
local result_file = io.open([[C:\456.txt]], "w")  -- куда сохранить результат

local t={}
t["1"]="привет"          -- '1' заменить на 'привет'
t["2"]="Максим"          -- '2' на 'Максим'
t["11"]="Двадцать пять"

if file and result_file then     -- если файлы открылись
    for v in file:lines() do
        result_file:write(string.gsub(v, "[^,]+", t).."\r\n")  -- поиск и замена текста из таблицы 't'
    end

    file:close()
    result_file:close()
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

С цифрами все работает на ура, а если к примеру я хочу усложнить задачу и вместо цифр использовать текст например нужно декодировать qwerty в йцукен так же по-символьно q = й
или же к примеру в морзянку:
.- = А
-... = Б
.-- = В

Автор: DarkMaster 27.1.2019, 13:28

Цитата

С цифрами все работает на ура, а если к примеру я хочу усложнить задачу и вместо цифр использовать текст например нужно декодировать qwerty в йцукен так же по-символьно q = й

Ну так добавляйте в правила выше:

Цитата

t["1"]="привет" -- '1' заменить на 'привет'
t["2"]="Максим" -- '2' на 'Максим'
t["11"]="Двадцать пять"

Автор: cirus 27.1.2019, 13:38

Цитата

Ну так добавляйте в правила выше:

Нужно регулярку менять, там разделитель запятая. Это уже другое условие, посимвольная замена.

Цитата

qwerty в йцукен

Код

--lua
local file= io.open([[C:\123.txt]], "r")          -- файл с текстом
local result_file = io.open([[C:\456.txt]], "w")  -- куда сохранить результат

local t={}
t["q"]="й"          -- все 'q' заменит на 'й'
t["w"]="ц"          
t["e"]="у"
t["r-"]="к"

if file and result_file then     -- если файлы открылись
    for v in file:lines() do
        result_file:write(string.gsub(v, ".", t).."\r\n")  -- поиск и замена текста из таблицы 't'
    end

    file:close()
    result_file:close()
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

Цитата

или же к примеру в морзянку:

Пример нужен. Как символы отличать?
.- = А - 2 символа
-... = Б - 4 символа
.--... - если это АБ, то В тут тоже можно найти .--
Тогда уж они должны быть 1 длины.

Автор: FREEON 27.1.2019, 13:43

Цитата(DarkMaster @ 27.1.2019, 13:28)

Ну так добавляйте в правила выше:

добавил

Код


t["q"]="й"          -- 'А'
t["w."]="ц"          -- '2' на 'Максим'
t["e"]="у"
t["t"]="е"
t["y"]="н"

пример:

Код


qwetty
qwerrrty q
ytreq
ytrewq

вот что выдает в результат:

qwetty
qwerrrty q
ytreq
ytrewq

Цитата(cirus @ 27.1.2019, 13:38)

Нужно регулярку менять, там разделитель запятая. Это уже другое условие, посимвольная замена.

Код

.gsub(v, ".", t).."\r\n")  -- поиск и замена текста из таблицы 't'

тобишь эта страка делает маску? а как понять или определить что есть что? где можно найти список ключей?

Автор: cirus 27.1.2019, 14:04

Цитата

.gsub(v, ".", t).."\r\n")
тобишь эта страка делает маску?

Второй параметр, это шаблон регулярного выражения, по нему находится текст и заменяется на то что задано в таблице.

Цитата

а как понять или определить что есть что?

Надо знать регулярные выражения. В гугле 'lua регулярные выражения'.

"." - означает любой символ, например, "..." - будет означать любые 3 символа
"[^,]+" - кроме запятой, любое количество символов от 1 и больше

Автор: FREEON 27.1.2019, 14:31

Цитата(cirus @ 27.1.2019, 13:38)

Понял, поищу покамись.

Правила кодирования

Здесь можно легко и просто закодировать текст в Азбуку Морзе, да не просто в обычные точки и тире, а ещё и в бинарный код!

Правила кодирования

Кодирование азбуки Морзе в бинарный код -- это просто замена точек и тире на единицы и нули, но по определённым правилам: •"Точка" кодируется цифрой 1
•"Тире" кодируется тремя единицами (ведь тире по длительности равно трём точкам)
•Между точкой и тире используется разделитель: цифра 0
•Между каждым символом используется два нуля, так можно будет отличить, что начался следующий символ

php скамуниздил

Код


<?php
/**
 * Created by PhpStorm.
 * User: karamush
 * Date: 13.07.2018
 * Time: 23:08
 */

class MorseCoder_Class {

    public $MORSE_CHAR_DELIMITER = ' ';            // разделитель между символами в обычной морзянке
    public $UNKNOWN_CHAR = '?';                    // это если перевести не удалось. неизвестный символ
    public $MORSE_DOT = '.';                       // точка
    public $MORSE_DASH = '-';                      // тире
    public $MORSE_BIN_DOT = '1';                   // бинарная точка
    public $MORSE_BIN_DASH ='111';                 // бинарное тире
    public $MORSE_BIN_DELIMITER = '0';             // разделитель между знаками одного символа
    public $MORSE_BIN_CHAR_DELIMITER = '00';       // разделитель между символами
    public $MORSE_BIN_WORD_DELIMITER = '000';      // разделитель между словами (эм. пробел?)

    const MORSE_TYPE_SIMPLE = 0;
    const MORSE_TYPE_BINARY = 1;
    const MORSE_LANGUAGE_LATIN = 1;
    const MORSE_LANGUAGE_CYRILLIC = 0;

    public $morse_type = self::MORSE_TYPE_BINARY;
    public $morse_language = self::MORSE_LANGUAGE_CYRILLIC;
    public $morse_capital = true;

    // символы и цифры
    private $codes_symbols = [
        '1' => '.----',
        '2' => '..---',
        '3' => '...--',
        '4' => '....-',
        '5' => '.....',
        '6' => '-....',
        '7' => '--...',
        '8' => '---..',
        '9' => '----.',
        '0' => '-----',
        '.' => '......',
        ',' => '.-.-.-',
        ':' => '---...',
        ';' => '-.-.-.',
        '(' => '-.--.-',
        ')' => '-.--..', // TODO: использовал собственный символ для закрывающей скобки. опасно :)
        '\'' => '.----.',
        '`' => '.----.',
        '"' => '.-..-.',
        '-' => '-....-',
        '/' => '-..-.',
        '?' => '..--..',
        '!' => '--..--',
        ' ' => '-...-', // знак раздела, пробел, короче, WTF?!
        "\n" => '-.-..',    // TODO: ещё один добавленный символ. Символ переноса строки!
        "\r" => '-.-..-',   // TODO: ай-ай-ай!
        '@' => '.--.-.',
        '[END]' => '..-.-'
    ];

    // латинский алфавит
    private $codes_latin = [
        'A' => '.-',
        'B' => '-...',
        'C' => '-.-.',
        'D' => '-..',
        'E' => '.',
        'F' => '..-.',
        'G' => '--.',
        'H' => '....',
        'I' => '..',
        'J' => '.---',
        'K' => '-.-',
        'L' => '.-..',
        'M' => '--',
        'N' => '-.',
        'O' => '---',
        'P' => '.--.',
        'Q' => '--.-',
        'R' => '.-.',
        'S' => '...',
        'T' => '-',
        'U' => '..-',
        'W' => '.--',
        'X' => '-..-',
        'Y' => '-.--',
        'Z' => '--..',
        'V' => '...-',
        'CH' => '---.',
        'SH' => '----',
        'Ñ' => '-..-',
        'É' => '..-..',
        'Ü' => '..--',
        'Ä' => '.-.-'
    ];

    // кириллический алфавит
    private $codes_cyrillic = [
        'А' => '.-',
        'Б' => '-...',
        'В' => '.--',
        'Г' => '--.',
        'Д' => '-..',
        'Е' => '.',     'Ё' => '.',
        'Ж' => '...-',
        'З' => '--..',
        'И' => '..',
        'Й' => '.---',
        'К' => '-.-',
        'Л' => '.-..',
        'М' => '--',
        'Н' => '-.',
        'О' => '---',
        'П' => '.--.',
        'Р' => '.-.',
        'С' => '...',
        'Т' => '-',
        'У' => '..-',
        'Ф' => '..-.',
        'Х' => '....',
        'Ц' => '-.-.',
        'Ч' => '---.',
        'Ш' => '----',
        'Щ' => '--.-',
        'Ь' => '-..-',  'Ъ' => '-..-',
        'Ы' => '-.--',
        'Э' => '..-..',
        'Ю' => '..--',
        'Я' => '.-.-',
    ];

    public function __construct() {

    }

    /**
     * Получить текущий полный алфавит, но с приоритетом языка,
     * чтоб в первую очередь шифровалось или дешифровалось на текущем языке,
     * но отсутствующие символы чтобы тоже были. Плюс цифры и другие символы.
     *
     * @return array
     */
    private function get_current_full_alphabet() {
        $alphabet = ($this->morse_language == self::MORSE_LANGUAGE_CYRILLIC) ? array_merge($this->codes_cyrillic, $this->codes_latin) : array_merge($this->codes_latin, $this->codes_cyrillic);
        return array_merge($alphabet, $this->codes_symbols);
    }

    /**
     * Переводит обычный символ в его Морзе-символ
     * @param $char
     *
     * @return mixed|string
     */
    function char_to_morse($char) {
        $char = mb_strtoupper($char);
        return array_key_exists($char, $this->get_current_full_alphabet()) ? $this->get_current_full_alphabet()[$char] : $this->UNKNOWN_CHAR;
    }

    /**
     * Приводит строку с морзянкой к общему формату, заменяя звёздочки на точки и т.д.
     * @param $morse_text
     *
     * @return string
     */
    function prepare_morse_text($morse_text) {
        $morse_text = str_replace('*', '.', $morse_text);
        $morse_text = str_replace('_', '-', $morse_text);
        return $morse_text;
    }

    function mbStringToArray($string, $encoding = 'UTF-8') {
        $strlen = mb_strlen($string);
        $str_array = [];
        while ($strlen) {
            $str_array[] = mb_substr($string, 0, 1, $encoding);
            $string = mb_substr($string, 1, $strlen, $encoding);
            $strlen = mb_strlen($string, $encoding);
        }
        return $str_array;
    }

    /**
     * Переводит Морзе-код символа в его обычный символ
     * @param $morse_char
     *
     * @return string
     */
    function morse_to_char($morse_char) {
        // сначала к единому формату тире и точек привести нужно символ
        $morse_char = $this->prepare_morse_text($morse_char);
        return in_array($morse_char, $this->get_current_full_alphabet()) ? array_search($morse_char, $this->get_current_full_alphabet()) : $this->UNKNOWN_CHAR;
    }

    /**
     * Переводит строку обычного текста в морзянку, ставя также разделитель после каждого символа.
     * @param $plain_text
     *
     * @return string
     */
    function text_to_morse($plain_text) {
        $plain_text = $this->mbStringToArray(mb_strtoupper($plain_text));
        $result = '';
        foreach ($plain_text as $char) {
            $result .= $this->char_to_morse($char) . $this->MORSE_CHAR_DELIMITER;
        }
        return $result;
    }

    /**
     * Переводит морзянку в обычный человеческий текст.
     *
     * @param      $morse_text
     *
     * @return string
     */
    function morse_to_text($morse_text) {
        $morse_chars = explode($this->MORSE_CHAR_DELIMITER, $morse_text);
        $result = '';
        foreach($morse_chars as $char) {
            $result .= $this->morse_to_char($char);
        }

        return $this->morse_capital ? $result : mb_strtolower($result);
    }

    /**
     * Переводит бинарную морзянку в морзянку обычную.
     * @param $morse_bin_text
     *
     * @return string
     */
    function morse_bin_to_morse($morse_bin_text) {
        $result = '';
        $bin_morse_chars = explode($this->MORSE_BIN_CHAR_DELIMITER, $morse_bin_text);
        foreach ($bin_morse_chars as $bin_morse_char) {
            $bin_morse_char = str_replace($this->MORSE_BIN_DASH, $this->MORSE_DASH, $bin_morse_char);
            $bin_morse_char = str_replace($this->MORSE_BIN_DOT, $this->MORSE_DOT, $bin_morse_char);
            $bin_morse_char = str_replace($this->MORSE_BIN_DELIMITER, '', $bin_morse_char);
            $result .= $bin_morse_char . $this->MORSE_CHAR_DELIMITER;
        }
        return rtrim($result, $this->MORSE_CHAR_DELIMITER);
    }

    /**
     * Переводит морзянку в бинарную морзянку.
     * @param $morse_text
     *
     * @return string
     */
    function morse_to_morse_bin($morse_text) {
        $result = '';
        $morse_text = $this->prepare_morse_text($morse_text);
        for($i=0; $i<strlen($morse_text);$i++) {
            switch ($morse_text[$i]) {
                case $this->MORSE_DOT: $result .= $this->MORSE_BIN_DOT . $this->MORSE_BIN_DELIMITER; break;
                case $this->MORSE_DASH: $result .= $this->MORSE_BIN_DASH . $this->MORSE_BIN_DELIMITER; break;
                case $this->MORSE_CHAR_DELIMITER: $result .= $this->MORSE_BIN_DELIMITER; break; // добавляем ещё один нолик, а не два нуля. Потому что с предыдущего символа нолик ещё есть
            }
        }
        return $result;
    }

    /**
     * Текст в бинарную морзянку
     * @param $plaint_text
     *
     * @return string
     */
    function text_to_morse_bin($plaint_text) {
        return $this->morse_to_morse_bin($this->text_to_morse($plaint_text));
    }

    /**
     * Бинарную морзянку в текст
     *
     * @param      $morse_bin
     *
     * @return string
     */
    function morse_bin_to_text($morse_bin) {
        return $this->morse_to_text($this->morse_bin_to_morse($morse_bin));
    }

    /**
     * Закодировать открытый текст в бинарную морзянку или в обычную
     * (зависит от параметра morse_type)
     * @param $plain_text
     *
     * @return string
     */
    function morse_encode($plain_text) {
        return ($this->morse_type == self::MORSE_TYPE_BINARY) ? $this->text_to_morse_bin($plain_text) : $this->text_to_morse($plain_text);
    }

    /**
     * Раскодировать закодированный текст из бинарной морзянки или из обычной
     * (зависит от параметра morse_type)
     * @param $encoded_text
     *
     * @return string
     */
    function morse_decode($encoded_text) {
        return ($this->morse_type == self::MORSE_TYPE_BINARY) ? $this->morse_bin_to_text($encoded_text) : $this->morse_to_text($encoded_text);
    }


}

Автор: FREEON 27.1.2019, 16:18

Есчо вопрос... Можно ли к примеру делать перекодировку из буфера(для экономия времени и без лишнего гемора)? Тобишь что б перекодировал текст который находится в буфере обмена и результат замены выдавал обратно в буфер(или лог).

Автор: cirus 27.1.2019, 16:25

Перевод текста в Азбуку Морзе в бинарном виде и обратно

Код

--lua
log "clear"  log "mode compact"
local t={}  -- таблица с символами
t[".-"]="A"
t["-..."]="B"
t["-.-."]="C"

local x="ACDBA"   -- строка для шифровки, буквы 'D' в таблице нет, поэтому она останётся как есть
log("Строка для шифрования:\r\n" .. x)
log()

-- текст в Азбуку Морзе в бинарном виде:
--    A           B             C               -- символы
--    .-00        -...00        -.-.00          -- между символами 00
--    .0-00       -0.0.0.00     -0.0-0.00       -- между точкой и тире 0
--    10-00       -01010100     -010-0100       -- точки меняются на 1
--    1011100     11101010100   1110101110100   -- тире на 111

local s=""
for w in x:gmatch(".") do         -- поиск любого символа
    local break_=0
    for i, value in pairs(t) do   -- обход массива в посках ключа
        if value == w then        -- если нашлось
            s=s .. string.gsub(string.gsub(string.gsub(i, "(.)", "%10") .. "0", "%.", "1"), "%-", "111")  -- замена символа, к примеру 'A' на 1011100
            break_ = 1    -- флаг что символ зашифрован
            break
        end
    end
    if break_ == 0 then s=s .. w .. "00" end   -- если символа нет в таблице, то он остаётся как есть, т. е. не шифруется
end
log ("Строка в бинарном виде:\r\n" .. s)   -- строка в бинарном виде
log()

local ss=""
for w in s:gmatch("(.-)00") do  -- поиск символа, помним что между символами 00
    if w:match("[01]+") then    -- если символ шифрованный
       ss=ss .. string.gsub(string.gsub(string.gsub(w:gsub("111", "-"), "1", "."), "0", ""), ".+", t)
    else
       ss=ss .. w   -- иначе не шифрованный, дописываем как есть
    end
end
log ("Расшифрованная строка:\r\n" .. ss)

Цитата

Можно ли к примеру делать перекодировку из буфера(для экономия времени и без лишнего гемора)? Тобишь что б перекодировал текст который находится в буфере обмена и результат замены выдавал обратно в буфер(или лог).

Можно. http://uopilot.tati.pro/index.php?title=Clipboard_(Lua)

Автор: FREEON 27.1.2019, 17:44

Цитата(cirus @ 27.1.2019, 16:25)

Перевод текста в Азбуку Морзе в бинарном виде и обратно

Код

--lua
log "clear"  log "mode compact"
local t={}  -- таблица с символами
t[".-"]="A"
t["-..."]="B"
t["-.-."]="C"

local x="ACDBA"   -- строка для шифровки, буквы 'D' в таблице нет, поэтому она останётся как есть
log("Строка для шифрования:\r\n" .. x)
log()

-- текст в Азбуку Морзе в бинарном виде:
--    A           B             C               -- символы
--    .-00        -...00        -.-.00          -- между символами 00
--    .0-00       -0.0.0.00     -0.0-0.00       -- между точкой и тире 0
--    10-00       -01010100     -010-0100       -- точки меняются на 1
--    1011100     11101010100   1110101110100   -- тире на 111

local s=""
for w in x:gmatch(".") do         -- поиск любого символа
    local break_=0
    for i, value in pairs(t) do   -- обход массива в посках ключа
        if value == w then        -- если нашлось
            s=s .. string.gsub(string.gsub(string.gsub(i, "(.)", "%10") .. "0", "%.", "1"), "%-", "111")  -- замена символа, к примеру 'A' на 1011100
            break_ = 1    -- флаг что символ зашифрован
            break
        end
    end
    if break_ == 0 then s=s .. w .. "00" end   -- если символа нет в таблице, то он остаётся как есть, т. е. не шифруется
end
log ("Строка в бинарном виде:\r\n" .. s)   -- строка в бинарном виде
log()

local ss=""
for w in s:gmatch("(.-)00") do  -- поиск символа, помним что между символами 00
    if w:match("[01]+") then    -- если символ шифрованный
       ss=ss .. string.gsub(string.gsub(string.gsub(w:gsub("111", "-"), "1", "."), "0", ""), ".+", t)
    else
       ss=ss .. w   -- иначе не шифрованный, дописываем как есть
    end
end
log ("Расшифрованная строка:\r\n" .. ss)

Можно. http://uopilot.tati.pro/index.php?title=Clipboard_(Lua)

Сирус ты конечно иноплонетянин, в хорошем смысле этого слова, типа мега-мозг

Но объясни чо куда пихать и откуда достовать

Код


t[".-"]="A"
t["-..."]="B"
t["-.-."]="C"
t["-.."]="D"
t["."]= "E"
t["..-."]="F"
t["--."]="G"
t["...."]="H"
t[".."]="I"
t[".---"]="J"
t["-.-"]="K"
t[".-.."]="L"
t["--"]="M"
t["-."]="N"
t["---"]="O"
t[".--."]="P"
t["--.-"]="Q"
t[".-."]="R"
t["..."]="S"
t["-"]="T"
t["..-"]="U"
t[".--"]="W"
t["-..-"]="X"
t["-.--"]="Y"
t["--.."]="Z"

Строка для шифрования:
ACZBA
Строка в бинарном виде:
101110011101011101001110111010100111010101001011100
Расшифрованная строка:
ACZBA
Проверил текст в бинарный код шифрует верно, но чо то не работает точка-тире.

Автор: cirus 27.1.2019, 18:26

Цитата

но чо то не работает точка-тире.

Пример приведите что не работает.

Автор: FREEON 27.1.2019, 18:40

Цитата(cirus @ 27.1.2019, 18:26)

Пример приведите что не работает.

ну в обратном виде не работает, берем туже букву A:
Строка для шифрования:
.-
Строка в бинарном виде:
.00-00
Расшифрованная строка:
.- (должно быть А)
пример 2 буква C, имеем:
Строка для шифрования:
C
Строка в бинарном виде:
1110101110100
Расшифрованная строка:
C (должно быть -.-. не?)

Автор: cirus 27.1.2019, 19:14

Цитата

ну в обратном виде не работает, берем туже букву A:
Строка для шифрования:
.-

Причём тут точки и тире, они используются как промежуточное звено при конвертации 'A' в '1011100' и обратно из '1011100' в 'A'.
Прочитайте правила кодирования:

Цитата

Кодирование азбуки Морзе в бинарный код -- это просто замена точек и тире на единицы и нули

Вы же не будете печатать азбукой морзе? Скрипт переводит символы в точки и тире, а потом точки и тире в единицы и нули.
Такого кода: '.-.-...-..-..-.' не будет, потому что невозможно понять сколько тут символов. Или надо добавлять разделитель между символами.

Автор: FREEON 27.1.2019, 20:10

Набросал по шаблону скрипт для перевода текста раскладки клавиатуры, но возникает конфликт в закомментированных строчках как разрешить? реально ли?

Цитата

--t["""]="Э"
--t["@"]="""

Hfcrkflrf -> Раскладка

Код


--lua
-- Скрипт для перевода английской раскладки в русскую
-- Hfcrkflrf -> Раскладка
local file= io.open([[C:\123.txt]], "r")          -- файл с текстом
local result_file = io.open([[C:\456.txt]], "w")  -- куда сохранить результат

local t={}
t["a"]="ф"          -- все 'a' заменит на 'ф'
t["b"]="и"
t["c"]="с"
t["d"]="в"
t["e"]="у"
t["f"]="а"
t["g"]="п"
t["h"]="р"
t["i"]="ш"
t["j"]="о"
t["k"]="л"
t["l"]="д"
t["m"]="ь"
t["n"]="т"
t["o"]="щ"
t["p"]="з"
t["q"]="й"
t["r"]="к"
t["s"]="ы"
t["t"]="е"
t["u"]="г"
t["v"]="м"
t["w"]="ц"
t["x"]="ч"
t["y"]="н"
t["z"]="я"
t["`"]="ё"
t["["]="х"
t["]"]="ъ"
t[";"]="ж"
t["'"]="э"
t[","]="б"
t["."]="ю"
t["/"]="."
t["A"]="Ф"
t["B"]="И"
t["C"]="С"
t["D"]="В"
t["E"]="У"
t["F"]="А"
t["G"]="П"
t["H"]="Р"
t["I"]="Ш"
t["J"]="О"
t["K"]="Л"
t["L"]="Д"
t["M"]="Ь"
t["N"]="Т"
t["O"]="Щ"
t["P"]="З"
t["Q"]="Й"
t["R"]="К"
t["S"]="Ы"
t["T"]="Е"
t["U"]="Г"
t["V"]="М"
t["W"]="Ц"
t["X"]="Ч"
t["Y"]="Н"
t["Z"]="Я"
t["{"]="Х"
t["}"]="Ъ"
t[":"]="Ж"
--t["""]="Э"
t["<"]="Б"
t[">"]="Ю"
t["?"]=","
t["~"]="Ё"
--t["@"]="""
t["#"]="№"
t["$"]=";"
t["^"]=":"
t["&"]="?"

if file and result_file then     -- если файлы открылись
    for v in file:lines() do
        result_file:write(string.gsub(v, ".", t).."\r\n")  -- поиск и замена текста из таблицы 't'
    end

    file:close()
    result_file:close()
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

Автор: cirus 27.1.2019, 20:27

Код

--lua
local s1 = '"Hello!"'        -- в одинарных кавычках допускаются двойные
local s2 = "'Hello!'"        -- в двойных кавычках допускаются одинарные
local s3 = [['"Hello!"']]    -- в двойных квадратных скобках допускаются любые символы
log (s1)
log (s2)
log (s3)

Автор: cirus 27.1.2019, 21:02

Код

t["<"]="Б"
t[">"]="Ю"
t["?"]=","

В луа хоть весь код можно писать в 1 строку.

Код

t["<"]="Б"   t[">"]="Ю"    t["?"]=","

Автор: DarkMaster 27.1.2019, 21:08

Цитата

local s3 = [['"Hello!"']] -- в двойных квадратных скобках допускаются любые символы

local s4 = [====['"Hello!"']====]
расширенный вариант двойных скобок. В таком варианте допускаются вложенные двойные скобки. Количество знаков = может быть любым, но одинаковым при открытии и закрытии. Все остальное будет считаться текстом.

Автор: FREEON 28.1.2019, 1:16

Помогите создать маску для url-декодера...
у нас буквы пишутся в таком виде состоят из 6 символов из которых 3 постоянные(подчеркнуты в примере):
Г = %d0%93
р = %d1%80
некоторые символы(их немного ; : @ & = + $ , / ? % # [ ]) по 3 знака, где 1й постоянный, 2-ой не d
пробел = %20 или же =+
# = %23
{ = %7B
есче иногда к примеру в коде используются буквы разных регистров, например буква Я может быть записана в таком виде %d0%af или же %D0%AF но маленькая буква я может быть представлена в таком виде %d1%8f или %D1%8F. Можно ли учесть для разных регистров маску или необходимо их дублировать?
Вот так пишется слово Код => %D0%9A%D0%BE%D0%B4
если записать через пробел то будет так %D0%9A+%D0%BE+%D0%B4
или так %D0%9A%20%D0%BE%20%D0%B4

Автор: cirus 28.1.2019, 4:24

Код

--lua
log "clear"   log "mode compact"

local s="%D0%9A%D0%BE%D0%B4%20%7Benglish%20text%7D%20%D0%9A%D0%BE%D0%B4%20lua!!!"   -- Код {english text} Код lua!!!
log(s)

local t={}
t["%D0%9A"]="К"
t["%D0%BE"]="о"
t["%D0%B4"]="д"
-- добавить только кириллицу, остальные символы не надо
-- ключи заглавными буквами

for v in pairs(t) do   -- добавление ключей в таблицу, если был "%D0%9A", то добавляется "%d0%9a"
    t[v:lower()]=t[v]
end

for i=32, 127 do t["%" .. string.format("%X", i)]=string.char(i) end   -- добавление ключей в таблицу, все символы ascii с 32 по 127


s=s:gsub("%%[Dd][01]%%%x%x", t)   -- замена кириллицы
s=s:gsub("%%..", t)               -- замена спецсимволов
log(s)                            -- результат

Автор: FREEON 28.1.2019, 6:38

Цитата(cirus @ 28.1.2019, 4:24)

Код

--lua
log "clear"   log "mode compact"

local s="%D0%9A%D0%BE%D0%B4%20%7Benglish%20text%7D%20%D0%9A%D0%BE%D0%B4%20lua!!!"   -- Код {english text} Код lua!!!
log(s)

local t={}
t["%D0%9A"]="К"
t["%D0%BE"]="о"
t["%D0%B4"]="д"
-- добавить только кириллицу, остальные символы не надо
-- ключи заглавными буквами

for v in pairs(t) do   -- добавление ключей в таблицу, если был "%D0%9A", то добавляется "%d0%9a"
    t[v:lower()]=t[v]
end

for i=32, 127 do t["%" .. string.format("%X", i)]=string.char(i) end   -- добавление ключей в таблицу, все символы ascii с 32 по 127
s=s:gsub("%%[Dd][01]%%%x%x", t)   -- замена кириллицы
s=s:gsub("%%..", t)               -- замена спецсимволов
log(s)                            -- результат

чо-то вроде получылось

URL-декодер: %D0%A2%D0%B5%D0%BA%D1%81%D1%82 -> Текст

Код


--lua
log "clear"   log "mode compact"

local s="Cirus-code-master%20%D0%B1%D0%BE%D0%B6%D1%8D%D0%BD%D1%8C%D0%BA%D0%B0!:)"   -- Код {english text} Код lua!!!
log(s)

local t={}
t["%D0%90"]="А" t["%D0%91"]="Б" t["%D0%92"]="В" t["%D0%93"]="Г" t["%D0%94"]="Д" t["%D0%95"]="Е" t["%D0%81"]="Ё" t["%D0%96"]="Ж" t["%D0%97"]="З" t["%D0%98"]="И" t["%D0%99"]="Й"
t["%D0%9A"]="К" t["%D0%9B"]="Л" t["%D0%9C"]="М" t["%D0%9D"]="Н" t["%D0%9E"]="О" t["%D0%9F"]="П" t["%D0%A0"]="Р" t["%D0%A1"]="С" t["%D0%A2"]="Т" t["%D0%A3"]="У" t["%D0%A4"]="Ф"
t["%D0%A5"]="Х" t["%D0%A6"]="Ц" t["%D0%A7"]="Ч" t["%D0%A8"]="Ш" t["%D0%A9"]="Щ" t["%D0%AA"]="Ъ" t["%D0%AB"]="Ы" t["%D0%AC"]="Ь" t["%D0%AD"]="Э" t["%D0%AE"]="Ю" t["%D0%AF"]="Я"
t["%D0%B0"]="а" t["%D0%B1"]="б" t["%D0%B2"]="в" t["%D0%B3"]="г" t["%D0%B4"]="д" t["%D0%B5"]="е" t["%D1%91"]="ё" t["%D0%B6"]="ж" t["%D0%B7"]="з" t["%D0%B8"]="и" t["%D0%B9"]="й"
t["%D0%BA"]="к" t["%D0%BB"]="л" t["%D0%BC"]="м" t["%D0%BD"]="н" t["%D0%BE"]="о" t["%D0%BF"]="п" t["%D1%80"]="р" t["%D1%81"]="с" t["%D1%82"]="т" t["%D1%83"]="у" t["%D1%84"]="ф"
t["%D1%85"]="х" t["%D1%86"]="ц" t["%D1%87"]="ч" t["%D1%88"]="ш" t["%D1%89"]="щ" t["%D1%8A"]="ъ" t["%D1%8B"]="ы" t["%D1%8C"]="ь" t["%D1%8D"]="э" t["%D1%8E"]="ю" t["%D1%8F"]="я"

for v in pairs(t) do   -- добавление ключей в таблицу, если был "%D0%9A", то добавляется "%d0%9a"
    t[v:lower()]=t[v]
end

for i=32, 127 do t["%" .. string.format("%X", i)]=string.char(i) end   -- добавление ключей в таблицу, все символы ascii с 32 по 127


s=s:gsub("%%[Dd][01]%%%x%x", t)   -- замена кириллицы
s=s:gsub("%%..", t)               -- замена спецсимволов
log(s)                            -- результат

Автор: FREEON 28.1.2019, 14:39

А можно ли скриптом сделать зеркальный текст? Что бы он отображался задом наперед?
Например:

Цитата

Не только Леонардо да Винчи пишет задом наперед! >>> !дерепан модаз тешип ичниВ ад одраноеЛ окьлот еН

Автор: cirus 28.1.2019, 15:27

Цитата

А можно ли скриптом сделать зеркальный текст?

Код

--lua
log "clear"  log "mode compact"
local s="Не только Леонардо да Винчи пишет задом наперед!"
log (s:reverse())

http://uopilot.tati.pro/index.php?title=Список_функций_(Lua)#.D0.A1.D1.82.D1.80.D0.BE.D0.BA.D0.B8

Автор: FREEON 28.1.2019, 16:09

Возник вопрос решил допилить генератор морзянки...

Код


--lua
--log "clear"   log "mode compact"

--local s="Текст-Text-123!"   -- Текс который хотим зашифровать в морзянку, вставить между ""
--log(s)
local file= io.open([[C:\123.txt]], "r")          -- файл с текстом
local result_file = io.open([[C:\456.txt]], "w")  -- куда сохранить результат
local t={}
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-" t["A"]=".-"     t["B"]="-..."   t["C"]="-.-."   t["D"]="-.."    t["E"]="."      t["F"]="..-."
t["G"]="--."    t["H"]="...."   t["I"]=".."     t["J"]=".---"   t["K"]="-.-"    t["L"]=".-.."   t["M"]="--"
t["N"]="-."     t["O"]="---"    t["P"]=".--."   t["Q"]="--.-"   t["R"]=".-."    t["S"]="..."    t["T"]="-"
t["U"]="..-"    t["V"]="...-"   t["W"]=".--"    t["X"]="-..-"   t["Y"]="-.--"   t["Z"]="--.."   t["А"]=".-"
t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."      t["Ё"]="."      t["Ж"]="...-"
t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."   t["М"]="--"     t["Н"]="-."
t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"      t["У"]="..-"    t["Ф"]="..-."
t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"   t["Ь"]="-..-"   t["Ъ"]="-..-"
t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do   -- добавление ключей в таблицу, если был "%Т", то добавляется "%т"
    t[v:lower()]=t[v]
end

if file and result_file then     -- если файлы открылись
    for v in file:lines() do
        result_file:write(string.gsub(v, ".", t).."\r\n")  -- поиск и замена текста из таблицы 't'
    end

    file:close()
    result_file:close()
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

--log(s)                            -- результат

Что я посылал:

Цитата

Всем привет faer

И что получил

Цитата

.--сем привет ..-..-..-.

Получается что для латинских букв создался нижний регистр, а для кириллицы нет, в чом загвоздка?

Автор: cirus 28.1.2019, 16:20

Цитата

v:lower()

Работает только с латиницей.
Используйте:

Код

string_lower(v)

Автор: FREEON 28.1.2019, 17:00

Цитата(cirus @ 28.1.2019, 16:20)

Работает только с латиницей.
Используйте:

Код

string_lower(v)

Код


--lua
log "clear"   log "mode compact"
local text = clipboard ()      -- получить из буфера обмена текст в переменную text
log (text)                     -- отобразить в логе значение переменной text
wait (300)                 -- пауза 300 мсек
local arr = clipboard (0, "string", "word") -- получить из буфера обмена текст в массив с разбивкой по строкам словам
log()
local t={}
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-" t["A"]=".-"     t["B"]="-..."   t["C"]="-.-."   t["D"]="-.."    t["E"]="."      t["F"]="..-."
t["G"]="--."    t["H"]="...."   t["I"]=".."     t["J"]=".---"   t["K"]="-.-"    t["L"]=".-.."   t["M"]="--"
t["N"]="-."     t["O"]="---"    t["P"]=".--."   t["Q"]="--.-"   t["R"]=".-."    t["S"]="..."    t["T"]="-"
t["U"]="..-"    t["V"]="...-"   t["W"]=".--"    t["X"]="-..-"   t["Y"]="-.--"   t["Z"]="--.."   t["А"]=".-"
t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."      t["Ё"]="."      t["Ж"]="...-"
t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."   t["М"]="--"     t["Н"]="-."
t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"      t["У"]="..-"    t["Ф"]="..-."
t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"   t["Ь"]="-..-"   t["Ъ"]="-..-"
t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do   -- добавление ключей в таблицу, если был "%Т", то добавляется "%т"
    t[string_lower(v)]=t[v]
end
--if --если в буфере есть текст
    for v in file:lines() do
        s=s:write(string.gsub(v, ".", t).."\r\n")  -- поиск и замена текста из таблицы 't'
    end
log(s)                            -- результат отобразить в логе
clipboard (???)                   -- результат записать в буфер

Исправил... но решил немного модернизировать скрипт...ну что бы текст брался из буфера затем записывался в лог, далее обробатывался результат выдавался в лог и записывался в буфер...но чо то столкнулся с трудностями lua не понятно куда и какие запихивать переменные...караааул

Автор: cirus 28.1.2019, 17:11

Код

--lua
log "clear"   log "mode compact"
local text = clipboard ()      -- получить из буфера обмена текст в переменную text

wait (300)                     -- пауза 300 мсек
log (text)                     -- отобразить в логе значение переменной text
log()
local t={}
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-" t["A"]=".-"     t["B"]="-..."   t["C"]="-.-."   t["D"]="-.."    t["E"]="."      t["F"]="..-."
t["G"]="--."    t["H"]="...."   t["I"]=".."     t["J"]=".---"   t["K"]="-.-"    t["L"]=".-.."   t["M"]="--"
t["N"]="-."     t["O"]="---"    t["P"]=".--."   t["Q"]="--.-"   t["R"]=".-."    t["S"]="..."    t["T"]="-"
t["U"]="..-"    t["V"]="...-"   t["W"]=".--"    t["X"]="-..-"   t["Y"]="-.--"   t["Z"]="--.."   t["А"]=".-"
t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."      t["Ё"]="."      t["Ж"]="...-"
t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."   t["М"]="--"     t["Н"]="-."
t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"      t["У"]="..-"    t["Ф"]="..-."
t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"   t["Ь"]="-..-"   t["Ъ"]="-..-"
t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do   -- добавление ключей в таблицу, если был "%Т", то добавляется "%т"
    t[string_lower(v)]=t[v]
end

local s=text:gsub(".", t)
log(s)                          -- результат отобразить в логе
clipboard (s)                   -- результат записать в буфер

Автор: FREEON 28.1.2019, 20:51

Ну да так и получается что многие серверы хитрят с кодировкой и расшифровкой морзянки...они дописывают либо спец символы или пробелы.
Вот можно сделать по аналогии как изменится код если к примеру в генерации в конце приписывать пробел.
имеем t["1"]=".----"

Код

local s=text:gsub(".", t) --нужно добавить пробел в конец

нужно получить ".---- " в итоге символы будут разделены одним пробелом, а слова двойным, что позволяет декодировать символы в текст. Тода для дешифровки нужно переделать маску(где записывали в бинарном виде)

Автор: cirus 28.1.2019, 21:18

Код

for v in pairs(t) do   -- добавление ключей в таблицу, если был "Т", то добавляется "т"

А толку с этого? При дешифровке регистр не важен? В таблице будет 2 ключа:

Код

t["Т"]="-"
t["т"]="-"

Т. е. при дешифровке символа '-' получим 'T' или 'т'. Причем, предсказать какую именной из этих букв получим нельзя, порядок ключей в таблице не определён.

Автор: FREEON 28.1.2019, 21:29

Цитата(cirus @ 28.1.2019, 21:18)

Код

for v in pairs(t) do   -- добавление ключей в таблицу, если был "Т", то добавляется "т"

А толку с этого? При дешифровке регистр не важен? В таблице будет 2 ключа:

Код

t["Т"]="-"
t["т"]="-"

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

Автор: cirus 28.1.2019, 21:50

Цитата

Так же придется делать отдельный(?) скрипт для дешифровки латиницы и кириллицы

Либо делать 2 таблицы. Одна для кириллицы, другая для латиницы. Но опять же будет проблема если в тексте будет разный язык.
Либо делать 1 таблицу, в которой все символы будут отличаться.

Автор: FREEON 28.1.2019, 22:04

Цитата(cirus @ 28.1.2019, 21:50)

Лучше сделать два скрипта, отдельно для латиницы:

Код


t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-" t["A"]=".-"     t["B"]="-..."   t["C"]="-.-."   t["D"]="-.."    t["E"]="."      t["F"]="..-."
t["G"]="--."    t["H"]="...."   t["I"]=".."     t["J"]=".---"   t["K"]="-.-"    t["L"]=".-.."   t["M"]="--"
t["N"]="-."     t["O"]="---"    t["P"]=".--."   t["Q"]="--.-"   t["R"]=".-."    t["S"]="..."    t["T"]="-"
t["U"]="..-"    t["V"]="...-"   t["W"]=".--"    t["X"]="-..-"   t["Y"]="-.--"   t["Z"]="--.."

и кириллицы:

Код


t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-" t["А"]=".-"     t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."
t["Ё"]="."      t["Ж"]="...-"   t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."
t["М"]="--"     t["Н"]="-."     t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"
t["У"]="..-"    t["Ф"]="..-."   t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"
t["Ь"]="-..-"   t["Ъ"]="-..-"   t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"

так же к примеру некоторые символы кодируются одинаково, это ( ) Е Ё Ь Ъ и для них не важно также при декодировании какой будет результат(допустим первый попавшийся символ из таблицы), не критично что в слове к примеру будет е или ё, или две скобки (текст(

Автор: cirus 28.1.2019, 22:39

Цитата

в итоге символы будут разделены одним пробелом, а слова двойным

А пробел как при этом кодируется? Как отличать пробел от разделителя.

Автор: FREEON 28.1.2019, 23:01

Цитата(cirus @ 28.1.2019, 22:39)

А пробел как при этом кодируется? Как отличать пробел от разделителя.

нет, мы будем использовать как символ деления символов и слов. для наглядности пробел заменим " " на "\"
Изначально строка выглядит так: как\дела
получается мы в конце буквы при генерации кода дописываем local s=text:gsub(".", t) + \ --дописываем маской
в результате что у нас было t["К"]="-.-" примет такой вид "-.-\"
и в итоге пилот код сгенерирует такой:

Код


-.-\.-\-.-\\-..\.\.-..\.-\
 к   а  к    д  е  л    а
 ➀  ➁ ➀ \ ➂ ➃  ➄   ➁

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

Для большей наглядности привиду пример где мы делали url декодер
если в пример записать % о он никак не мешает декодировать
декодируемый текст:%%D0%B1%%D0%BE%%D0%B6%%D1%8D%%D0%BD%%D1%8C%%D0%BA%%D0%B0
результат:%б%о%ж%э%н%ь%к%а
то бишь слова(буквы) разделены

Автор: cirus 29.1.2019, 0:50

Код

--lua
log "clear"  log "mode compact"

local text=[[-.-\.-\-.-\\\-..\.\.-..\.-\]]     -- "Как дела"
--local text="Как дела"     --  [[-.-\.-\-.-\\\-..\.\.-..\.-\]]
log(text)

local t, t1, temp = {}, {}, {}
t["А"]=".-"     t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."    t["Ё"]="."
t["Ж"]="...-"   t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."   t["М"]="--"
t["Н"]="-."     t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"   t["У"]="..-"
t["Ф"]="..-."   t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"   t["Ь"]="-..-"
t["Ъ"]="-..-"   t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do temp[string_lower(v)]=t[v] end
for v in pairs(temp) do t[v]=temp[v] end
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-"
for v in pairs(t) do t1[t[v]]=v end   -- таблица для дешифровки, копия 't' только ключи и значения ключей поменяны местами

local x=0
for v in text:gmatch("[%.%-%\\]") do x=x+1 end  -- подсчёт точек, тире и слешей в строке

if x > #text*50/100 then   -- если их больше 50%, считаем что передана шифрованная строка
    text=string.gsub(text:gsub("(.-)\\", t1), "\\\\", " ")    -- дешифруем
else
    text=string.gsub(string.gsub(text:gsub("([^ ])", "%1\\"), "%s", "\\\\"), "[^\\]", t)   -- иначе шифруем
end
log (text)

Автор: FREEON 29.1.2019, 1:18

Цитата(cirus @ 29.1.2019, 0:50)

Код

--lua
log "clear"  log "mode compact"

local text=[[-.-\.-\-.-\\\-..\.\.-..\.-\]]     -- "Как дела"
--local text="Как дела"     --  [[-.-\.-\-.-\\\-..\.\.-..\.-\]]
log(text)

local t, t1, temp = {}, {}, {}
t["А"]=".-"     t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."    t["Ё"]="."
t["Ж"]="...-"   t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."   t["М"]="--"
t["Н"]="-."     t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"   t["У"]="..-"
t["Ф"]="..-."   t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"   t["Ь"]="-..-"
t["Ъ"]="-..-"   t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do temp[string_lower(v)]=t[v] end
for v in pairs(temp) do t[v]=temp[v] end
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-"
for v in pairs(t) do t1[t[v]]=v end   -- таблица для дешифровки, копия 't' только ключи и значения ключей поменяны местами

local x=0
for v in text:gmatch("[%.%-%\\]") do x=x+1 end  -- подсчёт точек, тире и слешей в строке

if x > #text*50/100 then   -- если их больше 50%, считаем что передана шифрованная строка
    text=string.gsub(text:gsub("(.-)\\", t1), "\\\\", " ")    -- дешифруем
else
    text=string.gsub(string.gsub(text:gsub("([^ ])", "%1\\"), "%s", "\\\\"), "[^\\]", t)   -- иначе шифруем
end
log (text)

а в lua нет set delimiter ' ' ?

Код


for i, word in pairs(split(text, "<(.-)>")) do
    print(word)
end

function split(string, delimiter) -- Got this function from [url=https://helloacm.com/split-a-string-in-lua/]https://helloacm.com/split-a-string-in-lua/[/url]
    result = {};

    for match in (string..delimiter):gmatch("(.-)"..delimiter) do
        table.insert(result, match);
    end

    return result;
end

This code replaces the parts in the format "<(.-)>"

Example:
Input: "Hello<a>World</a>!"

Expected Output: {"Hello", "<a>", "World", "</a>", "!"}

Real Output: {"Hello", "World", "!"}

Код



s = "Hello<a>World</a>!"
for a in s:gsub('%b<>','\0%0\0'):gmatch'%Z+' do
  print(a)
end

Автор: cirus 29.1.2019, 1:43

Цитата

а в lua нет set delimiter ' ' ?

Нет. А для чего нужен?

Автор: FREEON 29.1.2019, 1:46

Цитата(cirus @ 29.1.2019, 1:43)

Нет. А для чего нужен?

для разделения вместо крывуль

а во чо-то похожее нашел... записывает в с столбик и через пробел

Код


--lua
function split(s, sep)
    local fields = {}

    local sep = sep or " "
    local pattern = string.format("([^%s]+)", sep)
    string.gsub(s, pattern, function(c) fields[#fields + 1] = c end)

    return fields
end

t = split("a,b,c,d,e,f,g",",")
for i,j in pairs(t) do
    log(i,j)
end

Код


--lua
local arr = {"Один", "Два", "Три", "Четыре"}
log (table.concat(arr, " "))    -- разделитель пробел

http://uopilot.tati.pro/index.php?title=Table.concat_(Lua)

Автор: cirus 29.1.2019, 3:02

То строку разделяете на элементы, то массив выводите. Это не одно и тоже.

Автор: sutra 29.1.2019, 4:02

Понимаю одно, не вникая ничего не понимаю. Даже толком изначально стоящую задачу. Какие-то "хитрые" методы простых решений. Так и не понял, какие проблемы могут возникать если надо что-то заменить на что-то. ЧТО-ТО у вас так всё сложно, сорри за каламбур.

Автор: FREEON 29.1.2019, 11:47

Цитата(cirus @ 29.1.2019, 3:02)

То строку разделяете на элементы, то массив выводите. Это не одно и тоже.

Lua такой гибкий язык и компактный, а такую простую вешч как разделитель в виде пробела не предусмотрели... Да уж...

Хотя смотрю по справке то вроде есть %s -- Символ пробел
http://uopilot.tati.pro/index.php?title=String.gsub_(Lua)

Автор: FREEON 29.1.2019, 12:27

Цитата(FREEON @ 29.1.2019, 11:47)

Хотя смотрю по справке то вроде есть %s -- Символ пробел
http://uopilot.tati.pro/index.php?title=String.gsub_(Lua)

Вроде чо-то насчупал...посматрите более опытным взглядом

Код


--lua
log "clear"  log "mode compact"

local text=[[..-.. .---  - .- -- ]]     -- "Как дела"
--local text="Как дела"     --  [[-.-\.-\-.-\\\-..\.\.-..\.-\]]
log(text)

local t, t1, temp = {}, {}, {}
t["А"]=".-"     t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."    t["Ё"]="."
t["Ж"]="...-"   t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."   t["М"]="--"
t["Н"]="-."     t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"   t["У"]="..-"
t["Ф"]="..-."   t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"   t["Ь"]="-..-"
t["Ъ"]="-..-"   t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do temp[string_lower(v)]=t[v] end
for v in pairs(temp) do t[v]=temp[v] end
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-"
for v in pairs(t) do t1[t[v]]=v end   -- таблица для дешифровки, копия 't' только ключи и значения ключей поменяны местами

local x=0
for v in text:gmatch("[%.%-%(%s)]") do x=x+1 end  -- подсчёт точек, тире и слешей в строке

if x > #text*50/100 then   -- если их больше 50%, считаем что передана шифрованная строка
    text=string.gsub(text:gsub("(.-)(%s)", t1), "(%s)(%s)", " ")    -- дешифруем
else
    text=string.gsub(string.gsub(text:gsub("([^ ])", "%1 "), "%s", " "), "[^ ]", t)   -- иначе шифруем
end
log (text)

ну во вроде летает

Автор: DarkMaster 29.1.2019, 13:10

Цитата

in pairs(t)

Лучше не использовать. Используйте next - он шустрее, делает тоже самое по сути.

Автор: cirus 29.1.2019, 13:27

Код

--lua
log "clear"  log "mode compact"

local text=[[-.- .- -.-   -.. . .-.. .-]]     -- "Как дела"
--local text="Как дела"     --  [[-.-\.-\-.-\\\-..\.\.-..\.-\]]
log(text)

local t, t1, temp = {}, {}, {}
t["А"]=".-"     t["Б"]="-..."   t["В"]=".--"    t["Г"]="--."    t["Д"]="-.."    t["Е"]="."    t["Ё"]="."
t["Ж"]="...-"   t["З"]="--.."   t["И"]=".."     t["Й"]=".---"   t["К"]="-.-"    t["Л"]=".-.."   t["М"]="--"
t["Н"]="-."     t["О"]="---"    t["П"]=".--."   t["Р"]=".-."    t["С"]="..."    t["Т"]="-"   t["У"]="..-"
t["Ф"]="..-."   t["Х"]="...."   t["Ц"]="-.-."   t["Ч"]="---."   t["Ш"]="----"   t["Щ"]="--.-"   t["Ь"]="-..-"
t["Ъ"]="-..-"   t["Ы"]="-.--"   t["Э"]="..-.."  t["Ю"]="..--"   t["Я"]=".-.-"
for v in pairs(t) do temp[string_lower(v)]=t[v] end
for v in pairs(temp) do t[v]=temp[v] end
t["1"]=".----"  t["2"]="..---"  t["3"]="...--"  t["4"]="....-"  t["5"]="....."  t["6"]="-...."  t["7"]="--..."
t["8"]="---.."  t["9"]="----."  t["0"]="-----"  t["."]="......" t[":"]="---..." t[";"]="-.-.-." t["("]="-.--.-"
t[")"]="-.--.-" t["'"]=".----." t['"']=".-..-." t["-"]="-....-" t["/"]="-..-."  t["?"]="..--.." t["!"]="--..--"
t[","]=".-.-.-"
for v in pairs(t) do t1[t[v]]=v end   -- таблица для дешифровки, копия 't' только ключи и значения ключей поменяны местами

local x=0
for v in text:gmatch("[%.%- ]") do x=x+1 end  -- подсчёт точек, тире и слешей в строке

if x > #text*50/100 then   -- если их больше 50%, считаем что передана шифрованная строка
    text=string.gsub((text .. " "):gsub("(.-) ", t1), "  ", " ")    -- дешифруем
else
    text=string.gsub(text:gsub("(.)", "%1 "), "[^ ]", t)  -- иначе шифруем
end
log (text)

Автор: FREEON 23.4.2019, 22:34

Какая маска для декодера CP1251 в UTF-8

Код


--lua
log ("clear")   log ("mode compact")
local q = clipboard ()      -- получить из буфера обмена текст в переменную text

wait (300)                     -- пауза 300 мсек
log (q)                     -- отобразить в логе значение переменной text
log()
local t={}
t["Рђ"]="А" t["Р‘"]="Б" t["Р’"]="В" t["Р“"]="Г" t["Р”"]="Д" t["Р•"]="Е" t["РЃ"]="Ё" t["Р–"]="Ж" t["Р—"]="З" t["Р"]="И" t["Р™"]="Й"
t["Рљ"]="К" t["Р›"]="Л" t["Рњ"]="М" t["Рќ"]="Н" t["Рћ"]="О" t["Рџ"]="П" t["Р "]="Р" t["РЎ"]="С" t["Рў"]="Т" t["РЈ"]="У" t["Р¤"]="Ф"
t["РҐ"]="Х" t["Р¦"]="Ц" t["Р§"]="Ч" t["РЁ"]="Ш" t["Р©"]="Щ" t["РЄ"]="Ъ" t["Р«"]="Ы" t["Р¬"]="Ь" t["Р"]="Э" t["Р®"]="Ю" t["РЇ"]="Я"
t["Р°"]="а" t["Р±"]="б" t["РІ"]="в" t["Рі"]="г" t["Рґ"]="д" t["Рµ"]="е" t["С‘"]="ё" t["Р¶"]="ж" t["Р·"]="з" t["Рё"]="и" t["Р№"]="й"
t["Рє"]="к" t["Р»"]="л" t["Рј"]="м" t["РЅ"]="н" t["Рѕ"]="о" t["Рї"]="п" t["СЂ"]="р" t["СЃ"]="с" t["С‚"]="т" t["%Сѓ"]="у" t["С„"]="ф"
t["С…"]="х" t["С†"]="ц" t["С‡"]="ч" t["С€"]="ш" t["С‰"]="щ" t["СЉ"]="ъ" t["С‹"]="ы" t["СЊ"]="ь" t["СЌ"]="э" t["СЋ"]="ю" t["СЏ"]="я"
local s = (string.gsub(q, "[РС]x", t))  --крокозябры из лога преоброзуем в текст ???
log (s)
clipboard (s)                  -- результат записать в буфер

Пример:

Цитата

Р°Р±РІРіРґРµС‘Р¶Р·РёР№РєР»РјРЅРѕРїСЂСЃС‚СѓС„С…С†С‡С€С‰СЉС‹СЊСЌСЋСЏ
РђР‘Р’Р“Р”Р•РЃР–Р—РР™РљР›РњРќРћРџР РЎРўРЈР¤РҐР¦Р§РЁР©РЄР«Р¬РР®РЇ

Автор: FREEON 29.10.2019, 16:14

Есть два файла текстового формата. Нужно сперва в file1.txt произвести замены всех символов(слов):
первая замена, меняем * на "
вторая замена, меняем </tr> , <tr> на </tr> <tr>
И затем в file2.html меняем текст  на текст из обработанного файла file1.txt
Как реализовать замену текста из одного файла в другом, а то у меня чота уже мозги кипят

Автор: Fors1k 30.10.2019, 1:59

Цитата(FREEON @ 29.10.2019, 16:14)

Код

//-----Настройки
set $a *
set $a1 "
set $b </tr> , <tr>
set $b1 </tr> <tr>
set $c "<!-- 1 -->"
//-----Скрипт
load_array %file1 c:/2/file1.txt
for #i 1 size(%file1)
    set $file1 %file1[#i]
    set %file1[#i] string_replace($file1 $a $a1 all)
    set $file1 %file1[#i]
    set %file1[#i] string_replace($file1 $b $b1 all)
end_for
load_array %file2 c:/2/file2.txt
set #res indexOf(%file2 noabs ($c))
set #nd #res - 1
for #i 1 #nd
    set %file2a[#i] %file2[#i]
end_for
for #i 1 size(%file1)
    set #j #i + #nd
    set %file2a[#j] %file1[#i]
end_for
save_array %file2a c:/2/file2_new.txt
set #res1 #res + 1
for #i #res1 size(%file2)
    write (c:/2/file2_new.txt %file2[#i] \r\n)
end_for
end_script

Автор: FREEON 30.10.2019, 11:27

Цитата(Fors1k @ 30.10.2019, 1:59)

С командой indexOf еще не сталкивался. Попробовал адаптировать под себя но неудачно... на втором этапе подстановки из фала в файл где-то натыкаюсь на вилы.

Код


//-----Настройки
set $a *
set $a1 "
set $b </tr> , <tr>
set $b1 </tr> <tr>
set $c "<!-- 1 -->"
//-----Скрипт
load_array %file1 c:\123.txt
for #i 1 size(%file1)
    set $file1 %file1[#i]
    set %file1[#i] string_replace($file1 $a $a1 all)
    set $file1 %file1[#i]
    set %file1[#i] string_replace($file1 $b $b1 all)
    //write (D:\123\1_rez.txt %file1[#i] \r\n) //проверяем результат замены. Все Ок
end_for

load_array %file2 D:\123\2.txt
set #res indexOf(%file2 noabs ($c))
set #nd #res - 1
for #i 1 #nd
    set %file2a[#i] %file2[#i]
end_for
for #i 1 size(%file1)
    set #j #i + #nd
    set %file2a[#j] %file1[#i]
    //write (D:\123\2_new.txt %file2a[#i] \r\n)  //сохраняет файл 3байта(пустой) игра с #i или #j не дает никакого результата
end_for
//save_array %file2a D:\123\2_new.txt  //сохроняет файл 0 байт
end_script          //дальнейшая проверка пока не имеет смысла
set #res1 #res + 1
for #i #res1 size(%file2)
    write (D:\123\2_new.txt %file2[#i] \r\n)
end_for
end_script

Автор: cirus 30.10.2019, 12:46

Цитата

Есть два файла текстового формата. Нужно сперва в file1.txt произвести замены всех символов(слов):
первая замена, меняем * на "
вторая замена, меняем </tr> , <tr> на </tr> <tr>

Код

--lua
local file= io.open([[C:\123.txt]], "r")          -- файл с текстом
local result_file = io.open([[C:\456.txt]], "w")  -- куда сохранить результат

if file and result_file then     -- если файлы открылись
    for v in file:lines() do
        local s=v:gsub("*", '"')  -- поиск и замена текста
        s=s:gsub("(</tr>)( , )(<tr>)", "%1 %3")  -- поиск и замена текста
        result_file:write(s .. "\n")
    end

    file:close()
    result_file:close()
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

Автор: Fors1k 30.10.2019, 13:09

Цитата

Еще раз проверил, все работает.

File1

Цитата

In Winter *I get up* at night
And </tr> , <tr>dress by yellow</tr> , <tr> candle light.
In *Summer, quite the other way,
I have to go to bed by day</tr> , <tr>.

File2

Цитата

123_abc
456_efg

789
123qwe123
777 hello

File2_new

Цитата

123_abc
456_efg
In Winter "I get up" at night
And </tr> <tr>dress by yellow</tr> <tr> candle light.
In "Summer, quite the other way,
I have to go to bed by day</tr> <tr>.
789
123qwe123
777 hello

Текст из файла1 вставлен в нужную строку файла2, с желаемыми заменами.

Автор: FREEON 30.10.2019, 13:30

Цитата(Fors1k @ 30.10.2019, 13:09)

Еще раз проверил, все работает.

File1

File2

File2_new
Текст из файла1 вставлен в нужную строку файла2, с желаемыми заменами.

Взял идентичный скрипт, создал идентичные файлы с таким же шаблоном текста и не хочет работать...выдает сообщение:
(27): Ошибка! Проверьте правильность скрипта! EAccessViolation Access violation at address 005531E6 in module uopilot241.exe'. Read of address FFFFFFFC
calc c:/2/file2_new.txt %file2[*i]
чудеса

Автор: Fors1k 30.10.2019, 13:35

Цитата(FREEON @ 30.10.2019, 13:30)

Взял идентичный скрипт

Цитата(FREEON @ 30.10.2019, 13:30)

calc c:/2/file2_new.txt %file2[*i]

У меня в скрипте нет обращения к элементу массива через *i =)) Наверное ошибка в этом.

Автор: FREEON 30.10.2019, 13:48

Цитата(Fors1k @ 30.10.2019, 13:35)

У меня в скрипте нет обращения к элементу массива через *i =)) Наверное ошибка в этом.

чо-то другое сбрось свой скрипт из пилота. потому чо убрал #i тогда в file2_new.txt копирует только результат замены и тот обрезанный на 2 строчки не говоря о тексте file2

Цитата

Результат работы записанный в file2_new.txt

Цитата

In "Summer, quite the other way,
I have to go to bed by day</tr> <tr>.

Автор: Fors1k 30.10.2019, 14:46

Цитата(FREEON @ 30.10.2019, 13:48)

сбрось свой скрипт из пилота.

Код прям с форума.

[+]

Автор: FREEON 30.10.2019, 15:41

Цитата(Fors1k @ 30.10.2019, 14:46)

Код прям с форума.

[+]

даж не знаю в чем дело... у тя работает у меня нет...как такое возможно О_о

Автор: FREEON 30.10.2019, 18:15

Цитата(FREEON @ 30.10.2019, 15:41)

даж не знаю в чем дело... у тя работает у меня нет...как такое возможно О_о

Заработа) Нашел ошибку, твой пример работает, а я неверно имя файла указал fele2.txt написал.
Но с моими файлами работать по прежнему не хочет возможно из-за большого объема текста.

Автор: cirus 31.10.2019, 1:26

На луа скрипт работает?

Автор: FREEON 31.10.2019, 7:04

Цитата(cirus @ 31.10.2019, 1:26)

На луа скрипт работает?

Да работает на lua. Кажется простая замена, но такая маска нужна, что сам бы никогда не додумался, каждый случай уникален. Благодарю за помощь.
И извиняюсь за наглость(просто очень нужно), а вторую часть кода можно как-то реализовать на lua? Сильно не бейте тока...оч нада

Автор: Fors1k 31.10.2019, 8:04

Цитата(FREEON @ 30.10.2019, 18:15)

Но с моими файлами работать по прежнему не хочет

Ну ты пришли свои файлы для теста, что хорошо бы было сразу сделать)

Автор: FREEON 31.10.2019, 9:33

Цитата(Fors1k @ 31.10.2019, 8:04)

Ну ты пришли свои файлы для теста, что хорошо бы было сразу сделать)

#i_1.txt меняем * на " и </tr> , <tr> на </tr> <tr>
#i_2.txt меняем * на " и </tr> , <tr> на </tr> <tr>
#i.html подставляем вместо  текст из #i_1.txt и вместо  текст из #i_2.txt

test.zip ( 351,99 килобайт ) Кол-во скачиваний: 274

Автор: cirus 31.10.2019, 11:37

Код

--lua
local file = io.open([[C:\1_1.txt]], "r")          -- файл с текстом
local file2 = io.open([[C:\1.html]], "r")          -- файл с текстом
local result_file = io.open([[C:\1_1z.txt]], "w")  -- куда сохранить результат
local result_file2 = io.open([[C:\1z.html]], "w")  -- куда сохранить результат

if file and result_file and file2 and result_file2 then     -- если файлы открылись
        local s2, s = ""
        for v in file:lines() do    -- прочитать файл по строкам
            s=v:gsub("*", '"')  -- поиск и замена текста
            s=s:gsub("(</tr>)( , )(<tr>)", "%1 %3")  -- поиск и замена текста
            result_file:write(s .. "\n")
        end

        for v in file2:lines() do s2=s2 .. v end    -- прочитать файл по строкам
        result_file2:write(s2:gsub("<!%-%- 1 %-%->", s))   -- поиск и замена текста
        file:close()   file2:close()    result_file:close()   result_file2:close()  -- закрыть файлы
else
    log ("Файлы отсутствуют или недоступны для чтения/записи")
end

Автор: Fors1k 31.10.2019, 15:49

Цитата(FREEON @ 31.10.2019, 9:33)

test.zip ( 351,99 килобайт ) Кол-во скачиваний: 274

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

Код

load_array %file3 c:/2/11.html                 //путь к целевому файлу
load_array %file c:/2/11_1.txt                 //путь к файлу 1
set #res indexOf(%file3 noabs ("<!-- 1 -->"))  //цель 1
gosub zamena
load_array %file c:/2/11_2.txt                 //путь к файлу 2
set #res indexOf(%file3 noabs ("<!-- 2 -->"))  //цель 2
gosub zamena
save_array %file3 c:/2/11_new.html             //путь для сохранения
end_script
:zamena                                        //замена текста
    set $file %file[1]
    set $file string_replace($file * " all)
    set $file string_replace($file "</tr> , <tr>" "</tr> <tr>" all)
    set %file3[#res] $file
return

Там в итоге же должны заполниться две таблицы?
Заработал?

Автор: FREEON 1.11.2019, 1:26

Цитата(Fors1k @ 31.10.2019, 15:49)

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

Код

load_array %file3 c:/2/11.html                 //путь к целевому файлу
load_array %file c:/2/11_1.txt                 //путь к файлу 1
set #res indexOf(%file3 noabs ("<!-- 1 -->"))  //цель 1
gosub zamena
load_array %file c:/2/11_2.txt                 //путь к файлу 2
set #res indexOf(%file3 noabs ("<!-- 2 -->"))  //цель 2
gosub zamena
save_array %file3 c:/2/11_new.html             //путь для сохранения
end_script
:zamena                                        //замена текста
    set $file %file[1]
    set $file string_replace($file * " all)
    set $file string_replace($file "</tr> , <tr>" "</tr> <tr>" all)
    set %file3[#res] $file
return

Там в итоге же должны заполниться две таблицы? т
Заработал?

Все верно две или одна таблица. Извиняюсь чо долго заставил ждать только сейчас удалось добраться до ноута. Проверил все работает как часы и даже лучше чем ожидал...ты избавил меня от нудной рутинной работы. Благодарю, реальна красаучык!

Автор: FREEON 18.11.2021, 14:36

Столкнулся с проблемой при работе скипта для транслитерации текста(записать русские буквы в латинском алфавите). При переименовании файла скрипт почемуто не хочет переименовывать файл если есть в имени пробел. Например: "Русский текст.txt" файл по неясной для меня причине не хочет переименовываться, хотя если работать со строками в тексте этой проблемы нет.

Код

--lua
log "clear" log "mode compact"
local path = [[D:\_NHL\End]]      -- путь к папке
local POISK, count = dir (path, "*.txt", "norecursion")  -- получить список всех файлов в формате 'txt', не включая файлы в подпапках
log ("Найдено файлов: " .. count)
if count then      -- если файлы найдены
    for i=1, #POISK do
        log ("Работаем с: " ..POISK[i][1])         -- показать в логе список
        local OldName = POISK[i][3]          -- Текст который хотим написать на латинском алфавите
        log ("Старое имя: " ..OldName)
        local t = {}
        t["А"]="A"     t["Б"]="B"   t["В"]="V"    t["Г"]="G"    t["Д"]="D"    t["Е"]="E"    t["Ё"]="E"
        t["Ж"]="ZH"    t["З"]="Z"   t["И"]="I"    t["Й"]="Y"    t["К"]="K"    t["Л"]="L"    t["М"]="M"
        t["Н"]="N"     t["О"]="O"   t["П"]="P"    t["Р"]="R"    t["С"]="S"    t["Т"]="T"    t["У"]="U"
        t["Ф"]="F"     t["Х"]="KH"  t["Ц"]="TS"   t["Ч"]="CH"   t["Ш"]="SH"   t["Щ"]="SHCH" t["Ь"]=""
        t["Ъ"]=""      t["Ы"]="Y"   t["Э"]="E"    t["Ю"]="YU"   t["Я"]="YA"
        t["а"]="a"     t["б"]="b"   t["в"]="v"    t["г"]="g"    t["д"]="d"    t["е"]="e"    t["ё"]="e"
        t["ж"]="zh"    t["з"]="z"   t["и"]="i"    t["й"]="y"    t["к"]="k"    t["л"]="l"    t["м"]="m"
        t["н"]="n"     t["о"]="o"   t["п"]="p"    t["р"]="r"    t["с"]="s"    t["е"]="t"    t["у"]="u"
        t["ф"]="f"     t["х"]="kh"  t["ц"]="ts"   t["ч"]="ch"   t["ш"]="sh"   t["щ"]="shch" t["ь"]=""
        t["ъ"]=""      t["ы"]="y"   t["э"]="e"    t["ю"]="yu"   t["я"]="ya"
        t[" "]="-" --пробел заменять на тире
        local NewName = string.gsub(OldName, "(.)", t)  -- поиск и замена текста из таблицы 't'
        log ("Транскрипции имени: " ..NewName)
        local NewPathAndName = POISK[i][2]..NewName..POISK[i][4]
        log ("вывести н. путь и имя: " ..NewPathAndName)
        filerename (POISK[i][1], NewPathAndName)  -- переименовать Иванов.txt в Ivanov.txt
        log ("---")
    end
end

Автор: cirus 18.11.2021, 14:53

Путь с пробелами должен быть в кавычках.

Код

--lua
log 'clear' log 'mode compact'
local OldName = "C:\\test.txt"
local NewName = "C:\\Русский текст.txt"

log ( NewName )
log ( string.format("%q", NewName) )

filerename (string.format("%q", OldName) , string.format("%q", NewName))

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)