Código: Seleccionar todo

' Gambas class file
'************************************
' Coder: Linkgl                     *
' Fecha: 02/01/2010                 *
' Correo: [email protected] *
' Indetectables.net                 *
'************************************
PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
'mostramos el selector de archivos
  Button5.visible = TRUE
  FileChooser1.visible = TRUE


END
PUBLIC SUB Button5_Click()
'obtenemos los archivos en lista & textbox
  FileChooser1.visible = FALSE
  Button5.visible = FALSE
  TextBox1.text = FileChooser1.value
  ListBox1.Add(FileChooser1.value)

END

PUBLIC SUB Button2_Click()
  'integers
  DIM partes AS Integer
  DIM largo AS Integer
  DIM Pcparte AS Integer
  DIM a AS Integer
  DIM i AS Integer
  'files
  DIM archivo AS File 
  DIM nuevo AS File
  'strings
  DIM autojuntar AS String
  DIM corte AS String
  DIM buffer AS String
  DIM firma AS String
  
  'obtenemos el archivo autojuntar
  archivo = OPEN Application.path &/ "autojuntar.gambas" FOR READ WATCH 
    READ #archivo, autojuntar, Lof(archivo)
  CLOSE #archivo  

  'obtenemos el contenido del archivo y lo almacenamos en buffer
  archivo = OPEN TextBox1.text FOR READ WATCH 
    READ #archivo, buffer, Lof(archivo)
  CLOSE #archivo

' obtenemos el largo, lo dividimos entre las partes para sacar los bites equivalentes
  largo = Len(buffer)
  partes = TextBox2.text
  Pcparte = largo / partes
  a = 1
  'cortamos en pedacitos dependiendo si se marco autojuntar o no...
  'despues de ochomil pruebas ya salió
  FOR i = 1 TO partes - 1
    corte = Mid$(buffer, a, Pcparte)
    IF CheckBox1.value = TRUE AND i = 1 THEN 
        nuevo = OPEN Application.path &/ "cortado.part." & i & ".gambas" FOR WRITE CREATE
        WRITE #nuevo, autojuntar, Len(autojuntar)
        WRITE #nuevo, "#LINK#"
        WRITE #nuevo, corte, Len(corte) 
        CLOSE #nuevo
    ELSE 
        nuevo = OPEN Application.path &/ "cortado.part." & i FOR WRITE CREATE
        WRITE #nuevo, corte, Len(corte)
        CLOSE #nuevo
    ENDIF 
    a = a + pcparte
  NEXT 
  corte = Mid$(buffer, a)
  nuevo = OPEN Application.path &/ "cortado.part." & partes FOR WRITE CREATE
  WRITE #nuevo, corte, Len(corte)
  CLOSE #nuevo
  'mostramos un mensaje que todo salio bien
  Message.Info("Se han creado con exito " & partes & " partes en " & Application.path)
END

PUBLIC SUB ListBox1_MouseDown()

    FileChooser1.visible = TRUE
    Button5.visible = TRUE

END


PUBLIC SUB Button4_Click()

  'juntar xD
  'qe flojera
  'variables necesarias y un array
  DIM archivo AS File
  DIM nuevo AS File
  DIM archivos AS String[]
  DIM i AS Integer
  DIM elementos AS Integer
  DIM buffer AS String

  archivos = ListBox1.List
'obtenemos los listbox en array
'extraemos los bits de todos los archivos
'y los ponemos en un archivo nuevo
  archivo = OPEN Application.path &/ "juntado" FOR WRITE CREATE 
  CLOSE #archivo
  FOR i = 0 TO archivos.Count - 1
    archivo = OPEN archivos[i] FOR READ WATCH 
      READ #archivo, buffer, Lof(archivo)
    CLOSE #archivo
    
    nuevo = OPEN Application.path &/ "juntado" FOR WRITE APPEND 
      WRITE #nuevo, buffer, Len(buffer)
    CLOSE #nuevo
  NEXT
  
  Message("Se ha creado con exito el archivo juntado")
  
END

PUBLIC SUB Button3_Click()
  'mis creditos =)
  Message.Info("Codeado por Linkgl - Indetectables.net")

END