[решено] Total Commander Как осуществить групповую транслитерацию по списку из файла?

YuS_2 · Отправлено: **18:17, 23-04-2020** | #2

Цитата michsh@vk:

Powershell »

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

michsh@vk · Отправлено: **18:39, 23-04-2020** | #3

YuS_2,
1. Условный пример:

пути выглядят так:

\\Michsh-pc\d\тест\авып впы 112434125 dfgfd.txt
\\Michsh-pc\d\тест\авып впы 112434125 dfgfd — копия.txt
\\Michsh-pc\d\тест\авып впы 112434125 dfgfd — копия (2).txt

Только в реальности шара идет через IP-адрес а не доменное имя.

2. Список сохранен в UTF-8

3. Боюсь, требуется именно транслитерация как самый компромиссный вариант.

Благодарю!

---

Пока прошу подождать с решением.
Сейчас будет уточняться нужна транслитерация или обрезка имени.

YuS_2 · Отправлено: **19:26, 23-04-2020** | #4

Цитата michsh@vk:

требуется именно транслитерация как самый компромиссный вариант. »

Файл скрипта рекомендую сохранить в UTF-8 c BOM

script.ps1

Код:

function translit {
	param(
		[parameter(mandatory=$true,valuefrompipeline=$true)]
		[allowemptystring()]
		[allownull()]
		[string]$fstring,
		[switch]$reverse
	)
	begin {
		$arr1 = @(
			'8979','89111','121111','9072','90104','122104','6790','67122','99122','6772',
			'67104','99104','8372','83104','115104','837272','83104104','115104104','9696','8996',
			'12196','6996','10196','8985','89117','121117','8965','8997','12197'
		)
		$charr = @{
			[char]'А' = 'A'
			[char]'а' = 'a'
			[char]'Б' = 'B'
			[char]'б' = 'b'
			[char]'В' = 'V'
			[char]'в' = 'v'
			[char]'Г' = 'G'
			[char]'г' = 'g'
			[char]'Д' = 'D'
			[char]'д' = 'd'
			[char]'Е' = 'E'
			[char]'е' = 'e'
			[char]'Ё' = 'YO'
			[char]'ё' = 'yo'
			[char]'Ж' = 'ZH'
			[char]'ж' = 'zh'
			[char]'З' = 'Z'
			[char]'з' = 'z'
			[char]'И' = 'I'
			[char]'и' = 'i'
			[char]'Й' = 'J'
			[char]'й' = 'j'
			[char]'К' = 'K'
			[char]'к' = 'k'
			[char]'Л' = 'L'
			[char]'л' = 'l'
			[char]'М' = 'M'
			[char]'м' = 'm'
			[char]'Н' = 'N'
			[char]'н' = 'n'
			[char]'О' = 'O'
			[char]'о' = 'o'
			[char]'П' = 'P'
			[char]'п' = 'p'
			[char]'Р' = 'R'
			[char]'р' = 'r'
			[char]'С' = 'S'
			[char]'с' = 's'
			[char]'Т' = 'T'
			[char]'т' = 't'
			[char]'У' = 'U'
			[char]'у' = 'u'
			[char]'Ф' = 'F'
			[char]'ф' = 'f'
			[char]'Х' = 'X'
			[char]'х' = 'x'
			[char]'Ц' = 'C'
			[char]'ц' = 'c'
			[char]'Ч' = 'CH'
			[char]'ч' = 'ch'
			[char]'Ш' = 'SH'
			[char]'ш' = 'sh'
			[char]'Щ' = 'SHH'
			[char]'щ' = 'shh'
			[char]'Ъ' = '``'
			[char]'ъ' = '``'
			[char]'Ы' = 'Y`'
			[char]'ы' = 'y`'
			[char]'Ь' = '`'
			[char]'ь' = '`'
			[char]'Э' = 'E`'
			[char]'э' = 'e`'
			[char]'Ю' = 'YU'
			[char]'ю' = 'yu'
			[char]'Я' = 'YA'
			[char]'я' = 'ya'
		}
		$revcharr = @{
			[char]'A' = 'А'
			[char]'a' = 'а'
			[char]'B' = 'Б'
			[char]'b' = 'б'
			[char]'V' = 'В'
			[char]'v' = 'в'
			[char]'G' = 'Г'
			[char]'g' = 'г'
			[char]'D' = 'Д'
			[char]'d' = 'д'
			[char]'E' = 'Е'
			[char]'e' = 'е'
			$(-join [int[]][char[]]'YO') = 'Ё' <#89-79#>
			$(-join [int[]][char[]]'Yo') = 'Ё' <#89-111#>
			$(-join [int[]][char[]]'yo') = 'ё' <#121-111#>
			$(-join [int[]][char[]]'ZH') = 'Ж' <#90-72#>
			$(-join [int[]][char[]]'Zh') = 'Ж' <#90-104#>
			$(-join [int[]][char[]]'zh') = 'ж' <#122-104#>
			[char]'Z' = 'З'
			[char]'z' = 'з'
			[char]'I' = 'И'
			[char]'i' = 'и'
			[char]'J' = 'Й'
			[char]'j' = 'й'
			[char]'K' = 'К'
			[char]'k' = 'к'
			[char]'L' = 'Л'
			[char]'l' = 'л'
			[char]'M' = 'М'
			[char]'m' = 'м'
			[char]'N' = 'Н'
			[char]'n' = 'н'
			[char]'O' = 'О'
			[char]'o' = 'о'
			[char]'P' = 'П'
			[char]'p' = 'п'
			[char]'R' = 'Р'
			[char]'r' = 'р'
			[char]'S' = 'С'
			[char]'s' = 'с'
			[char]'T' = 'Т'
			[char]'t' = 'т'
			[char]'U' = 'У'
			[char]'u' = 'у'
			[char]'F' = 'Ф'
			[char]'f' = 'ф'
			[char]'X' = 'Х'
			[char]'x' = 'х'
			[char]'C' = 'Ц'
			$(-join [int[]][char[]]'CZ')	= 'Ц' <#67-90#>
			$(-join [int[]][char[]]'Cz')	= 'Ц' <#67-122#>
			[char]'c' = 'ц'
			$(-join [int[]][char[]]'cz')	= 'ц' <#99-122#>
			$(-join [int[]][char[]]'CH')	= 'Ч' <#67-72#>
			$(-join [int[]][char[]]'Ch')	= 'Ч' <#67-104#>
			$(-join [int[]][char[]]'ch')	= 'ч' <#99-104#>
			$(-join [int[]][char[]]'SH')	= 'Ш' <#83-72#>
			$(-join [int[]][char[]]'Sh')	= 'Ш' <#83-104#>
			$(-join [int[]][char[]]'sh')	= 'ш' <#115-104#>
			$(-join [int[]][char[]]'SHH')	= 'Щ' <#83-72-72#>
			$(-join [int[]][char[]]'Shh')	= 'Щ' <#83-104-104#>
			$(-join [int[]][char[]]'shh')	= 'щ' <#115-104-104#>
			#[char]''     = 'Ъ'
			$(-join [int[]][char[]]'``')	= 'ъ' <#96-96#> 
			$(-join [int[]][char[]]'Y`')	= 'Ы' <#89-96#>
			$(-join [int[]][char[]]'y`')	= 'ы' <#121-96#>
			#[char]'`'     = 'Ь'
			[char]'`'     = 'ь'
			$(-join [int[]][char[]]'E`')	= 'Э' <#69-96#>
			$(-join [int[]][char[]]'e`')	= 'э' <#101-96#>
			$(-join [int[]][char[]]'YU')	= 'Ю' <#89-85#>
			$(-join [int[]][char[]]'Yu')	= 'Ю' <#89-117#>
			$(-join [int[]][char[]]'yu')	= 'ю' <#121-117#>
			$(-join [int[]][char[]]'YA')	= 'Я' <#89-65#>
			$(-join [int[]][char[]]'Ya')	= 'Я' <#89-97#>
			$(-join [int[]][char[]]'ya')	= 'я' <#121-97#>
		}
	}
	process {
		if($reverse){
			$f2,$f3,$j,$m = $true,$true,0,0
			$cnt = $fstring.tochararray().length
			$arrtmp = $fstring.tochararray()
			for($i=0;$i -lt $cnt;$i++){
				if ($f2 -and $f3 -and $arr1 -match "^$([int][char]$arrtmp[$i])") {
					if (($i+2) -lt $cnt){
						for ($k=0;$k -le 2;$k++){
							[string]$str += "$([int][char]$arrtmp[($i+$k)])"
						}
						if ($arr1 -contains $str){$f3 = $false}
						$str = $null
					} 
					if (($i+1) -lt $cnt -and $f3){
						for ($l=0;$l -le 1;$l++){
							[string]$str += "$([int][char]$arrtmp[($i+$l)])"
						}
						if ($arr1 -contains $str){$f2 = $false}
						$str = $null
					}
				} 
				if (!$f3){
					[string]$str += "$([int][char]$arrtmp[$i])";$j++
					if ($j -ge 3){
						$f3 = $true;$j = 0
						$arr += $revcharr[$str]
						$str = $null
					}
				} elseif (!$f2){
					[string]$str += "$([int][char]$arrtmp[$i])";$m++
					if ($m -ge 2){
						$f2 = $true;$m = 0
						$arr += $revcharr[$str]
						$str = $null
					}
				} else {
					if ($revcharr[$arrtmp[$i]] -cne $null){
						$arr += $revcharr[$arrtmp[$i]]
					} else {
						$arr += $arrtmp[$i]
					}
				}
			}
			$arr += "`n"
		} else {
			$fstring.tochararray()|%{
				if ($charr[$_] -cne $null){
					$arr += $charr[$_]
				} else {
					$arr += $_
				}
			}
			$arr += "`n"
		}
	}
	end {write-output $arr.trim("`n")}
}

$list = 'file_list.txt'

gi (gc $list -enc utf8)|ren -new {($_.basename|translit)+$_.extension}

michsh@vk · Отправлено: **22:35, 23-04-2020** | #5

YuS_2, прощу прощения, что не успел Вас предупредить раньше. Спасибо большое за помощь.

michsh@vk · Отправлено: **10:03, 24-04-2020** | #6

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

YuS_2 · Отправлено: **11:24, 24-04-2020** | #7

Цитата michsh@vk:

есть возможность показать решение через скрипт? »

это как?
Скрипт приведен выше... скрипту нужны только данные из файла-списка. Ну и естественно, права доступа, иначе переименовать не получиться.

Цитата michsh@vk:

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

Это Вы скажите, что надо с такими файлами делать...

michsh@vk · Отправлено: **15:59, 24-04-2020** | #8

YuS_2, простите голова кругом пошла.
Я имел ввиду можете ли вы показать, как будет выглядеть скрипт на обрезание файлов?
В прочем, пока текущее ТЗ "плавает" я нашел способ сделать это через Total Commander. Чуть позже я выложу решение без использования скрипта, но и без самого списка с файлами.
Так как нашел как вынести все найденные по критерию файлы на панель в самом Total Commander. Это была моя ошибка связанная с нехваткой опыта и недостаточной внимательностью в работе с ним.
Еще раз, благодарю вас за помощь)

YuS_2 · Отправлено: **16:30, 24-04-2020** | #9

Цитата michsh@vk:

можете ли вы показать, как будет выглядеть скрипт на обрезание файлов? »

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

michsh@vk · Отправлено: **17:36, 24-04-2020** | #10

Как решить данный вопрос, НЕ используя файл со списком.

Для работы нужны плагины: FileX и wdx_Translit.

1. Установите плагины, добавив их в настройках Total Commander.

Скрытый текст

2. Выделите путь в Total Commander, зажать Backspace, чтобы появилась возможность ввести путь до сетевой шары вручную (либо, если шара подключена как объект, выберите ее из списка).

Скрытый текст

3. Выберите поиск файлов:

Скрытый текст

4. В качестве фильтра выберите FileX, выберите параметр длина имени, и укажите условие, что длина превышает 127 символов (если имя файла будет состоять, только из одной кириллицы без пробелов, то длина в 128 символов будет равна 256 байт для кодировки UTF-8)

Скрытый текст

5. Выберите после произведенного поиска - файлы на панель

Скрытый текст

6. После чего выделите нужные файлы и выберите групповое переименование.

Скрытый текст

7. Далее вы можете их как обрезать так и транслитировать:

Скрытый текст

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