[Код был доступен] PHP & Perl скрипты читать mtgox .csv файлы!

23 июля 2012, 10:39:02 AM	# 1
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Взлом Биткоин адресов. 500 Биткоинов взломаны в "мозговом кошельке" с паролем "bitcoin is awesome" Адрес кошелька: 14NWDXkQwcGN1Pd9fboL8npVynD5SfyJAE Приватный ключ: 5J64pq77XjeacCezwmAr2V1s7snvvJkuAz8sENxw7xCkikceV6e подробнее... Всем кто хочет заработать Биткоины без вложений - рекомендую сайт http://bitcoin-zarabotat.ru Я искал сценарий, который сделает его легким для моего и моего бухгалтера, чтобы выяснить, что я купил / проданный / осажденный / изъятый / paidfees в течение заданного времени. 20BTC был одаренный. 12,5 BTC пошли в PHP скрипт 7,5 BTC пошел на Перл скриптов. Пожалуйста, не стесняйтесь использовать их в соответствии с данной лицензией и рассмотреть опрокидывание внести свой вклад в мои расходы. ура 2weiX Код PHP Код: / * Этот код доступен для вас в соответствии с CC BY-NC-SA 3.0 (http://creativecommons.org/licenses/by-nc-sa/3.0/). Если использовать этот инструмент для анализа mtgox сделок или использовать этот код, чтобы создать свой собственный проект, рассмотреть жертвуя 12weixK5ttMdjeoQgdGca9mKMKxkCxZkBG и рассмотреть возможность добавления работы на эту тему:

Как заработать Биткоины?
Без вложений. Не майнинг.

23 июля 2012, 10:46:31 AM	# 2
jl2012 Сообщения: 1750 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Получил 1806 Биткоинов Реальная история. Я могу сделать Perl-скрипт для вас. Вы можете разместить его, как PHP, с функцией загрузки и экспорта вы хотите

23 июля 2012, 10:49:43 AM	# 3
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Цитата: jl2012 23 июля 2012, 10:46:31 AM Я могу сделать Perl-скрипт для вас. Вы можете разместить его, как PHP, с функцией загрузки и экспорта вы хотите так что я могу вверх .csv, и она будет экспортировать файл CSV для меня скачать? сколько времени (BTC в Баунти) будет это брать? своего рода это нужно, чтобы рассчитать прибыль / убытки по налоговым причинам. ой, а уплаченные пошлины должны быть в нем.

23 июля 2012, 10:54:52 AM	# 4
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! http://daiber.net/mtgox.rar три примера файл евро доллар США BTC

23 июля 2012, 12:27:15 PM	# 5
Rugatu Сообщения: 182 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Цитата: 2weiX 23 июля 2012, 10:39:02 AM файлы, которые я могу экспортировать из моего mtgox счета, которые должны дать мне четкий образ того, что я торговал, хранение, изъяты и выплачиваемая в качестве платы близки к непригодным для меня. Я не только использовать другой формат для моих 1000 и десятичных знаков (1.200,75 вместо 1,200.75), но и нет никакого способа, я вручную добавлять все эти millibitcoins что я торгуемые сделать всего за день Я ищу следующее: скрипт, который принимает .csv как есть и автоматически - определяет валюту - делает в общей сложности за каждый день отображения -- купил @ средней цене -- продал @ средней цене -- сборы, уплачиваемые -- депонированный -- отозваны -- 24avg цена Bitcoin Код: 01/01/2012, +5000, 7,25Ђ 01/01/2012, отзывать, 1000 BTC 01/01/2012, депозит, 10000 Ђ 02/05/2012, -2000, 8,58Ђ .... ...это лучшее, что я могу описать это. любые вопросы? Также я в нерешительности относительно того, как высоко Баунти должно быть. если его сценарий PHP, и вы будете включать в себя функцию загрузки и экспорта, я бы с удовольствием провести его. Привет, вы можете попробовать сделать новую награду на Rugatu и посмотреть, что получится.

23 июля 2012, 8:40:31 PM	# 6
gweedo Сообщения: 1246 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Я могу сделать это в PHP, как в командной строке или веб-сценарий

24 июля 2012, 5:39:09 AM	# 7
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! я действительно получил первый ответ, будет проверять результат прямо сейчас. если мне это нравится, я опубликую сценарий для любого, чтобы работать на нем.

24 июля 2012, 6:18:41 AM	# 8
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! До сих пор я получил ряд ответов. Никто не получил "Это" право до сих пор, так что еще есть шанс 😀

24 июля 2012, 7:20:18 AM

# 9

2weiX

Сообщения: 1862

Цитировать по имени
цитировать ответ

Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы!

вот пользователь скрипт gweedo любезно прислал мне. он позволил мне опубликовать его - если это приводит к решению, он говорит, что он хотел бы иметь половину Баунти 😀

Код:

#! / USR / бен / PHP
$ file_handle знак равно Еореп($ ARGV[1], "р");
$ массив= Массив ();
$ заменить = Массив ("$","","");
в то время как(!feof($ file_handle)) {
$ line_of_text знак равно fgetcsv($ file_handle, 1024);
если($ line_of_text[0знак равно"Индекс") {
	$ temparrayзнак равновзрываться(«»,$ line_of_text[1]);
	дата $знак равно$ temparray[0];
	если(!in_array(дата $, $ temparray)) {
		$ массив[дата $] = Массив ();
	}
	если($ массив[дата $] [$ line_of_text[2]] ==!ноль) {
			$ темпзнак равно$ массив[дата $] [$ line_of_text[2]];
			$ массив[дата $] [$ line_of_text[2знак равно$ темп+floatval(str_replace($ заменить,«»,отделка($ line_of_text[4])));
	} Еще {
			$ массив[дата $] [$ line_of_text[2знак равноfloatval(str_replace($ заменить,«»,отделка($ line_of_text[4])));
	}
}
}
fclose($ file_handle);
для каждого ($ массив в виде $ ключзнак равно>$ значение) {
	если($ ключ==ноль) {
		ломать;
	}
	$ общаязнак равно0,00;
	$ общая= +$ значение['Despoit'] -$ значение['изымать'] +$ значение['в'] -$ значение['вне'];
	эхо $ ключ.' Всего: '.$ общая.«\ П»;
	если($ значение['Despoit'] ==!ноль) {
		эхо $ ключ.'Despoit'.$ значение['Despoit'].«\ П»;
	}
	если($ значение['изымать'] ==!ноль) {
		эхо $ ключ.«Снял».$ значение['изымать'].«\ П»;
	}
}
?>

24 июля 2012, 9:06:10 AM	# 10
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! после долгих раздумий, я нужен файл для каждой валюты читать ДАТА; depositedCurreny ДАТА; boughtBTC; avgPrice ДАТА; soldBTC; avgPrice ДАТА; feesPAID ДАТА; withdrawnCurrency в то время как "boughtBTC" должен быть положительным "soldBTC" отрицательное число

24 июля 2012, 9:53:58 AM	# 11
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! OBV выше не имеет смысла при работе с заголовками, так что здесь: ДАТА; ДЕПОЗИТ; amountdepositCurrency ДАТА; BUY; boughtBTC; avgPriceCurrency ДАТА; ПРОДАВАТЬ; soldBTC; avgPriceCurrency ДАТА; СБОРЫ; feespaid ДАТА; ВЫВЕСТИ; amountwithdrawnCurrency

24 июля 2012, 10:43:56 AM	# 12
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! два человека в значительной степени прибил его. я бы сказал, что некоторые изменения в ожидании и имеют право на получение вознаграждения. я хотел бы разместить как в HTML файл на моем сервере, так что я могу сделать их общедоступными. если вы оба могли бы обеспечить загрузку и функциональность экспорта, так что я все это можно использовать? в сторону: я не знаю, если мой Webspace (bitcoinsinberlin.com) работает Perl, на самом деле.

25 июля 2012, 2:15:33 PM	# 13
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Задача сделать, Баунти присужден.

26 июля 2012, 3:05:50 PM	# 14
Bitsky Сообщения: 560 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Bounty получил. Хороший парень работать, и он заплатил сразу тоже.

26 июля 2012, 3:51:25 PM	# 15
Paraipan Сообщения: 924 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Цитата: Bitsky от 26 июля 2012 года, 3:05:50 PM Bounty получил. Хороший парень работать, и он заплатил сразу тоже. Свидетель

27 июля 2012, 8:54:59 AM	# 16
jl2012 Сообщения: 1750 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Bounty получил. Благодаря! Я буду продолжать развивать веб-интерфейс для него

27 июля 2012, 9:55:23 AM	# 17
Paraipan Сообщения: 924 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Цитата: jl2012 27 июля 2012 года, 8:54:59 AM Bounty получил. Благодаря! Я буду продолжать развивать веб-интерфейс для него Цитируется для потомков ...

30 июля 2012, 8:38:12 AM	# 18
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! коды размещены

13 декабря 2012, 7:52:40 AM	# 19
2weiX Сообщения: 1862 Цитировать по имени цитировать ответ	Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы! Цитата: jl2012 27 июля 2012 года, 8:54:59 AM Bounty получил. Благодаря! Я буду продолжать развивать веб-интерфейс для него Как это дело? 😀

13 декабря 2012, 2:05:36 PM

# 20

2weiX

Сообщения: 1862

Цитировать по имени
цитировать ответ

Re: [код доступен] PHP Perl скрипты читать mtgox .csv файлы!

если кто-то был готов принять это (это Perl-скрипт), я бы пугающе счастлив.

Код:

#! / USR / бен / Perl
использовать строгий;
использовать CGI;
открытая BTC, "history_BTC.csv";
мой% массив;
# Мой @type = ("депозит", "изымать", "в", "вне", "плата");
если ($ ENV { 'REQUEST_METHOD'} эк "ПОЛУЧИТЬ") {
        Распечатать "Content-Type: текст / html \ п \ п<ТЕЛО><Метод FORM = \"после\" ENCTYPE = \"многочастному / форм-данных \">Выберите файл для загрузки (Total Max: 2M):
BTC:
ДОЛЛАР США:
ЕВРО:
<входной тип = \"Отправить\" Значение = \"Загрузить \">";
}
еще {
$ CGI :: POST_MAX = 1024 * 2048;
мой $ запрос = новый CGI;
мой $ = $ BTC query->загрузить ("BTC");
мой $ USD = $ query->загрузить ("доллар США");
мой $ евро = $ query->загрузить ("евро");
Распечатать "Content-Type: текст / html \ п \ п<ТЕЛО>BTC:
";
в то время как (<$ BTC>) {
        мой ($ даты, $ типа, $ информация, $ цена, $ баланса) = ($ _ = ~ / ^ \ d + \".? (\ D {4} - \ d {2} - \ d {2}) + \",,,, (+.) /) (+.?) (+.?) (+.?);
        $ Дата || следующий;
        если (мой ($ х, $ у) = $ значение = ~ /(.*)E(.*)/) {
                $ Значение = $ х * (10 ** $ у);
        }
        $ Массива {$ дата} {$ тип} + = $ значение;
        $ Массив {$ дата} {баланс} = $ баланса;
        если (типа эк $ "в") {
                мой ($ цена) = ($ = Информация о ~ / в \ $ (\ d + \ \ d +) /?.);
                если ($ информация = ~ / \ $ /) {
                        $ Массив {$ дата} {totalspentusd} + = ($ цена * $ значение);
                        $ Массива {$ дата} {totalboughtwithusd} + = $ значение;
                }
                еще {
                        $ Массив {$ дата} {totalspenteur} + = ($ цена * $ значение);
                        $ Массива {$ дата} {totalboughtwitheur} + = $ значение;
                }
        }
        ELSIF ($ Тип эк "вне") {
                мой ($ цена) = ($ = Информация о ~ / в \ $ (\ d + \ \ d +) /?.);
                если ($ информация = ~ / \ $ /) {
                        $ Массив {$ дата} {totalreceiveusd} + = ($ цена * $ значение);
                        $ Массива {$ дата} {totalsoldforusd} + = $ значение;
                }
                еще {
                        $ Массив {$ дата} {totalreceiveeur} + = ($ цена * $ значение);
                        $ Массива {$ дата} {totalsoldforeur} + = $ значение;
                }
        }
}


Foreach (сортировки ключи% массива) {
        если ($ массив {$ _} {} депозит > 0) {
                Распечатать "\"$ _ \"\"ДЕПОЗИТ \"\"", Sprintf ("% .8f", $ Массива {$ _} {депозит})."\"
\ п";
        }
        если ($ массив {$ _} {} вывести > 0) {
                Распечатать "\"$ _ \"\"ИЗЫМАТЬ\"\"", Sprintf ("% .8f", $ Массива {$ _} {вывести})."\"
\ п";
        }
        если ($ массив {$ _} {} плата > 0) {
                Распечатать "\"$ _ \"\"ТАРИФЫ \"\"", Sprintf ("% .8f", $ Массива {$ _} {плата})."\"
\ п";
        }
        если ($ массив {$ _} {} totalboughtwithusd > 0) {
                Распечатать "\"$ _ \"\"КУПИТЬ\"\"", Sprintf ("% .8f", $ Массива {$ _} {totalboughtwithusd})."\"\"", $ Массив {$ _} {totalspentusd} / $ массив {$ _} {totalboughtwithusd}." ДОЛЛАР США\"
\ п";
        }
        если ($ массив {$ _} {} totalboughtwitheur > 0) {
                Распечатать "\"$ _ \"\"КУПИТЬ\"\"", Sprintf ("% .8f", $ Массива {$ _} {totalboughtwitheur})."\"\"", $ Массив {$ _} {totalspenteur} / $ массив {$ _} {totalboughtwitheur}." ЕВРО\"
\ п";
        }
        если ($ массив {$ _} {} totalsoldforusd > 0) {
                Распечатать "\"$ _ \"\"ПРОДАМ \"\"", Sprintf ("% .8f", $ Массива {$ _} {totalsoldforusd})."\"\"", $ Массив {$ _} {totalreceiveusd} / $ массив {$ _} {totalsoldforusd}." ДОЛЛАР США\"
\ п";
        }
        если ($ массив {$ _} {} totalsoldforeur > 0) {
                Распечатать "\"$ _ \"\"ПРОДАМ \"\"", Sprintf ("% .8f", $ Массива {$ _} {totalsoldforeur})."\"\"", $ Массив {$ _} {totalreceiveeur} / $ массив {$ _} {totalsoldforeur}." ЕВРО\"
\ п";
        }
}
(для ключей% массива)
    {
        удаление массива $ {$ _};
    }
Распечатать "

ДОЛЛАР США:
";
в то время как (<$ USD>) {
        мой ($ даты, $ типа, $ информация, $ цена, $ баланса) = ($ _ = ~ / ^ \ d + \".? (\ D {4} - \ d {2} - \ d {2}) + \",,,, (+.) /) (+.?) (+.?) (+.?);
        $ Дата || следующий;
        если (мой ($ х, $ у) = $ значение = ~ /(.*)E(.*)/) {
                $ Значение = $ х * (10 ** $ у);
        }
        $ Массива {$ дата} {$ тип} + = $ значение;
        $ Массив {$ дата} {баланс} = $ баланса;
        если (типа эк $ "потраченный") {
                мой ($ BTC, $ цена) = ($ = Информация о ~ /(\d+\.\d+).*?BTC в \ $ (\ D + \ \ D +) /?.);
                $ Массива {$ дата} {totalspent} + = $ значение;
                $ Массива {$ дата} {totalboughtbtc} + = $ BTC;
        }
        ELSIF ($ Тип эк "заработанный") {
                мой ($ BTC, $ цена) = ($ = Информация о ~ /(\d+\.\d+).*?BTC в \ $ (\ D + \ \ D +) /?.);
                $ Массива {$ дата} {totalreceive} + = $ значение;
                $ Массива {$ дата} {totalsoldbtc} + = $ BTC;
        }
}
Foreach (сортировки ключи% массива) {

        если ($ массив {$ _} {} депозит > 0) {
                Распечатать "\"$ _ \"\"ДЕПОЗИТ \"\"", Sprintf ("% .8f", $ Массива {$ _} {депозит}). " ДОЛЛАР США\"
\ п";
        }
        если ($ массив {$ _} {} вывести > 0) {
                Распечатать "\"$ _ \"\"ИЗЫМАТЬ\"\"", Sprintf ("% .8f", $ Массива {$ _} {вывести}). " ДОЛЛАР США\"
\ п";
        }
        если ($ массив {$ _} {} плата > 0) {
                Распечатать "\"$ _ \"\"ТАРИФЫ \"\"", Sprintf ("% .8f", $ Массива {$ _} {плата}). " ДОЛЛАР США\"
\ п";
        }
        если ($ массив {$ _} {} totalboughtbtc > 0) {
                Распечатать "\"$ _ \"\"КУПИТЬ\"\"", Sprintf ("% .8f", $ Массива {$ _} {totalboughtbtc}). " BTC \"\"", $ Массив {$ _} {totalspent} / $ массив {$ _} {totalboughtbtc}." ДОЛЛАР США\"
\ п";
        }
        если ($ массив {$ _} {} totalsoldbtc > 0) {
                Распечатать "\"$ _ \"\"ПРОДАМ \"\"", Sprintf ("% .8f", $ Массива {$ _} {totalsoldbtc}). " BTC \"\"", $ Массив {$ _} {totalreceive} / $ массив {$ _} {totalsoldbtc}." ДОЛЛАР США\"
\ п";
        }
}
(для ключей% массива)
    {
        удаление массива $ {$ _};
    }
Распечатать "

ЕВРО:
";
в то время как (<$ евро>) {
        мой ($ даты, $ типа, $ информация, $ цена, $ баланса) = ($ _ = ~ / ^ \ d + \".? (\ D {4} - \ d {2} - \ d {2}) + \",,,, (+.) /) (+.?) (+.?) (+.?);
        $ Дата || следующий;
        если (мой ($ х, $ у) = $ значение = ~ /(.*)E(.*)/) {
                $ Значение = $ х * (10 ** $ у);
        }
        $ Массива {$ дата} {$ тип} + = $ значение;
        $ Массив {$ дата} {баланс} = $ баланса;
        если (типа эк $ "потраченный") {
                мой ($ BTC, $ цена) = ($ = Информация о ~ /(\d+\.\d+).*?BTC в \ $ (\ D + \ \ D +) /?.);
                $ Массива {$ дата} {totalspent} + = $ значение;
                $ Массива {$ дата} {totalboughtbtc} + = $ BTC;
        }
        ELSIF ($ Тип эк "заработанный") {
                мой ($ BTC, $ цена) = ($ = Информация о ~ /(\d+\.\d+).*?BTC в \ $ (\ D + \ \ D +) /?.);
                $ Массива {$ дата} {totalreceive} + = $ значение;
                $ Массива {$ дата} {totalsoldbtc} + = $ BTC;
        }
}
Foreach (сортировки ключи% массива) {

        если ($ массив {$ _} {} депозит > 0) {
                Распечатать "\"$ _ \"\"ДЕПОЗИТ \"\"", Sprintf ("% .8f", $ Массива {$ _} {депозит}). " ЕВРО\"
\ п";
        }
        если ($ массив {$ _} {} вывести > 0) {
                Распечатать "\"$ _ \"\"ИЗЫМАТЬ\"\"", Sprintf ("% .8f", $ Массива {$ _} {вывести}). " ЕВРО\"
\ п";
        }
        если ($ массив {$ _} {} плата > 0) {
                Распечатать "\"$ _ \"\"ТАРИФЫ \"\"", Sprintf ("% .8f", $ Массива {$ _} {плата}). " ЕВРО\"
\ п";
        }
        если ($ массив {$ _} {} totalboughtbtc > 0) {
                Распечатать "\"$ _ \"\"КУПИТЬ\"\"", Sprintf ("% .8f", $ Массива {$ _} {totalboughtbtc}). " BTC \"\"", $ Массив {$ _} {totalspent} / $ массив {$ _} {totalboughtbtc}." ЕВРО\"
\ п";
        }
        если ($ массив {$ _} {} totalsoldbtc > 0) {
                Распечатать "\"$ _ \"\"ПРОДАМ \"\"", Sprintf ("% .8f", $ Массива {$ _} {totalsoldbtc}). " BTC \"\"", $ Массив {$ _} {totalreceive} / $ массив {$ _} {totalsoldbtc}." ЕВРО\"
\ п";
        }
}


Распечатать "";
}

« Предыдущая тема | Следующая тема »

Как заработать Биткоины?

Bitcoin Wallet * Portefeuille Bitcoin * Monedero Bitcoin * Carteira Bitcoin * Portafoglio Bitcoin * Bitcoin Cüzdan * 比特币钱包

bitcoin-zarabotat.ru
Почта для связи: bitcoin-zarabotat.ru@yandex.ru

3HmAQ9FkRFk6HZGuwExYxL62y7C1B9MwPW

Заголовок