elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda para el manejo de archivos[Solucuionado]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda para el manejo de archivos[Solucuionado]  (Leído 3,674 veces)
Sk9ITk5Z


Desconectado Desconectado

Mensajes: 2.306



Ver Perfil WWW
Ayuda para el manejo de archivos[Solucuionado]
« en: 27 Enero 2012, 16:28 pm »

Tengo una carpeta con archivos .mp4, son capítulos de un anime, el detalle es que el titulo de cada capitulo dice "nombre del anime + capitulo 00x + el nombre del capitulo + la pagina de donde se descargo" osea que esta larguísimo el nombre y lo que quiero es hacer un programita para eliminar partes del titulo para que no este tan largo.
mi idea es hacer un formulario con dos botones uno de examinar para elegir la carpeta con los archivos y el otro de borrar para que elimine lo que yo quiera y un textbox donde le voy a decir que es lo que quiero borrar de cada archivo.

por ejemplo decirle quiero que me elimines www.pagina.com ya que todos los archivos traen esa pagina me ara lo mismo para todos.


me pueden orientar un poco de como hacerlo, que clases o librerías usar...


« Última modificación: 31 Enero 2012, 17:20 pm por Sk9ITk5Z » En línea

Este es un pueblo de corazón extraviado, no quiere conocer mis caminos por eso no entraran en mi descanso.
Maurice_Lupin


Desconectado Desconectado

Mensajes: 356

GPS


Ver Perfil WWW
Re: Ayuda para el manejo de archivos...
« Respuesta #1 en: 27 Enero 2012, 19:49 pm »

busca funciones para renombrar archivos y lo demas ya depende de ti, podrias listas primero los archivos, captar los nombres y con un simple replace

http://www.recursosvisualbasic.com.ar/htm/vb-net/3-ejemplos-con-archivos-en-vb-net.htm

ejm
Código:
ruta2 = ruta1
ruta2 = ruta2.replace("www.pagina.com ","")

 ya sólo te quedaria renombrar

FileSystem.RenameFile(ruta1, ruta2)

O lo podrias hacer manualmente  ;D



En línea

Un error se comete al equivocarse.
Sk9ITk5Z


Desconectado Desconectado

Mensajes: 2.306



Ver Perfil WWW
Re: Ayuda para el manejo de archivos...
« Respuesta #2 en: 27 Enero 2012, 20:43 pm »

ok gracias por el dato, lo checo...

EDITO:

hasta ahorita ya me funciona el botón de examinar que es para indicarle al programa donde están los archivos a manejar, la ruta la guardo en un textbox y la lista de los archivos.

boton examinar
Código
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.  
  3. Dim ContadorDeArchivos As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
  4.        Dim resultado As System.Windows.Forms.OpenFileDialog
  5.        resultado = New System.Windows.Forms.OpenFileDialog()
  6.  
  7.        resultado.ShowDialog()
  8.        'obtenemos la ruta de los archivos y la guardamos en un textbox
  9.        TextBox2.Text = IO.Path.GetDirectoryName(resultado.FileName)
  10.  
  11.        'le indicamos el path que queremos  
  12.        ContadorDeArchivos = My.Computer.FileSystem.GetFiles(TextBox2.Text)
  13.        'nos devuelve la cantidad de archivos  
  14.        TextBox3.Text = CStr(ContadorDeArchivos.Count)
  15.  
  16.  
  17.        For i = 0 To TextBox3.Text - 1
  18.            ListBox1.Items.Add(ContadorDeArchivos.Item(i))
  19.        Next
  20.  
  21.    End Sub
  22.  
  23.  
  24.  
  25.  

« Última modificación: 28 Enero 2012, 18:38 pm por Sk9ITk5Z » En línea

Este es un pueblo de corazón extraviado, no quiere conocer mis caminos por eso no entraran en mi descanso.
Sk9ITk5Z


Desconectado Desconectado

Mensajes: 2.306



Ver Perfil WWW
Re: Ayuda para el manejo de archivos[Solucuionado]
« Respuesta #3 en: 31 Enero 2012, 17:27 pm »

Pues ya termine el programita me quedo a si:



primero se usa el botón examinar para indicarle donde se encuentras los archivos a trabajar y también en un textbox pongo  la cantidad de archivos que son y en una lista el nombre de los archivos.

Código
  1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  2.        Dim resultado As System.Windows.Forms.OpenFileDialog
  3.        resultado = New System.Windows.Forms.OpenFileDialog()
  4.        Dim cadena As String
  5.        Dim a As Integer
  6.        Dim Archivo As String
  7.  
  8.        resultado.ShowDialog()
  9.        'obtenemos la ruta de los archivos y la guardamos en un textbox
  10.        TextBox2.Text = IO.Path.GetDirectoryName(resultado.FileName)
  11.  
  12.        'le indicamos el path que queremos y lo garda en un textbox
  13.        ContadorDeArchivos = My.Computer.FileSystem.GetFiles(TextBox2.Text, FileIO.SearchOption.SearchAllSubDirectories)
  14.        'nos devuelve la cantidad de archivosy los muestra en un textbox
  15.        TextBox3.Text = CStr(ContadorDeArchivos.Count)
  16.  
  17.        'obtenemos solo el nombre de los archivos
  18.  
  19.        For i = 0 To TextBox3.Text - 1
  20.            cadena = ContadorDeArchivos.Item(i)
  21.            a = cadena.LastIndexOf("\")
  22.            If a <> -1 Then
  23.                Archivo = cadena.Substring(a + 1, cadena.Length - a - 1)
  24.            End If
  25.            ListBox1.Items.Add(Archivo)
  26.        Next
  27.  
  28.    End Sub
  29.  
  30.  

Luego en otro textbox le indicas la frase que quieres eliminar del nombre de los archivos y le das click en el botón eliminar que seria  a si:

Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.        Dim frase As String
  3.        i = 0
  4.  
  5.        frase = TextBox1.Text
  6.        For i = 0 To TextBox3.Text - 1
  7.            ListBox1.Items(i) = ListBox1.Items(i).replace(TextBox1.Text, "")
  8.        Next
  9.  
  10.  
  11.    End Sub
  12.  
con esto eliminas la frase que pusiste en el textbox, pero la eliminas de la lista. despues se reemplaza el nombre de la siguiente manera con el botón Reemplazar nombres:

Código
  1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2.        i = 0
  3.  
  4.  
  5.        For i = 0 To TextBox3.Text - 1
  6.  
  7.            ' Poner el nuevo nombre
  8.            My.Computer.FileSystem.RenameFile(ContadorDeArchivos.Item(i), ListBox1.Items(i))
  9.  
  10.        Next
  11.        MsgBox("Nombres cambiados correctamente")
  12.  
  13.    End Sub
  14.  


y eso es todo...
En línea

Este es un pueblo de corazón extraviado, no quiere conocer mis caminos por eso no entraran en mi descanso.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda en manejo de Archivos en Lenguaje C
Programación C/C++
theluigy13etv 3 3,827 Último mensaje 9 Diciembre 2011, 01:28 am
por rir3760
ayuda con manejo de archivos en c
Programación C/C++
tamyta_19 4 2,932 Último mensaje 24 Abril 2015, 17:03 pm
por tamyta_19
Ayuda con MANEJO DE ARCHIVOS
Programación C/C++
felixgz 1 1,954 Último mensaje 2 Marzo 2016, 23:36 pm
por carolabeatle
Ayuda con Manejo de archivos!
Programación C/C++
pedro0620 1 2,369 Último mensaje 9 Septiembre 2016, 16:02 pm
por AlbertoBSD
ayuda con manejo de archivos en vb.net 2008 « 1 2 »
.NET (C#, VB.NET, ASP)
**Aincrad** 12 8,900 Último mensaje 23 Septiembre 2017, 13:08 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines