Retirar virgula do ultimo registro com foreach

Boa noite fiz esse código para pegar algumas informações escolhidas de dentro de um xml de Nfe e gravo em formato json. Mais no último foreach onde pego os itens preciso eliminar a vírgula do ultimo registro, ja tentei várias maneiras e não consegui!

<?php
function gravar($texto){
 $arquivo = "final.json";
 $fp = fopen($arquivo, "a+");
 fwrite($fp, $texto);
 fclose($fp);
}
$xml = simplexml_load_file('1nfe.xml') or die("Não consegui abrir o XML");

foreach($xml->NFe as $NFe)

{

 foreach($xml->NFe->infNFe as $infNFe)
 {
 foreach($xml->NFe->infNFe->ide as $ide)
 {
 $numeroNF = $ide->nNF;
 $serie = $ide->serie;

 foreach($xml->NFe->infNFe->dest as $dest)
 {
 $CNPJ = $dest->CNPJ;
 $xNome = $dest->xNome;

 foreach($xml->NFe->infNFe->dest->enderDest as $enderDest)
 {
 $xLgr = $enderDest->xLgr;
 $xNro = $enderDest->nro;
 $xBairro = $enderDest->xBairro;
 $xMun = $enderDest->xMun;

gravar("{\"Nota\":{\"$numeroNF\":{\"Entrega\":{\"Nº Nota\":$numeroNF,\"Serie\":$serie,\"CNPJ\":\"$CNPJ\",\"Cliente\":\"$xNome\",\"Endereço\":\"$xLgr\",\"Nº\":$xNro,\"Bairro\":\"$xBairro\",\"Município\":\"$xMun\"}, ");
gravar("\"itens\":{");

 foreach($xml->NFe->infNFe->det as $det){
 $cProd = $det->prod->cProd;
 $xProd = $det->prod->xProd;
 $uCom = $det->prod->uCom;
 $qCom = $det->prod->qCom;
gravar("\"$cProd\" : {");

gravar("\"Descricao\":\"$xProd\",\"Tipo\":\"$uCom\",\"Quantidade\":$qCom}, "); // Eliminar essa ultima virgula, mais so do ultimo registro!.

}

}
}

}
}
}

gravar("},");
gravar("\"motorista\":\"Marcelo guedes\"}}} ");
?>