Bitrix csv work

csvwork.php

<?
CModule::IncludeModule('crm');
CModule::IncludeModule('gpw.1cdb');
CModule::IncludeModule('gpw.payments');

require_once($_SERVER["DOCUMENT_ROOT"] . "/bitrix/modules/main/classes/general/csv_data.php");
$csvFile = new CCSVData('R', true);
$csvFile->LoadFile($_SERVER['DOCUMENT_ROOT'] . '/testing/file.csv');
$csvFile->SetDelimiter(';');

$GLOBALS["APPLICATION"]->RestartBuffer();
$strPath = $_SERVER["DOCUMENT_ROOT"] . "/testing/csv_data.csv";
$fp      = fopen($strPath, 'w');

while ($arRes = $csvFile->Fetch()) {
	for ($i = 0; $i < $arRes[4]; $i++) {

		fputcsv($fp, $arRes, ';');
	}
}
fclose($fp);