Список проголосовавших за комментарий "Rostislav Kudryashov, 10:43 нашёл исходник только в C++<blockquote><p><br/> // ..\cl.cmd Rescale.cpp Quote.obj Utils.obj UtilsIO.obj<br/> // Умножение тайм-фрейма котировок Qt1 на Fct. Все файлы в формате<br/> // <TICKER>,<PER>,<DATE>,<TIME>,<OPEN>,<HIGH>,<LOW>,<CLOSE>,<VOL><br/> #include <exception><br/> #include «Quote.h»<br/> #include «Utils.h»<br/> using namespace std;<br/> namespace qt = Quote_RostDK;<br/> namespace utIO = UtilsIO_RostDK;</p><p>void PutBar (FILE* ofs, qt::InputQuote& iq, const string& per<br/> ,const qt::Bar& b)<br/> {<br/> tm dt {0}; errno_t errno = localtime_s (&dt, &b.tb);<br/> dt.tm_year += 1900;<br/> dt.tm_mon += 1;<br/> fprintf_s (ofs, iq.Frm_g().data(), iq.Ticker().data(), per.data()<br/> ,dt.tm_year, dt.tm_mon, dt.tm_mday, dt.tm_hour, dt.tm_min, dt.tm_sec<br/> ,b.op, b.hi, b.lo, b.cl, b.vo);<br/> } // PutBar()</p><p>int main (int argc, char *argv[])<br/> {<br/> Utils_RostDK::SetConsole1251();<br/> if (argc != 4) {<br/> puts («Множит тайм-фрейм котировки Qt1 на Fct.\n»<br/> «Rescale Qt1File FctNumber ResFile.»);<br/> return 1;<br/> }<br/> char *ipD1 = argv[1]; // Котировки Qt1<br/> double fct = static_cast<float>(atof (argv[2]));<br/> char *opRz = argv[3]; // Котировки результата<br/> {<br/> char drvD1[_MAX_DRIVE], dirD1[_MAX_DIR], fnD1[_MAX_FNAME], extD1[_MAX_EXT];<br/> char drvRz[_MAX_DRIVE], dirRz[_MAX_DIR], fnRz[_MAX_FNAME], extRz[_MAX_EXT];<br/> _splitpath_s (ipD1<br/> ,drvD1, _MAX_DRIVE, dirD1, _MAX_DIR, fnD1, _MAX_FNAME, extD1, _MAX_EXT);<br/> _splitpath_s (opRz<br/> ,drvRz, _MAX_DRIVE, dirRz, _MAX_DIR, fnRz, _MAX_FNAME, extRz, _MAX_EXT);<br/> if (_stricmp (dirRz, dirD1) == 0 &&<br/> _stricmp (fnRz, fnD1) == 0 && _stricmp (extRz, extD1) == 0) {<br/> puts («Неуникальное Qt1 Res»);<br/> return 2;<br/> }<br/> }<br/> if (fct <= 0 || fct != floor (fct)) {<br/> puts («Неверен Fct»);<br/> return 3;<br/> }<br/> HANDLE ifD1 = utIO::CreateFile (ipD1, 1, FILE_FLAG_OVERLAPPED |<br/> FILE_FLAG_SEQUENTIAL_SCAN | FILE_ATTRIBUTE_READONLY);<br/> if (ifD1 == INVALID_HANDLE_VALUE) {<br/> puts («Сбой открытия Qt1»);<br/> return 0;<br/> }<br/> FILE* ofRz;<br/> if (fopen_s (&ofRz, opRz, «wt»)) {<br/> puts («Сбой открытия Res»);<br/> return 0;<br/> }<br/> constexpr unsigned BUF_SIZE = 16*1024*1024;<br/> utIO::WinApiReader reader (BUF_SIZE, ifD1);<br/> utIO::Parser parser (reader);<br/> char* record = parser.Parse();<br/> if (NULL == record) {<br/> puts («Сбой чтения файла»);<br/> return 0;<br/> }<br/> try {<br/> qt::InputQuote iq (string (record), «id1», 1);<br/> fprintf (ofRz, "%s\n", iq.Header().data()); fflush (ofRz);<br/> int per = 0, perNew = 0; string perStr;<br/> qt::Bar srcBar, trgBar; tm fms {0}; char fmt[256];<br/> strcpy_s (fmt, sizeof(fmt), iq.Frm_g().data());<br/> time_t minNxt = 0; clock_t clk = clock() + 2000;<br/> while (NULL != (record = parser.Parse()))<br/> {<br/> if (clock() > clk) { _putc_nolock ('\a', stdout); clk += 2000; }<br/> iq.AddBar (string (record), srcBar, fms);<br/> if (per == 0) {<br/> if (0 == (per = atoi (iq.Period().data()))) {<br/> printf («Неверный период %s», iq.Period().data());<br/> return 0;<br/> }<br/> perNew = static_cast<int> (per * fct);<br/> perStr = to_string (perNew);<br/> }<br/> time_t minCur = __int64 (srcBar.tb / 60 / perNew) * perNew;<br/> if (minCur >= minNxt)<br/> {<br/> if (0 != minNxt)<br/> PutBar (ofRz, iq, perStr, trgBar);<br/> minNxt = minCur + perNew;<br/> trgBar = srcBar;<br/> trgBar.tb = minCur * 60;<br/> trgBar.vo = 0;<br/> }<br/> trgBar.lo = min (trgBar.lo, srcBar.lo);<br/> trgBar.hi = max (trgBar.hi, srcBar.hi);<br/> trgBar.cl = srcBar.cl;<br/> trgBar.vo += srcBar.vo;<br/> } // while (NULL<br/> PutBar (ofRz, iq, perStr, trgBar); <br/> } catch (exception& e) {<br/> printf («Сбой %s\n», e.what());<br/> } catch (...) {<br/> puts («Неизвестный сбой»);<br/> }<br/> } // main()</p></blockquote><br/> смарт искажает коды, так что здравый смысл нужен ещё при выверке исходника."