Открыл сезон, прокатив первые 50 километров, съездил к новому мосту. Моста еще нет, но опоры уже стоят. Постоянно по новой дороге ездит народ, интересуется. На указателе уже "Пограничный переход" - только речку надо перепрыгнуть.
Указатель в никуда
Дорога в никуда
Опоры моста
А тут был наплавной мост.
29 апр. 2013 г.
Excel из PHP
Есть система ведения распоряжений по курсам валют в обменниках. Обеспечивает ввод, печать, подтверждение курсов. Внезапно старшие товарищи решили нас осчастливить и обеспечить "автоматическую" загрузку курсов в Диасофт 5NT. Пришлось для получения требуемого к загрузке файла в формате MS Excel научиться изготавливать из CSV XLS.
include_once "Spreadsheet/Excel/Writer.php"; $xls =& new Spreadsheet_Excel_Writer(); $name=$_GET['rasp']; $xls->send("KURS_".substr($name,0,3)."_".substr($name,7).".xls"); $f = fopen($name, "rt") or die("Ошибка!"); $sheet =& $xls->addWorksheet('Распоряжение'); $format =& $xls->addFormat(); $format->setColor("black"); $dateFmt =& $xls->addFormat(); $dateFmt->setColor("black"); $dateFmt->setNumFormat("D MMMM,YYYY"); $sheet->setColumn(0,5,20); for ($i=0; $data=fgetcsv($f,1000,","); $i++){ $sheet->writeString(2, 0, "Филиал банка в г.Москве", $format); $sheet->writeString(4, 0, "Приказ № ".$data[0], $format); $sheet->writeString(6, 3, $data[2], $dateFmt); $sheet->writeString(12, 0, "Доллары США:", $format); $sheet->writeString(13, 0, "покупка -", $format); $sheet->writeString(13, 1, $data[3], $format); $sheet->writeString(13, 3, "продажа -", $format); $sheet->writeString(13, 4, $data[4], $format); $sheet->writeString(15, 0, "Евро:", $format); $sheet->writeString(16, 0, "покупка -", $format); $sheet->writeString(16, 1, $data[6], $format); $sheet->writeString(16, 3, "продажа -", $format); $sheet->writeString(16, 4, $data[7], $format); $sheet->writeString(18, 0, "Английские фунты стерлингов:", $format); $sheet->writeString(19, 0, "покупка -", $format); $sheet->writeString(19, 1, $data[9], $format); $sheet->writeString(19, 3, "продажа -", $format); $sheet->writeString(19, 4, $data[10], $format); $sheet->writeString(21, 0, "Швейцарские франки:", $format); $sheet->writeString(22, 0, "покупка -", $format); $sheet->writeString(22, 1, $data[12], $format); $sheet->writeString(22, 3, "продажа -", $format); $sheet->writeString(22, 4, $data[13], $format); $sheet->writeString(26, 1, "USD", $format); $sheet->writeString(26, 2, "EUR", $format); $sheet->writeString(26, 3, "GBP", $format); $sheet->writeString(26, 4, "CHF", $format); $sheet->writeString(27, 0, "USD", $format); $sheet->writeString(28, 0, "EUR", $format); $sheet->writeString(29, 0, "GBP", $format); $sheet->writeString(30, 0, "CHF", $format); $sheet->writeString(27, 1, "X", $format); $sheet->writeString(27, 2, $data[16], $format); //USD-EUR $sheet->writeString(27, 3, "0.00", $format); $sheet->writeString(27, 4, "0.00", $format); $sheet->writeString(28, 1, $data[15], $format); //EUR-USD $sheet->writeString(28, 2, "X", $format); $sheet->writeString(28, 3, "0.00", $format); $sheet->writeString(28, 4, "0.00", $format); $sheet->writeString(29, 1, "0.00", $format); $sheet->writeString(29, 2, "0.00", $format); $sheet->writeString(29, 3, "X", $format); $sheet->writeString(29, 4, "0.00", $format); $sheet->writeString(30, 1, "0.00", $format); $sheet->writeString(30, 2, "0.00", $format); $sheet->writeString(30, 3, "0.00", $format); $sheet->writeString(30, 4, "X", $format); $sheet->writeString(35, 0, $data[17], $format); $sheet->writeString(35, 3, $data[18], $format); $sheet->writeString(36, 0, $data[19], $format); $sheet =& $xls->addWorksheet('Приложение'); $sheet->writeString(0,5,$data[2]); for($i=0;$i<3;$i++){ $sheet->writeString($i+2,3,$data[1]); //time of the day } $sheet->writeString(2,5,"Ф-Л"); $sheet->writeString(3,5,"ДО 1"); $sheet->writeString(4,5,"ДО 2"); } fclose($f); $xls->close(); exit;
Подписаться на:
Сообщения (Atom)