JFritz Extension: Den Anrufmonitor sprechen lassen ;-)

C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe "d:\_daten\anruf02.ps1" "%Number %Called %Name"

#args ist ein Array welches die Kommandozeilenparameter enthält


$Von=$args[0];
$AnNummer=$args[1];
$pVonName=$args[2];



function InsertBlanks($Number)
{
    $result="";
    $Ziffern="0123456789";
    $Number=[String] $Number;
 
    for ($i=0; $i -le $Number.Length-1; $i++) {

        $a=$Number.substring($i,1);
    
        $result+=$a;
        if ($Ziffern.contains($a)) {
            $result = $result +" ";
        }
    }
    $result;
}

$erg="";
$VonName="Unbekannt";


#hier gibt es eine Sonderbehandlung für bekannte Anrufer
if ($Von -ne "Unbekannt") {
    $KnownNames="Kurt","Chef","Christel","Praxis Dr.xxxx";
    $KnownNumbers="012324324","026323123213","01515343424","23442";

    for ($i=0; $i -le $KnownNumbers.Length-1; $i++) {
         $a0=[String] $args[0];
        if ($a0.contains($KnownNumbers[$i])) {
            $VonName=$KnownNames[$i];
            break;
        }
    }
}
  
if ($VonName -eq "Unbekannt") {
    $Von=InsertBlanks($Von);
}
else
{
    $Von=$VonName;
}

$An="keine Ahnung";

#hier werden die eigenen ISDN-Nummern ausgewertet
switch ($AnNummer)
{
    "910000" {$An=" für Paul"}
    "910001" {$An=" an Fax"}
    "910002" {$An=" für Susanne"}
    "900003" {$An=" für Peter"}
}

#hier ist der Aufruf der Sprachausgabe
$v = new-object -com SAPI.SpVoice
$v.speak("Anruf von " + $Von +  $An) | out-null
$v = $null

#ich protokolliere mir die Anrufe noch in eine Datei:
$Datum=Get-Date;
$Datum.ToString("dd.MM.yyyy") + " - " + $Datum.ToString("HH:mm") + ": Anruf von " + $Von + " für " + $An + " (" + $args + ")" + " VonName:" + $pVonName | Out-File d:\Anrufe.txt -append;

#args ist ein Array welches die Kommandozeilenparameter enthält

$Von=$args[0];
$AnNummer=$args[1];
$pVonName=$args[2];

function InsertBlanks($Number)
{
    $result="";
    $Ziffern="0123456789";
    $Number=[String] $Number;
 
    for ($i=0; $i -le $Number.Length-1; $i++) {

        $a=$Number.substring($i,1);
    
        $result+=$a;
        if ($Ziffern.contains($a)) {
            $result = $result +" ";
        }
    }
    $result;
}

$Von=InsertBlanks($Von);
$Von=InsertBlanks($AnNummer);

#hier ist der Aufruf der Sprachausgabe
$v = new-object -com SAPI.SpVoice
$v.speak("Anruf von " + $Von + " für " + $AnNummer) | out-null
$v = $null

@echo off & setlocal enableextensions

set OldNumber=017187654321

call :AddBlank "%OldNumber%" NewNumber

echo.%OldNumber%
echo.
echo.%NewNumber%
echo.
echo.
pause
goto :EOF
endlocal & goto :EOF

::=====================================================================
:: Subroutine "AddBlank": 
::   Fuegt hinter jedes Zeichen ein Blank an, außer am letzten Zeichen
::=====================================================================
:AddBlank oldstring newstring
setlocal enableextensions enabledelayedexpansion
if "%~1"=="" (endlocal & set "%2=" & goto :EOF)
set OldS=%~1
set NewS=
set Z=
for /L %%c in (0,1,255) do (
  set Z=!OldS:~%%c,1!
  if defined Z set NewS=!NewS!!Z! 
)
set NewS=%NewS:~0,-1%
endlocal & set "%2=%NewS%" & goto :EOF