如何解决可变音译powershell
有一个我无法快速解决的问题。 关键是要遍历两个带有字母的表中的所有匹配项。 例如我的脚本
function global:TranslitToLAT {
param([string]$inString)
$Translit_To_LAT = @{
[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]'ё' = "e"
[char]'Ё' = "e"
[char]'ж' = "zh"
[char]'Ж' = "zh"
[char]'з' = "z"
[char]'З' = "z"
[char]'и' = "i"
[char]'И' = "i"
[char]'й' = "y"
[char]'Й' = "y"
[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]'х' = "h"
[char]'Х' = "h"
[char]'ц' = "ts"
[char]'Ц' = "ts"
[char]'ч' = "ch"
[char]'Ч' = "ch"
[char]'ш' = "sh"
[char]'Ш' = "sh"
[char]'щ' = "sch"
[char]'Щ' = "sch"
[char]'ъ' = "" # "``"
[char]'Ъ' = "" # "``"
[char]'ы' = "y" # "y`"
[char]'Ы' = "y" # "Y`"
[char]'ь' = "" # "`"
[char]'Ь' = "" # "`"
[char]'э' = "e" # "e`"
[char]'Э' = "e" # "E`"
[char]'ю' = "yu"
[char]'Ю' = "yu"
[char]'я' = "ya"
[char]'Я' = "ya"
[char]' ' = "_"
}
$outChars = ""
$TwoLetter_To_LAT = @{
[string]'ъи' = 'yi'
[string]'ьи' = 'yi'
[string]'ье' = 'ye'
[string]'ъe' = 'ye'
[string]'ий' = 'ii'
[string]'кс' = 'x'
[string]'ц' = 'c'
}
$chars = $inString.ToCharArray();
$outChars1 = $outChars
foreach ($char in $chars) {
$outChars1 += $Translit_To_LAT[$char]
$outChars11 = Write-Output $outChars1 `n
}
$TwoLetter_To_LAT.GetEnumerator().name | % {
$inString = $inString.Replace($_,$TwoLetter_To_LAT.Item($_))
}
$outChars2 = $outChars
foreach ($c in $inChars = $inString.ToCharArray()) {
if ($Translit_To_LAT[$c] -ne $Null )
{ $outChars2 += $Translit_To_LAT[$c] }
else
{ $outChars2 += $c }
$outChars22 = Write-Output $outChars2 `n
}
$outChars3 = $outChars11 + $outChars22
Write-Output $outChars3
}
$text = Read-Host "Second name"
$log = TranslitToLAT $text | select $log > c:\users.txt
$log
部分起作用。当用俄语输入姓氏时,第二个表中有两个匹配项,我从第一个表中和第二个表中得到总数。我应该获得4个音译选项! 我将举一个如何使循环遍历表的示例感到满意。
解决方法
稍微改一下,我想您要问的问题是“给定源字符串$inString
和替换列表$Translit_To_LAT
,返回应用于该列表的所有可能替换列表的列表源字符串”。
例如,我假设您的示例Алексий
-将在下面给出4个替换:
1. А-л-е-к-с-и-й -> a-l-e-k-s-i-y
2. А-л-е-к-с-ий -> a-l-e-k-s-ii
3. А-л-е-кс-и-й -> a-l-e-x-i-y
4. А-л-е-кс-ий -> a-l-e-x-ii
根据您的替代名单,有一些事情需要注意:
-
区分大小写,例如,可能替换为
б
和Б
-
某些替换文字在替换文字中包含多个字符-例如
ж
=>"zh"
-
某些替换项具有多个替换选项-例如
ц
=>c
和ts
-
某些替换匹配多个源字符-例如
ъи
=>yi
-
有时,对于相同的字符序列,可能会有多种替换方式-例如
ий
可以是两个单独的替换(“и
=>i
和й
=>y
)或单独的“复合”替换({{1} } =>ий
)
我已经将您的代码重写为一个递归函数,该函数基本上执行以下操作:
-
如果输入字符串为空,则只需返回一个空字符串
-
否则,枚举可在字符串开头使用的所有替换,然后将它们与字符串的尾部进行递归调用的结果“相乘”
这是代码:
ii
这是一些示例:
function Get-Transliteration
{
param(
[string] $InputString
)
$lookups = [ordered] @{
# single character substitutions
# (we need to use the [char] cast to force case sensitivity for keys)
[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] "ё" = @( "e" )
[char] "Ё" = @( "e" )
[char] "ж" = @( "zh" )
[char] "Ж" = @( "zh" )
[char] "з" = @( "z" )
[char] "З" = @( "z" )
[char] "и" = @( "i" )
[char] "И" = @( "i" )
[char] "й" = @( "y" )
[char] "Й" = @( "y" )
[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] "х" = @( "h" )
[char] "Х" = @( "h" )
[char] "ц" = @( "c","ts")
[char] "Ц" = @( "ts" )
[char] "ч" = @( "ch" )
[char] "Ч" = @( "ch" )
[char] "ш" = @( "sh" )
[char] "Ш" = @( "sh" )
[char] "щ" = @( "sch" )
[char] "Щ" = @( "sch" )
[char] "ъ" = @( "" )
[char] "Ъ" = @( "" )
[char] "ы" = @( "y" )
[char] "Ы" = @( "y" )
[char] "ь" = @( "" )
[char] "Ь" = @( "" )
[char] "э" = @( "e" )
[char] "Э" = @( "e" )
[char] "ю" = @( "yu" )
[char] "Ю" = @( "yu" )
[char] "я" = @( "ya" )
[char] "Я" = @( "ya" )
[char] " " = @( "_" )
# multi-character substitutions
[string] "ъи" = @( "yi" )
[string] "ьи" = @( "yi" )
[string] "ье" = @( "ye" )
[string] "ъe" = @( "ye" )
[string] "ий" = @( "ii" )
[string] "кс" = @( "x" )
}
# if the input is empty then there's no work to do,# so just return an empty string
if( [string]::IsNullOrEmpty($InputString) )
{
return [string]::Empty;
}
# find all the lookups that can be applied at the start of the string
$keys = @( $lookups.Keys | where-object { $InputString.StartsWith($_) } );
# if there are no lookups found at the start of the string we'll keep
# the first character as-is and prefix it to all the transliterations
# for the remainder of the string
if( $keys.Length -eq 0 )
{
$results = @();
$head = $InputString[0];
$rest = $InputString.Substring(1);
$tails = Get-Transliteration -InputString $rest;
foreach( $tail in $tails )
{
$results += $head + $tail;
}
return $results;
}
# if we found any lookups at the start of the string we need to "multiply"
# them with all the transliterations for the remainder of the string
$results = @();
foreach( $key in $keys )
{
if( $InputString.StartsWith($key) )
{
$heads = $lookups[$key];
$rest = $InputString.Substring(([string] $key).Length);
$tails = Get-Transliteration -InputString $rest;
foreach( $head in $heads )
{
foreach( $tail in $tails )
{
$results += $head + $tail;
}
}
}
}
return $results;
}
请看这里的维基百科页面-https://en.wikipedia.org/wiki/BGN/PCGN_romanization_of_Russian-我认为音译规则比此功能无法处理的要复杂一些,但希望这是一个开始...
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。