Mensajes

¿Entonces?, ¿así lo dejas o cuál problema hay?

A ver así:

Código (dos) [Seleccionar] Expandir

@echo off
setlocal enabledelayedexpansion

rem Puedes cambir texto.txt por el archivo que quieras.

for /f "Tokens=*" %%a in ('type texto.txt') do (
set linea=%%a
set linea=!linea:depresión=DEPRESION!
call :show !linea!
)

goto:lineas

:show
echo %*
goto:eof

:lineas
echo.
echo Total lineas:
type .\texto.txt | find /v /c ""

:repetido
echo Palabra "Depresi¢n" Sale:
type texto.txt | find /i /c "depresión"

Te iba a decir que probaras con %* pero bueno, ya lo has resuelto.

Código [Seleccionar] Expandir

"C:\ZetaUploadContextMenu.bat"

Hay que tener cuidado por si el disco no existe.

Aquí te dejo mi versión, con el uso de un pequeño "alfabeto".

Código (c) [Seleccionar] Expandir

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>

char *alfabeto = "0123456789ABCDEFG";

char *hexa(unsigned long long n)
{
    if(n == 0)
    return "0";
    char *s = NULL;
    unsigned i = 0, j, c;

    for(; n > 0; n /= 16)
    {
        s = realloc(s, sizeof(char) * ++i);
        s[i - 1] = alfabeto[ (int)fmod(n, 16)  ];
    }

    for(i = 0, j = strlen(s) - 1; i < j; i++, j--, s[j + 1] = c)
    {
        c = s[i];
        s[i] = s[j];
    }

    return s;
}

int main(void)
{
    puts(hexa(1234567));
    return 0;
}


El error debe estar en el manejo del acento.

Por cierto, ¿para declarar un array de "cadenas" no sería char * valores[100]?

Sí, está incorrecto el código que puso él.

¿Para qué usar un array de arrays de enteros?, ¿no podría solo ser un array?

Así es, o también la otra menos utilizada sin utilizar "here documents":

Código (bash) [Seleccionar] Expandir

cat -> file.txt
klajlskjdlkasjdlkjasd
asdklajklskdjas


Con fines lucrativos, supongo, si es así me apunto...

Tienes que hacer una prueba de escritorio con un diagrama de listas, sino te será dificil entenderlo.

No, no es estricta, en Perl son obligatorios los {} en el for, if, while, until, etc.

Pero también existen los enunciados modificados:

Código (perl) [Seleccionar] Expandir

print "Eres el administrador" if $nombre eq "Uriel";

Código (perl) [Seleccionar] Expandir

print "Falso" unless $var;

Código (perl) [Seleccionar] Expandir

$num++ until $num > 10;

Código (perl) [Seleccionar] Expandir

$num++ while $num < 10;

Saludos.