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


Tema destacado: Estamos en la red social de Mastodon


  Mostrar Mensajes
Páginas: 1 ... 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 [18] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 ... 159
171  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda para el manejo de archivos[Solucuionado] 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...
172  Programación / .NET (C#, VB.NET, ASP) / Re: Borrar texto de un textbox en: 30 Enero 2012, 20:09 pm
Hay muchas formas dependiendo de los que quieras exactamente, las siguientes son instrucciones en el tipo String:

Podría ser con .Remove

Código
  1. "Mi Carro Es Verde".Remove(0, 9)

Dejaría solamente "Es Verde"

El primer parámetro es el Index de inicio y el segundo la cantidad a borrar.

.Replace

Código
  1. "Mi Carro Es Verde".Replace("Carro", "Casa")

Esto dejaría "Mi Casa Es Verde"

El primer parámetro es la palabra a buscar y el segundo la de reemplazo.

ja justo eso necesito para mi programa de archivos xd gracias, haber si funciona con una lista
173  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda para el manejo de archivos... 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.  

174  Programación / .NET (C#, VB.NET, ASP) / 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...
175  Comunicaciones / Redes / Re: Ayuda con marcas de cámaras IP en: 25 Enero 2012, 19:24 pm
depende para que la quieras, las que yo e usado y funcionan muy bien son HIKVISION, SYSCOM Y EPCOM.

pásate por aquí

http://syscomcctv.com/?page_id=384
176  Media / Juegos y Consolas / Re: como que se calienta tanto al jugar a juegos? en: 25 Enero 2012, 19:16 pm
si vas a jugar en ella te recomiendo que le pongas una buena base enfriadora, es normal que se caliente  a si...
177  Foros Generales / Dudas Generales / Re: Que es mejor Win7 o Ubuntu? en: 13 Enero 2012, 16:35 pm
Citar
¿QUE WINDOWS 7 VA MÁS RÁPIDO QUE WINDOWS XP?, LOL!, ¿NO TENDRÁ ALGO QUE VER QUE WINDOWS 7 NECESITE 1GB MÍNIMO PARA ARRANCAR Y QUE SI QUIERES QUE TARDE MENOS DE 10 MINUTOS EN ABRIR UNA CARPETA NECESITAS 3-4GB.

primero no grites, y en segundo lugar yo uso w7 con 1 GB de ram y me abre las carpetas en menos de 1 segundo, se nota que nunca lo as utilizado...
178  Comunicaciones / Redes / Re: Es justo que los ISP limiten el acceso al router? en: 12 Enero 2012, 18:21 pm
pues acá en mi país el módem/router que te dan es libre de usarlo para lo que tu quieras porque es tuyo automaticamente al contratar la linea y el Internet, osea el único limite que tienes es el aparato mismo dependiendo del modelo que sea, puedes abrir puertos, cambiar dns, etc...

179  Sistemas Operativos / Windows / Re: [APORTE] Mega-Pack de "tips" para Windows 7 x64. en: 12 Enero 2012, 18:16 pm
esta interesante lo bajare.. son códigos tuyos?
180  Sistemas Operativos / GNU/Linux / Re: Que linux me recomiendan? en: 12 Enero 2012, 17:51 pm
ami el que mas me gusta es slackware...
Páginas: 1 ... 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 [18] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 ... 159
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines