Mensajes

[Batch]

En Batch sería bastante engorroso, una pérdida de tiempo para la cantidad de escritura que requeriría y lo no demasiado eficiente que sería el resultado final, necesitarías procesar y comparar cada caracter de cada linea haciendole Substring con un Loop, sinceramente habiendo otras muchas mejores y decentes alternativas no estoy por la labor de codear un ejemplo en Batch, pero es algo facil de encontrar en Google.

Si tu objetivo es usar cualquier lenguaje que esté soportado nativamente en Windows entonces puedes usar VisualBasicScript junto a una expresión regular:

Código (vb) [Seleccionar] Expandir

NumericChars = RemoveNonNumerics(".\Archivo.txt")

Set NewFile  = CreateObject("Scripting.FileSystemObject"). _
              CreateTextFile(".\Archivo.txt", True)

NewFile.Write NumericChars
NewFile.Close

Wscript.Quit(0)

' By Elektro
Function RemoveNonNumerics(TextFile)

   TextContent       = CreateObject("Scripting.FileSystemObject"). _
                       OpenTextFile(TextFile, 1, False).ReadAll

   Set objRegEx      = CreateObject("VBScript.RegExp")
   objRegEx.Global   = True  
   objRegEx.Pattern  = "[^0-9\n]"

   RemoveNonNumerics = objRegEx.Replace(TextContent, "")

End Function

Saludos.

[¿En que lenguaje?]

¿En que lenguaje?

ok gracias a todos

pueden cerrar el tema si lo creen conveniente

saludos!

[Uploaded.net]

Hola

Habitualmente yo compro una subscripción Premium de 3 meses a Uploaded.net (25€), y ...bueno, la subscripción se me ha acabado y en lugar de renovarla otra vez estoy pensando seriamente en comprar otra alternativa que siempre me pareció mejor pero nunca me atreví a comprar, me refiero a servicios que ofrecen muchas cuentas Premium (de forma legal) para distintos servidores y por mucho menos dinero.

Por ejemplo:
http://multihosters.com/selectProduct.aspx


o...: http://zevera.com/Prices.aspx#prices
Y aquí hay más: http://www.kulhead.com/2013/09/5-most-powerful-multihosters.html


· ¿Alguien ha experimentado este tipo de servicios? ...¿Son de fiar?, ¿Algo que pinar?
· ¿Reálmente todas las cuentas Premium que dicen tener activas ...lo están siempre?
· ¿Recomiendan algun servicio parecido en especial?

A mi lo que me da miedo es que por ejemplo sea más un timo que otra cosa, y que de repente una cuenta deje de funcionar y no puedas reclamar nada y pierdas a mala leche el dinero que has pagado por no poder descargar como Premium de ese hosting, o cosas parecidas.

Saludos

[ExeScript]

¿Pero para ejecutarlos es necesario tener instaladas las dll?

Si

Imagino que, como alternativa, se podría portabilizar, empaquetando las librerías y el archivo .VBS todo en un único exe (por ejemplo con la herramienta ExeScript).

Saludos!

Creo que la otra vez que preguntaste esto no te entendí muy bien, pero ahora parece estar bastante más claro, a ver si esta vez he acertado... :

Código (vb) [Seleccionar] Expandir

Values = Array(Null, _
              1773, 1773, 1773, 1773, _
              1774, 1774, 1774, 1774, 1774, 1774, 1774, _
              1775, 1775, 1775, 1775, 1775, 1775, 1775, _
              "etc...")


Set FSO   = CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(".\").Files

For Each File in Files

   If LCase(FSO.GetExtensionName(File)) = LCase("T01") Then
       Wscript.Echo "File:  " & File.name & _
                    VBNewLine & _
                    "Value: " & Values(Cint(Mid(File.name, 5, 3)))
   End If

Next

Wscript.Quit(0)

Saludos

Ya te dieron una solución rápida, pero ya puestos a introducir valores de un tipo específico... hagámoslo lo mejor posible!

[youtube=640,360]https://www.youtube.com/watch?v=j9fT9l-rPuE[/youtube]

Código (vbnet) [Seleccionar] Expandir

Friend Module Test

    Friend Num As Integer = -0I

    Friend Sub Main()

        Console.Title = "Introduciendo valores... By Elektro"
        Console.WriteLine()

        Num = ReadNumber(Of Integer)(
                         MaxValue:=Integer.MaxValue,
                         Mask:="."c,
                         CommentFormat:="[+] Introduce un valor {0} :",
                         IndicatorFormat:=" >> ",
                         DataTypeFormat:=New Dictionary(Of Type, String) From
                                         {
                                             {GetType(Integer),
                                              String.Format("entero (Int32 Max: {0})", CStr(Integer.MaxValue))}
                                         })

        Console.WriteLine(Environment.NewLine)
        Console.WriteLine(String.Format("Valor {0}: {1}", Num.GetType.Name, CStr(Num)))
        Console.ReadKey()

        Environment.Exit(0)

    End Sub

    ' By Elektro
    '
    ''' <summary>
    ''' Reads the console input to wait for an specific numeric value.
    ''' </summary>
    ''' <typeparam name="T"></typeparam>
    ''' <param name="MaxValue">Indicates the maximum value to expect.</param>
    ''' <param name="Mask">Indicates the character mask.</param>
    ''' <param name="CommentFormat">Indicates a comment string format.</param>
    ''' <param name="IndicatorFormat">Indicates a value indicator string format.</param>
    ''' <param name="DataTypeFormat">Indicates a data type string format.</param>
    Friend Function ReadNumber(Of T)(Optional ByVal MaxValue As Object = -0S,
                                     Optional ByVal Mask As Char = "",
                                     Optional ByVal CommentFormat As String = "",
                                     Optional ByVal IndicatorFormat As String = "",
                                     Optional ByVal DataTypeFormat As Dictionary(Of Type, String) = Nothing) As T

        ' A temporal string that stores the value.
        Dim TmpString As String = String.Empty

        ' Stores the current typed character.
        Dim CurrentKey As New ConsoleKeyInfo("", ConsoleKey.NoName, False, False, False)

        ' Retrieve the numeric object Type.
        Dim DataType As Type = GetType(T)

        ' Retrieve the Type name.
        Dim ValueFormat As String = DataType.Name

        ' Retrieve the Type converter.
        Dim Converter As System.ComponentModel.TypeConverter =
            System.ComponentModel.TypeDescriptor.GetConverter(DataType)

        ' Set the maximum number value.
        If Not CBool(MaxValue) Then
            MaxValue = DataType.GetField("MaxValue").GetValue(Nothing)
        End If

        ' Set the maximum number length.
        Dim MaxValueLength As Integer = CStr(MaxValue).Length

        ' Set the indicator length.
        Dim IndicatorLength As Integer = IndicatorFormat.Length

        ' Set the datatype name format.
        If DataTypeFormat IsNot Nothing Then
            ValueFormat = DataTypeFormat(DataType)
        End If

        ' Write the comment.
        If Not String.IsNullOrEmpty(CommentFormat) Then
            Console.WriteLine(String.Format(CommentFormat, ValueFormat))
            Console.WriteLine()
        End If

        ' Write the indicator.
        If Not String.IsNullOrEmpty(IndicatorFormat) Then
            Console.Write(IndicatorFormat)
        End If

        ' Write the value mask.
        For X As Integer = 0 To MaxValueLength - 1
            Console.Write(Mask)
        Next

        ' Set the cursor at the start of the mask.
        Console.SetCursorPosition(Console.CursorLeft - MaxValueLength, Console.CursorTop)

        ' Ready to parse characters!
        Do

            CurrentKey = Console.ReadKey(True)

            Select Case CurrentKey.Key

                Case ConsoleKey.Enter ' Accept the input.
                    Exit Do

                Case ConsoleKey.Backspace ' Delete the last written character.

                    If Not String.IsNullOrEmpty(TmpString) Then
                        Console.SetCursorPosition(Console.CursorLeft - 1, Console.CursorTop)
                        Console.Write(Mask)
                        Console.SetCursorPosition(Console.CursorLeft - 1, Console.CursorTop)
                        TmpString = TmpString.ToString.Substring(0, TmpString.ToString.Length - 1)
                    End If

                Case ConsoleKey.LeftArrow ' Move 1 cell to Left.
                    ' Not implemented yet (Too much work deleting character in the current cursor position).
                    ' Console.SetCursorPosition(Console.CursorLeft - 1, Console.CursorTop)

                Case ConsoleKey.RightArrow ' Move 1 cell to Right.
                    ' Not implemented yet (Too much work deleting character in the current cursor position).
                    ' Console.SetCursorPosition(Console.CursorLeft + 1, Console.CursorTop)

                Case Else ' Another key

                    Dim NextValue As String = If(Not String.IsNullOrEmpty(TmpString),
                                                 TmpString.ToString & CurrentKey.KeyChar,
                                                 CurrentKey.KeyChar)

                    ' If value is valid and also does not exceed the maximum value then...
                    If Converter.IsValid(NextValue) _
                        AndAlso Not NextValue > MaxValue _
                        AndAlso Not NextValue.Length > MaxValueLength Then

                        TmpString = NextValue
                        Console.Write(CurrentKey.KeyChar)

                    End If

            End Select

        Loop

        If Not String.IsNullOrEmpty(TmpString) Then ' Return the value.
            Return Converter.ConvertFromString(TmpString)
        Else
            Return Nothing
        End If

    End Function

End Module


Traducción al vuelo a C# (no lo he testeado):

Código (csharp) [Seleccionar] Expandir


using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
static internal class Test
{


static internal int Num = -0;

static internal void Main()
{
Console.Title = "Introduciendo valores... By Elektro";
Console.WriteLine();

Num = ReadNumber<int>(MaxValue: int.MaxValue, Mask: '.', CommentFormat: "[+] Introduce un valor {0} :", IndicatorFormat: " >> ", DataTypeFormat: new Dictionary<Type, string> { {
typeof(int),
string.Format("entero (Int32 Max: {0})", Convert.ToString(int.MaxValue))
} });

Console.WriteLine(Environment.NewLine);
Console.WriteLine(string.Format("Valor {0}: {1}", Num.GetType.Name, Convert.ToString(Num)));
Console.ReadKey();

Environment.Exit(0);

}

/// <summary>
/// Reads the console input to wait for an specific numeric value.
/// </summary>
/// <typeparam name="T"></typeparam>
/// <param name="MaxValue">Indicates the maximum value to expect.</param>
/// <param name="Mask">Indicates the character mask.</param>
/// <param name="CommentFormat">Indicates a comment string format.</param>
/// <param name="IndicatorFormat">Indicates a value indicator string format.</param>
/// <param name="DataTypeFormat">Indicates a data type string format.</param>
static internal T ReadNumber<T>(object MaxValue = -0, char Mask = "", string CommentFormat = "", string IndicatorFormat = "", Dictionary<Type, string> DataTypeFormat = null)
{

// A temporal string that stores the value.
string TmpString = string.Empty;

// Stores the current typed character.
ConsoleKeyInfo CurrentKey = new ConsoleKeyInfo("", ConsoleKey.NoName, false, false, false);

// Retrieve the numeric object Type.
Type DataType = typeof(T);

// Retrieve the Type name.
string ValueFormat = DataType.Name;

// Retrieve the Type converter.
System.ComponentModel.TypeConverter Converter = System.ComponentModel.TypeDescriptor.GetConverter(DataType);

// Set the maximum number value.
if (!Convert.ToBoolean(MaxValue)) {
MaxValue = DataType.GetField("MaxValue").GetValue(null);
}

// Set the maximum number length.
int MaxValueLength = Convert.ToString(MaxValue).Length;

// Set the indicator length.
int IndicatorLength = IndicatorFormat.Length;

// Set the datatype name format.
if (DataTypeFormat != null) {
ValueFormat = DataTypeFormat(DataType);
}

// Write the comment.
if (!string.IsNullOrEmpty(CommentFormat)) {
Console.WriteLine(string.Format(CommentFormat, ValueFormat));
Console.WriteLine();
}

// Write the indicator.
if (!string.IsNullOrEmpty(IndicatorFormat)) {
Console.Write(IndicatorFormat);
}

// Write the value mask.
for (int X = 0; X <= MaxValueLength - 1; X++) {
Console.Write(Mask);
}

// Set the cursor at the start of the mask.
Console.SetCursorPosition(Console.CursorLeft - MaxValueLength, Console.CursorTop);

// Ready to parse characters!

do {
CurrentKey = Console.ReadKey(true);

switch (CurrentKey.Key) {

case ConsoleKey.Enter:
// Accept the input.
break; // TODO: might not be correct. Was : Exit Do


break;
case ConsoleKey.Backspace:
// Delete the last written character.

if (!string.IsNullOrEmpty(TmpString)) {
Console.SetCursorPosition(Console.CursorLeft - 1, Console.CursorTop);
Console.Write(Mask);
Console.SetCursorPosition(Console.CursorLeft - 1, Console.CursorTop);
TmpString = TmpString.ToString.Substring(0, TmpString.ToString.Length - 1);
}

break;
case ConsoleKey.LeftArrow:
// Move 1 cell to Left.
break;
// Not implemented yet (Too much work deleting character in the current cursor position).
// Console.SetCursorPosition(Console.CursorLeft - 1, Console.CursorTop)

case ConsoleKey.RightArrow:
// Move 1 cell to Right.
break;
// Not implemented yet (Too much work deleting character in the current cursor position).
// Console.SetCursorPosition(Console.CursorLeft + 1, Console.CursorTop)

default:
// Another key

string NextValue = !string.IsNullOrEmpty(TmpString) ? TmpString.ToString + CurrentKey.KeyChar : CurrentKey.KeyChar;

// If value is valid and also does not exceed the maximum value then...

if (Converter.IsValid(NextValue) && !(NextValue > MaxValue) && !(NextValue.Length > MaxValueLength)) {
TmpString = NextValue;
Console.Write(CurrentKey.KeyChar);

}

break;
}

} while (true);

// Return the value.
if (!string.IsNullOrEmpty(TmpString)) {
return Converter.ConvertFromString(TmpString);
} else {
return null;
}

}

}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================

[Drag&Drop]

Pues si quieres mi opinión, integrar una característica Drag&Drop en VB.Net/C-Sharp resulta algo muy sencillo, cómodo y eficiente, ya que proporciona classes específicas para dichas acciones y determinar el tipo de elemento que se arrastró (archivo, carpeta, texto, imagen, etc..) cosa que no he visto que tengan otros lenguajes más simples (Scripting) aunque tambien resulta algo sencillo.

PD: No ofrezco ayuda por privado, en el post de arriba tienes todo lo necesario y un ejemplo completo en Batch, debes aprender lo básico del lenguaje que pretendas usar...

saludos!

El email está expuesto de forma pública en el perfil del Admin: http://foro.elhacker.net/profiles/elbrujo-u1.html

Saludos

[Set /P]

Hola

Quieres decir "arrastrar y soltar" (Drag&Drop)

El único modo de hacerlo en Batch es usando el comando Set /P

Código (dos) [Seleccionar] Expandir

@Echo OFF

Echo Arrastra un directorio a esta ventana...
Set /P "Dir="

Echo %DIR%

Pause&Exit

...Pero ten en cuenta que debes formatear la cadena para quitarle/añadirle comillas dobles a las rutas con espacios en el nombre, y determinar si se trata de un archivo o una carpeta.

Aquí tienes un ejemplo más extenso:
· Consola de reciclaje - By Elektro

Saludos.