Mensajes

Asi podria ser:

Código (python) [Seleccionar] Expandir

import os
def cortar(nomOriginal, nomNuevo, tamArchivo, tamCortar):
    with open(nomOriginal, 'r+b') as file1:
        f1 = file1.read (tamArchivo-tamCortar)
        file1.close()
    with open(nomNuevo, 'w+b') as file2:
        file2.write(f1)
        file2.close()
        print("Cortado Hecho y guardado en: " + nomNuevo)

direc = os.getcwd()
dirList = os.listdir(direc)
for fname in dirList:
    if(fname.upper().endswith('.JPG')):
        if(os.path.isfile(direc + fname)== True):
            if(os.path.exists(direc + fname + '.bak')== False):
                print ('Nombre de archivo: '+ fname)
                leno = os.path.getsize(direc + fname)
                print ("inciando cortado en: " + direc + fname)
                os.rename(direc + fname,direc + fname + '.bak')
                cortar(direc + fname + '.bak', direc + fname, leno, 20000)
            else:
                print ('Archivo: ' + direc + fname + ' ya fue cortado')

Te puedo dar un poco de ayuda de pasada en python:

Código (python) [Seleccionar] Expandir

import os
def cortar(nomOriginal, nomNuevo, tamArchivo, tamCortar):
    with open(nomOriginal, 'r+b') as file1:
        f1 = file1.read (tamArchivo-tamCortar)
        file1.close()
    with open(nomNuevo, 'w+b') as file2:
        file2.write(f1)
        file2.close()
        print("Cortado Hecho y guardado en: " + nomNuevo)

direc = input('Ingrese Directorio: ')
dirList = os.listdir(direc)

for fname in dirList:
    if(fname.upper().endswith('.JPG')):
        if(os.path.isfile(direc + fname)== True):
            if(os.path.exists(direc + fname + '.bak')== False):
                print ('Nombre de archivo: '+ fname)
                leno = os.path.getsize(direc + fname)
                print ("inciando cortado en: " + direc + fname)
                os.rename(direc + fname,direc + fname + '.bak')
                cortar(direc + fname + '.bak', direc + fname, leno, 1000)
            else:
                print ('Archivo: ' + direc + fname + ' ya fue cortado')


El code es solo un inicio faltan muchas cosas, pero sirve para lo que buscas al iniciar pide el directorio donde buscara los archivos con la extension especificada, en el ejemplo puse *.jpg para que se pueda ver el cambio que realiza, en:

Código (python) [Seleccionar] Expandir

cortar(direc + fname + '.bak', direc + fname, leno, 1000) el numero 1000 representa cuantos bytes del final de archivo quitara y escribira en un nuevo archivo con el nombre original, antes verifica si se trata de un archivo y si existe o no un archivo *.bak con su nombre, de ser asi no lo procesa porque lo toma como un archivo ya "cortado". Pruebalo en unas imagenes JPG que tengan un tamaño superior al numero que especifiques en "cortar" y veras los cambios al ejecutarlo, luego puedes utilizarlo para los *.bin que mencionas, tb seria que leas acerca de python un buen manual y asi completas lo que falta, las excepciones, depuracion de errores y demas, ademas de crear un buscador de archivos para que no tengas que especificar la ruta, eso lo haces con pocas lineas.
Necesitas python 3 para correrlo.

Puedes hacer algo asi:

Código (java) [Seleccionar] Expandir

import java.io.BufferedReader;
import java.io.InputStreamReader;

Código (java) [Seleccionar] Expandir

private void jButton1MouseClicked(java.awt.event.MouseEvent evt) {
        // TODO add your handling code here:
        try{
            String str_proceso = null;
            int i = 0;
            String admin = System.getenv("windir") + "\\system32\\" + "tasklist.exe";
            Process proceso = Runtime.getRuntime().exec(admin);
            BufferedReader input = new BufferedReader(new InputStreamReader(proceso.getInputStream()));
            while((str_proceso = input.readLine()) != null){
                jTable1.setValueAt(str_proceso, i, 0);
                 i++;
                }
            input.close();
            }catch(Exception e){
                e.printStackTrace();
                }
    }

Este ejemplo lo tenia guardado de alguna pagina que no recuerdo, faltaria agregar en tiempo de ejecucion las filas necesarias para todos los procesos, en otro caso añadirlas en el diseño una cantidad suficiente que pueda almacenar todos los datos.

Pudes hacerlo con python:

Código (python) [Seleccionar] Expandir

os.path.getsize para obtener el tamaño del archivo y de ahi restar los bytes que quieres sacar, hacer un

Código (python) [Seleccionar] Expandir

read(n bytes) desde el inicio del archivo hasta el resultado de la resta y escribirlo en otro archivo que seria el nuevo bin y renombrar al original como backup.
En VB6 es igual de sencillo con:

Código (vb) [Seleccionar] Expandir

Open archivo For Binary As #numero
Get
Put
LOF(numero)
'datos como Byte, Long y demas
y haces el mismo procedimiento o puedes utilizar otro lenguaje mas rapido como c  o en caso de c++ podrias utilizar:

Código (cpp) [Seleccionar] Expandir

ios::binary, ios::out, ios::in
Supongo que en Vb Script tb pueda hacerse, pero voz eliges.

Algo asi?

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim i As Integer
Dim ruta As String
For i = 0 To File1.ListCount - 1
    If File1.Selected(i) = True Then
       If MsgBox("En realidad deseas borrar este archivo?", vbQuestion + vbYesNo, "Borrar Archivo") = vbYes Then
       ruta = File1.Path & "\" & File1.FileName
       SetAttr ruta, vbNormal
       Kill ruta
       File1.Selected(i) = False
       File1.Refresh
       Exit For
       End If
    End If
Next i
End Sub

Puedes agregar una referencia "COM" al win media player con eso bastaria, hay mucho ejemplos en la red.

Tb puede ser InstallShield un proyecto MSI con deteccion de SO soportados y depencias como NetFramework X, etc.

Esto va a .NET

de forma no muy buena puede ser asi:

Código (vbnet) [Seleccionar] Expandir


       If (Val(TextBox1.Text) = Val(TextBox2.Text) And Val(TextBox1.Text) = Val(TextBox3.Text)) Then
           Me.Text = "iguales"
       ElseIf (Val(TextBox1.Text) < Val(TextBox2.Text) And Val(TextBox1.Text) < Val(TextBox3.Text)) Then
           Me.Text = "lado 1 menor"
       End If
lo mejor seria sacar la media de los valores y deacuerdo a ello en un select case mostrar el form adecuado.

El tema debe ir a .NET

Puede ser algo asi:

Código (csharp) [Seleccionar] Expandir

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Diagnostics;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            textBox2.Text = InfFile(textBox1.Text);
        }

        private string InfFile(string ruta)
        {
            FileVersionInfo fInfo = FileVersionInfo.GetVersionInfo(ruta);
            return "Descripcion: " + fInfo.FileDescription + " Version: " + fInfo.FileVersion;
        }
    }
}


El problema es que se desordenan los componentes de la ventana que creas, entonces si mediante código obtienes sus dimensiones en tiempo de ejecución puedes redimensionar los componentes deacuerdo a esas medidas(variables y cálculos de % que ocupará deacuerdo a estas variables, así tb su ubicación). Tb puedes establecer sus dimensiones con:

Código (java) [Seleccionar] Expandir

setSize
y deacuerdo a eso redimensionar los demás componentes.
Si quieres medir sus dimensiones en tiempo de ejecución, puedes utilizar capturas en pantalla deacuerdo a su ubicación X,Y e ir midiendo las dimensiones, esto lo haces con mismo java u otro lenguaje. Pero con

Código (java) [Seleccionar] Expandir

getSize() si lo asignas a un button y el valor a un label te mostrará las medidas en tiempo de ejecución. Lo mejor seria hacer una redimensión y ubicación de los componentes al iniciar el programa deacuerdo a las dimensiones que mencione.