This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env bash | |
| set -euo pipefail | |
| if [[ $# -lt 1 ]]; then | |
| echo "Usage: $0 <NTS episode URL>" >&2 | |
| exit 1 | |
| fi | |
| url="${1%%\?*}" | |
| url="${url%/}" |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #!/usr/bin/env perl | |
| use 5.20.0; | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use open qw(:std :encoding(UTF-8)); | |
| use Encode qw(decode); | |
| use Getopt::Long qw(GetOptions); | |
| use LWP::UserAgent; | |
| use HTML::Entities qw(decode_entities); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (* | |
| Textual Music Now Playing + YouTube Link | |
| ---------------------------------------- | |
| Publica en el canal activo de Textual la canción reproducida actualmente | |
| en Music.app, incluyendo artista, título, álbum y un enlace de YouTube. | |
| Uso en Textual: | |
| /itunes | |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ZIPFile) => | |
| let | |
| Header = BinaryFormat.Record([ | |
| MiscHeader = BinaryFormat.Binary(14), | |
| BinarySize = BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger32, ByteOrder.LittleEndian), | |
| FileSize = BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger32, ByteOrder.LittleEndian), | |
| FileNameLen= BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger16, ByteOrder.LittleEndian), | |
| ExtrasLen = BinaryFormat.ByteOrder(BinaryFormat.UnsignedInteger16, ByteOrder.LittleEndian) | |
| ]), |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import requests | |
| import hashlib | |
| import time | |
| import pandas as pd | |
| import argparse | |
| import webbrowser | |
| API_ROOT = "http://ws.audioscrobbler.com/2.0/" | |
| MAX_RETRIES = 5 | |
| RETRY_BACKOFF = 2 # seconds for each trial |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Interfaz gráfica del Script para realizar la explosión de la lista de materiales multinivel | |
| import pandas as pd | |
| import tkinter as tk | |
| from tkinter import filedialog, messagebox | |
| from tkinter import ttk | |
| from collections import defaultdict | |
| class BOMApp: | |
| def __init__(self, root): |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Function SplitYear01(fechainicio As Date, fechaFin As Date) As Variant | |
| Dim fechaActualInicio As Date | |
| Dim fechaActualFin As Date | |
| Dim finAnoFiscal As Date | |
| Dim umatriz As Collection | |
| Dim tupla() As Variant | |
| Dim i As Integer | |
| Dim count As Integer | |
| ' Crear una colección para almacenar las tuplas |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Sub AddNewAccounts() | |
| ' Desactivar la actualización de pantalla y el cálculo automático para mejorar el rendimiento | |
| Application.ScreenUpdating = False | |
| Application.Calculation = xlCalculationManual | |
| Dim wsParam As Worksheet | |
| Dim ws As Worksheet | |
| Dim lastRow As Long | |
| ' Establecer la hoja "param" |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Sub SplitExcelFile() | |
| Dim ws As Worksheet | |
| Dim lastRow As Long | |
| Dim i As Long | |
| Dim chunkSize As Long | |
| Dim outputFolder As String | |
| Dim outputFileName As String | |
| Dim totalValues As Long | |
| Dim chunkCounter As Long | |
| Dim chunkValues As Long |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Function to show a folder selection dialog | |
| function Get-FolderDialog($initialDirectory) { | |
| $folderBrowser = New-Object System.Windows.Forms.FolderBrowserDialog | |
| $folderBrowser.RootFolder = [System.Environment+SpecialFolder]::MyComputer | |
| $folderBrowser.SelectedPath = $initialDirectory | |
| $folderBrowser.ShowNewFolderButton = $false | |
| $result = $folderBrowser.ShowDialog() | |
| if ($result -eq [System.Windows.Forms.DialogResult]::OK) { |
NewerOlder