You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
75 lines
2.0 KiB
75 lines
2.0 KiB
$lines = Get-Content .\MainMenu.xib -Encoding UTF8 |
|
|
|
$output = $lines |
|
|
|
$regex = '<string type="base64-UTF8" key="NSDev">(?<txt>.+?)<\/string>' |
|
|
|
$strings = [regex]::Matches($lines,$regex) |
|
|
|
$url = 'https://translate.mentality.rip/translate' |
|
|
|
$errors = @() |
|
|
|
$csv = 'Base64JP,UTF8JP,Base64EN,UTF8EN' |
|
|
|
foreach($string in $strings) { |
|
# get the value |
|
$txt = $string.Groups["txt"].Value |
|
|
|
# append appropriate padding |
|
$mod = ($txt.length % 4) |
|
switch ($mod) { |
|
'0' {$txtp = $txt} |
|
'1' {$txtp = $txt.Substring(0,$txt.Length - 1)} |
|
'2' {$txtp = $txt + ('=' * (4 - $mod))} |
|
'3' {$txtp = $txt + ('=' * (4 - $mod))} |
|
|
|
} |
|
|
|
# convert the base64 to UTF8 text |
|
$utf = [Text.Encoding]::Utf8.GetString([Convert]::FromBase64String($txtp)) |
|
|
|
# get current array index |
|
$idx = [array]::IndexOf($strings,$string) |
|
|
|
# get percent complete |
|
$pct = (($idx + 1) / $strings.Count) * 100 |
|
|
|
# round the percent |
|
$pcn = [math]::Round($pct,2) |
|
|
|
# update the status bar |
|
Write-Progress -Activity ("Translating <<" + $utf + ">>") -Status "$pcn% Complete:" -PercentComplete $pct |
|
|
|
# create the json request |
|
$json = '{"q":"' + $utf + '","source":"ja","target":"en"}' |
|
|
|
# add delay due to api throttle |
|
Start-Sleep -Seconds 1.5 |
|
|
|
try { |
|
# post the request to the translation service |
|
$result = Invoke-WebRequest -Method 'Post' -Uri $url -Body $json -ContentType "application/json; charset=utf-8" |
|
|
|
# this is the english translation |
|
$ttxt = ($result.Content | ConvertFrom-Json).translatedText |
|
|
|
# convert the english translation to base64 using .net |
|
$txt64 = [Convert]::ToBase64String([Text.Encoding]::UTF8.GetBytes($ttxt)) |
|
|
|
# remove the padding == because these don't exist in the original XIB |
|
$txt64clean = $txt64 -replace '=','' |
|
|
|
# replace the value everywhere it occurs in the source data |
|
$output = $output -replace $txt,$txt64clean |
|
|
|
# add to the csv |
|
$csv += "`n""$txt"",""$utf"",""$txt64clean"",""$ttxt""" |
|
} catch { |
|
Write-Host ("Couldn't translate <<" + $utf + ">>") |
|
$errors += $utf |
|
} |
|
} |
|
|
|
$output | Out-File Output.xib -Encoding utf8 |
|
$csv | Out-File output.csv -Encoding utf8 |