Powershell Funkalphabet
Hallo zusammen
Ich bräuchte mal ein paar Tips
Ich möchte mit der Powershell eine Funkalphabet "Übersetzung" bauen.
Ganz konkret:
Ich gebe ein Wort ein und erhalte dazu die passende Ausgabe als Funkalphabet
z.B.:
Eingabe: Hallo
Ausgabe:
h Heinrich
a Anton
l Ludwig
l Ludwig
o Otto
Ich habe es schon probier, komme aber leider auf keinen grünen Zweig.
Kann mir jemand auf die Sprünge helfen?
Ich hatte gehofft das funktioniert nach dem gleichen Prinziep wie:
Ich bräuchte mal ein paar Tips
Ich möchte mit der Powershell eine Funkalphabet "Übersetzung" bauen.
Ganz konkret:
Ich gebe ein Wort ein und erhalte dazu die passende Ausgabe als Funkalphabet
z.B.:
Eingabe: Hallo
Ausgabe:
h Heinrich
a Anton
l Ludwig
l Ludwig
o Otto
Ich habe es schon probier, komme aber leider auf keinen grünen Zweig.
Kann mir jemand auf die Sprünge helfen?
cls
Write-Host ""
$WORD = Read-Host "Please enter the word to be translated ..." `
Write-Host ""
Write-Host "Your word is: $WORD"
Write-Host ""
$WORD = $WORD -replace "(\w{1})", "`$1`n"|ForEach-Object `
{$_ -replace "[Aa]", "$a"}
{$_ -replace "[Bb]", "$b"}
{$_ -replace "[Cc]", "$c"}
{$_ -replace "[Dd]", "$d"}
{$_ -replace "[Ff]", "$f"}
{$_ -replace "[Gg]", "$g"}
{$_ -replace "[Cc]", "$c"}
{$_ -replace "[Dd]", "$d"}
{$_ -replace "[Ee]", "$e"}
{$_ -replace "[Ff]", "$f"}
{$_ -replace "[Gg]", "$g"}
{$_ -replace "[Hh]", "$h"}
{$_ -replace "[Ii]", "$i"}
{$_ -replace "[Jj]", "$j"}
{$_ -replace "[Kk]", "$k"}
{$_ -replace "[Ll]", "$l"}
{$_ -replace "[Mm]", "$m"}
{$_ -replace "[Nn]", "$n"}
{$_ -replace "[Oo]", "$o"}
{$_ -replace "[Pp]", "$p"}
{$_ -replace "[Qq]", "$q"}
{$_ -replace "[Rr]", "$r"}
{$_ -replace "[Ss]", "$s"}
{$_ -replace "[Tt]", "$t"}
{$_ -replace "[Uu]", "$u"}
{$_ -replace "[Vv]", "$v"}
{$_ -replace "[Ww]", "$w"}
{$_ -replace "[Xx]", "$x"}
{$_ -replace "[Yy]", "$y"}
{$_ -replace "[Zz]", "$z"}
Write-Host $WORD
Ich hatte gehofft das funktioniert nach dem gleichen Prinziep wie:
$1 = "hallo"
$1 -replace "l", "g" -replace "h", "p"
Ausgabe: paggo
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 245843
Url: https://administrator.de/contentid/245843
Ausgedruckt am: 05.11.2024 um 12:11 Uhr
9 Kommentare
Neuester Kommentar
Moin Ralf,
Grüße Uwe
$tableDE = @{"A"="Anton";"B"="Berta";"C"="Cäsar";"D"="Dora";"E"="Emil";"F"="Friedrich";"G"="Gustav";"H"="Heinrich";"I"="Ida";"J"="Julius";"K"="Konrad";"L"="Ludwig";"M"="Martha";"N"="Nordpol";"O"="Otto";"P"="Paula";"Q"="Quelle";"R"="Richard";"S"="Siegfried";"T"="Theodor";"U"="Ulrich";"V"="Viktor";"W"="Wilhelm";"X"="Xaver";"Y"="Ypsilon";"Z"="Zacharias";"Ä"="Ärger";"Ö"="Ökonom";"Ü"="Übermut";"@"="Schule"}
$tableINT = @{"A"="Alpha";"B"="Bravo";"C"="Charly";"D"="Delta";"E"="Echo";"F"="Foxtrott";"G"="Golf";"H"="Hotel";"I"="India";"J"="Juliet";"K"="Kilo";"L"="Lima";"M"="Mike";"N"="November";"O"="Oscar";"P"="Papa";"Q"="Quebec";"R"="Romeo";"S"="Sierra";"T"="Tango";"U"="Uniform";"V"="Victor";"W"="Whiskey";"X"="X-Ray";"Y"="Yankee";"Z"="Zulu"}
$language = Read-host "Welche Sprache [1] Deutsch | [2] Englisch ?"
switch($language){
1{
$input = read-host "Wort eingeben das übersetzt werden soll"
$input = $input -Replace "sch","@"
$input.ToCharArray() | %{write-host $tableDE["$_"] -ForegroundColor Green}
}
2{
$input = read-host "Please enter word to be translated"
$input.ToCharArray() | %{write-host $tableINT["$_"] -ForegroundColor Green}
}
default{write-host "Keine gültige Sprache gewählt!" -ForegroundColor Red}
}
Das ist aber nur das deutsche Funkalphabet und nicht das internationale !!
Hier hat man beide:
http://felixbernhard.kuenneke.info/down/Funk.pdf
Müsste Kollege colinardo also noch einen Schalter "Deutsch oder International ?" mit einpflanzen
Beim deutschen oben fehlen außerdem noch Ärger, Ökonom, Übermut und Schule.
Hier hat man beide:
http://felixbernhard.kuenneke.info/down/Funk.pdf
Müsste Kollege colinardo also noch einen Schalter "Deutsch oder International ?" mit einpflanzen
Beim deutschen oben fehlen außerdem noch Ärger, Ökonom, Übermut und Schule.
Zitat von @colinardo:
Moin Ralf,
Grüße Uwe
Moin Ralf,
> $tableDE =
> @{"A"="Anton";"B"="Berta";"C"="Cäsar";"D"="Dora";"E"="Emil";"F"="Friedrich";"G"="Gustav";"H"="Heinrich";"I"="Ida";"J"="Julius";"K"="Konrad";"L"="Ludwig";"M"="Martha";"N"="Nordpol";"O"="Otto";"P"="Paula";"Q"="Quelle";"R"="Richard";"S"="Siegfried";"T"="Theodor";"U"="Ulrich";"V"="Viktor";"W"="Wilhelm";"X"="Xaver";"Y"="Ypsilon";"Z"="Zürich";"Ä"="Ärger";"Ö"="Ökonom";"Ü"="Übermut";"@"="Schule"}
> $tableINT =
> @{"A"="Alpha";"B"="Bravo";"C"="Charly";"D"="Delta";"E"="Echo";"F"="Foxtrott";"G"="Golf";"H"="Hotel";"I"="India";"J"="Juliet";"K"="Kilo";"L"="Lima";"M"="Mike";"N"="November";"O"="Oscar";"P"="Papa";"Q"="Quebec";"R"="Romeo";"S"="Sierra";"T"="Tango";"U"="Uniform";"V"="Victor";"W"="Whiskey";"X"="X-Ray";"Y"="Yankee";"Z"="Zulu"}
> $language = Read-host "Welche Sprache [1] Deutsch | [2] Englisch ?"
> switch($language){
> 1{
> $input = read-host "Wort eingeben das übersetzt werden soll"
> $input = $input -Replace "sch","@"
> $input.ToCharArray() | %{write-host $tableDE["$_"] -ForegroundColor Green}
> }
> 2{
> $input = read-host "Please enter word to be translated"
> $input.ToCharArray() | %{write-host $tableINT["$_"] -ForegroundColor Green}
> }
> default{write-host "Keine gültige Sprache gewählt!" -ForegroundColor Red}
> }
>
Z = Zacharias??? Sind doch keine Swisser hier ...
Gruß
ANKH
Stimmt, da hat der alte Alm-Öhi in mir einen kleines Osterei versteckt
Grüße Uwe
Sind doch keine Swisser hier ...
mehr als du denkst ....hatte hier bestimmt schon mit mehr als 10 Leuten aus den schönen Bergen Kontakt - und die sind meist schneller im Netz unterwegs als wir !! Ich sag nur 1Gbit/s Grüße Uwe
Zitat von @colinardo:
> Zitat von @AnkhMorpork:
> Z = Zacharias???
Stimmt, da hat der alte Alm-Öhi in mir einen kleines Osterei versteckt
Dem Ei sei Dank!> Zitat von @AnkhMorpork:
> Z = Zacharias???
Stimmt, da hat der alte Alm-Öhi in mir einen kleines Osterei versteckt
> Sind doch keine Swisser hier ...
mehr als du denkst ....hatte hier bestimmt schon mit mehr als 10 Leuten aus den schönen Bergen Kontakt.
mehr als du denkst ....hatte hier bestimmt schon mit mehr als 10 Leuten aus den schönen Bergen Kontakt.
Wir sind unterwandert??? ... Oh man... viva suisse!