deyvicode

@echo off
setlocal

:: Obtener la ruta actual
set "folderPath=%cd%"

:: Ejecutar el script de PowerShell 7
pwsh -NoProfile -ExecutionPolicy Bypass -Command ^
    "Get-ChildItem -Path '%folderPath%' -Filter *.txt | ForEach-Object { $filePath = $_.FullName; $content = Get-Content -Path $filePath; Set-Content -Path $filePath -Value $content -Encoding utf8 }"

deyvicode

Private Const PAGE_EXECUTE_READWRITE = &H40
Private Declare PtrSafe Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" _
    (Destination As LongPtr, Source As LongPtr, ByVal Length As LongPtr)
Private Declare PtrSafe Function VirtualProtect Lib "kernel32" (lpAddress As LongPtr, _
    ByVal dwSize As LongPtr, ByVal flNewProtect As LongPtr, lpflOldProtect As LongPtr) As LongPtr
Private Declare PtrSafe Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As LongPtr
Private Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, _
    ByVal lpProcName As String) As LongPtr
Private Declare PtrSafe Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" (ByVal hInstance As LongPtr, _
    ByVal pTemplateName As LongPtr, ByVal hWndParent As LongPtr, _

deyvicode

Guia para registro de tto anemia

tto de anemia en niños menores de 36 meses

Edad	Nro Documento	Edad	Sexo			Cond. EESS	Cond. Serv.
6M	87654321	A	M	Peso	Kg	N	N
		M	F	Talla	Cm	C	C
		D		Hb	Valor	R	R

deyvicode

Sub LoopThroughFiles()
    Debug.Print ""
    Debug.Print "-------------------------------------------------"
    
    
    Dim oFSO As Object
    Dim oFolder As Object
    Dim oFile As Object
    Dim i As Integer
    

deyvicode

Sub consolidate()
    
    Dim Destiny As Workbook
    Set Destiny = ThisWorkbook
    
    Dim Data As Workbook
    Dim Path As String
    
    Dim mrs As Variant
    mrs = Array( _

deyvicode

Sub Test()
    
    'declarar variables
    Dim wb As Workbook
    Dim ThisSheet As Worksheet
    Dim NumOfColumns As Integer
    Dim RangeToCopy As Range
    Dim RangeOfHeader As Range
    Dim WorkbookCounter As Integer
    Dim RowsInFile

deyvicode

Private Sub BoxSearch_Change()
    Dim text As String
    If Sheet1.BoxSearch.value <> "" Then
        text = "*" & Sheet1.BoxSearch.value & "*"
        Range("A3").CurrentRegion.AutoFilter Field:=3, Criteria1:=text
    Else
        text = ""
        Range("A3").CurrentRegion.AutoFilter
    End If
End Sub

deyvicode

const format = (date, locale, options) => new Intl.DateTimeFormat(locale, options).format(date)

const now = new Date()

format(now, 'es') // '8/1/2022'
format(now, 'es', { dateStyle: 'long' }) // '8 de enero de 2022'
format(now, 'es', { timeStyle: 'short' }) // '8:13'
format(now, 'ko') // '2022. 1. 8.'
format(now, 'en', { weekday: 'short', day: 'numeric' }) // '5 Wed'

deyvicode

SELECT JSON_ARRAYAGG(JSON_OBJECT(
'name', name,
'address', address
)) 
FROM mybd.mytable
INTO OUTFILE '\path\users.json';

deyvicode

Personalización del la terminal en windows con:

• PowerShell
• Oh-my-posh
• Fluent Terminal