Skip to content

Instantly share code, notes, and snippets.

alert("Hello World!");
@dprotopopov
dprotopopov / gist:e4dd49fe1a4dfd1aee7322f82b59bbaa
Created April 18, 2016 09:28
есть список артикулов. из него нужно получить список где для каждого артикула на конце будет добавлено
Sub Join()
With ThisWorkbook
Set lData = .Sheets(1).Range("A1")
Set rData = .Sheets(2).Range("A1")
Set rngLeft = Range(lData, lData.End(xlDown))
Set rngRight = Range(rData, rData.End(xlDown))
Set Sh = .Sheets.Add(After:=.Sheets(.Sheets.Count))
build-enviroment
================
This sets-up the oe-alliance build environment.
git clone git://github.com/Atemio/build-enviroment.git
make update
Удаляем все .git
/**
* jQuery.browser.mobile (http://detectmobilebrowser.com/)
*
* jQuery.browser.mobile will be true if the browser is a mobile device
*
**/
(function(a){(jQuery.browser=jQuery.browser||{}).mobile=/(android|bb\d+|meego).+mobile|avantgo|bada\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|mobile.+firefox|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows ce|xda|xiino/i.test(a)||/1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55\/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1 u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|
@dprotopopov
dprotopopov / gist:df93bc148c3cca1d8b4a
Last active August 29, 2015 14:06
Подправить(доработать) код VBA для Excel
Function RegExpReplace(ByVal WhichString As String, _
ByVal Pattern As String, _
ByVal ReplaceWith As String, _
Optional ByVal IsGlobal As Boolean = True, _
Optional ByVal IsCaseSensitive As Boolean = True) As String
'Declaring the object
Dim objRegExp As Object
'Initializing an Instance
Set objRegExp = CreateObject("VBScript.RegExp")
'Setting the Properties
(function (express) {
document.addEventListener("deviceready", onDeviceReady, false);
function onDeviceReady() {
navigator.splashscreen.hide();
document.addEventListener("backbutton", exitApp, false);
}
function exitApp() {
switch (express.devices.real().platform) {
case "tizen":
tizen.application.getCurrentApplication().exit();
(function (write) {
document.write = function () {
var result;
var args = arguments;
MSApp.execUnsafeLocalFunction(function () {
result = write.apply(document, args);
});
return result;
};
})(document.write);
window.ActiveXObject = false;
Audio.iOSPrepare = function () { };
(function ($) {
(function (domManip) {
$.fn.domManip = function () {
var result;
var that = this;
var args = arguments;
MSApp.execUnsafeLocalFunction(function () {
result = domManip.apply(that, args);
});
return result;