0

CSVに書き込む私のコードは次のとおりです。私の問題は、csv ファイルの一番上の行を上書きしていることです。これを別の方法で行う方法はありますか?既存のものを上書きせずに、csv の先頭に新しいデータを追加したいと考えています。

    // Send Routine 
    $filename="contact.csv";
    $datfile=fopen($filename, 'r+');
            spamcheck($EReply);     
            $ESubject=$Subject;

//          $EMessage = $MsgHeader;
            $EMessage = "Form Submission:\r\n";
            for(reset($FormField); $key=key($FormField); next($FormField)) {
                spamcheck($FormField[$key]);
                $EMessage .= $key.": ".$FormField[$key];
//              $EMessage .= "<br><br>\r\n";
                $EMessage .= "\r\n";
                $datachunk="\"".$FormField[$key]."\",";
                fputs($datfile, $datachunk);
            }
    fputs($datfile, "\r\n");
    fclose($datfile);
4

0 に答える 0