Get-Translation.ps1

function Get-Translation
{
    <#
    .Synopsis
        Translates text
    .Description
        Translates text, using Bing Translator
    .Example
        Get-Translation "Start-Automating"
    .Example
        Get-Translation "Hello World" -To "German"
    .Link
        Get-Web
    .Link
        http://bing.com/Translator/
    .Notes
        It is recommended that you use the default secure setting to store your data market key, AzureDataMarketAccountKey
    #>

    [CmdletBinding(DefaultParameterSetName='Bing')]
    [OutputType([PSObject])]
    param(
    # The text to be translated
    [Parameter(Mandatory=$true,
        Position=0,        
        ValueFromPipelineByPropertyName=$true,
        ValueFromPipeline=$true)]
    [string]
    $Text,


    # The language to translate to
    [Parameter(        
        ValueFromPipelineByPropertyName=$true)]
    [ValidateScript({
        $allCultures = [Globalization.CultureInfo]::GetCultures("AllCultures")
        $lang = $_

        $matchingCulture = $allCultures | Where-Object { $_.DisplayName -like $lang -or $_.Name -like $lang } 
        if (-not $matchingCulture) {
            throw "Language not found"
        }
        return $true
    })]
    [string]
    $To= "de",

    # The language text will be translated from
    [Parameter(        
        ValueFromPipelineByPropertyName=$true)]
    [ValidateScript({
        $allCultures = [Globalization.CultureInfo]::GetCultures("AllCultures")
        $lang = $_

        $matchingCulture = $allCultures | Where-Object { $_.DisplayName -like "$lang*" -or $_.Name -like "$lang*" } 
        if (-not $matchingCulture) {
            throw "Language not found"
        }
        return $true
    })]
    [string]
    $From= "",

    
    # The Azure Data Market Key Or Setting
    [Parameter(ParameterSetName='Bing')]
    [string]
    $AzureDataMarketSetting = "AzureDataMarketAccountKey",


    # The Azure Data Market Key.  If this is not provided, then the AzureDataMarketSetting, or it's default value, will be used
    [Parameter(ParameterSetName='Bing')]
    [string]
    $AzureDataMarketAccountKey    
    )

    begin {
        

        Set-StrictMode -Off
        Add-Type -AssemblyName System.Web
        #region Create a cache for translations if one is not found
        if (-not ($script:CachedTranslation)) { 
            $script:CachedTranslation = @{}            
        }
        #endregion Create a cache for translations if one is not found

    }

    process {                        
        #region Bing
        $allCultures = [Globalization.CultureInfo]::GetCultures("AllCultures")
        $realTo = $allCultures | 
            Where-Object { $_.DisplayName -like "$to*" -or $_.Name -like "$to*" } |
            Select-Object -First 1  |
            ForEach-Object { 
                if ($_.Name -like "zh-*") {
                    $_.Name
                } else {
                    $_.Name.Substring(0, 2)
                }

            } 

        $realFrom = if ($From) {
            $allCultures | 
                Where-Object { $_.DisplayName -like "$from*" -or $_.Name -like "$from*" } |
                Select-Object -First 1 |
                ForEach-Object {
                    if ($_.Name -like "zh-*") {
                        $_.Name
                    } else {
                        $_.Name.Substring(0, 2)
                    }
                }
    
        } else {
            $null
        }
        

        $admk = if ($AzureDataMarketAccountKey) {
            $AzureDataMarketAccountKey
        } else {
            if ($script:CachedAzureDataMarketAccountKey) {
                $script:CachedAzureDataMarketAccountKey
            } else {
                Get-SecureSetting -Name $AzureDataMarketSetting -ValueOnly
            }
        }

        $script:CachedAzureDataMarketAccountKey = $admk

        $cred = New-Object Management.Automation.PSCredential $admk, (ConvertTo-SecureString -AsPlainText -Force "$admk")
            

        $result = 
            if ($script:CachedTranslation["${Text}_${RealTo}_${RealFrom}"] -and (-not $Force)) {
                $script:CachedTranslation["${Text}_${RealTo}_${RealFrom}"]
            } else {                
                    

                $script:CachedTranslation["${Text}_${RealTo}_${RealFrom}"] = Get-Web -Url "https://api.datamarket.azure.com/Bing/MicrosoftTranslator/v1/Translate?Text=%27$([Web.HttpUtility]::UrlEncode("$Text").Replace('+', '%20'))%27&To=%27$($RealTo)%27$(if ($Realfrom) { "&From=%27$($Realfrom)%27"})" -WebCredential $cred -UseWebRequest 
                $script:CachedTranslation["${Text}_${RealTo}_${RealFrom}"]
            }
             

            if ($result) {
                $rx = [xml]$result
                $feed=  $rx.feed
                $entries = foreach($e in $feed.entry) { $e } 

                foreach ($e in $entries) {
                    

                    
                    $translation = New-Object PSObject -Property @{
                        Original = $text;
                        Translation= $e.content.properties.Text.'#text';
                        Language = ([Globalization.CultureInfo]$RealTo).DisplayName                        
                        From = if ($From) {
                            ([Globalization.CultureInfo]$RealFrom).DisplayName                        
                        } else {
                            "Auto-Detect"
                        }
                    } 

                    $translation.pstypenames.clear()                    
                    $translation
                     
                }

            }
            

            #endregion Bing
        
    }
}