Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: chacKos en 11 Marzo 2010, 22:36 pm



Título: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: chacKos en 11 Marzo 2010, 22:36 pm
Hola! Estoy en una aplicación en la que he puesto esta línea, Imports System.Windows.Forms.Keys, ya que necesito trabajar con las teclas, y en el código necesito utilizar Space(LOF(1)) para trabajar con ficheros. El problema es el siguiente, al tener hecho el Imports, el Space lo toma como si fuera una tecla, pero yo quiero utilizar la función de Space(LOF(1)) sin que me afecte lo otro. Cómo se puede solucionar?

Gracias.


Título: Re: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: raul338 en 11 Marzo 2010, 23:41 pm
Estoy desde el mobil así que no puedo escribir tan bien formateado xD. Tú problema es que usas funciones que vienen de  la versión 6 y son obsoletas. Usa string.padleft(lof(1)) y para los archivos usa streams. Quedaría x ejemplo: string.padleft(streamreader.length) espero que te sirva


Título: Re: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: chacKos en 12 Marzo 2010, 16:42 pm
Eso no me lo reconoce!


Título: Re: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: raul338 en 12 Marzo 2010, 17:50 pm
Para usar los streams debes importar System.IO


Título: Re: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: chacKos en 12 Marzo 2010, 17:57 pm
Sigo sin entenderlo, a ver yo tengo un fichero,
Código:
FileOpen(1, Application.StartupPath & "\file.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
file= Space(LOF(1))
FileGet(1, file)
FileClose(1)
Cómo sería el código en vb.net?


Título: Re: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: raul338 en 12 Marzo 2010, 18:26 pm
Código
  1. Imports System.IO
  2.  
  3. Public Function LeerArchivos(ByVal archivo as String) As String
  4.    Dim sr As StreamReader = File.OpenText(archivo)
  5.    Dim contenido = sr.ReadToEnd();
  6.    sr.Close()
  7.    return contenido
  8.  

y para usarlo:
Código
  1. TextBox1.Text = LeerArchivo(Application.StartUpPath & "\archivo.txt")
  2.  

Eso para leer archivos de texto, para archivos binarios no cambia mucho


Título: Re: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: chacKos en 13 Marzo 2010, 12:46 pm
Que va sigo sin entenderlo, no veo como abrirlo en binario ni como agregarle LOF(1)


Título: Re: Problema con System.Windows.Forms.Keys y Space(LOF(1))
Publicado por: chacKos en 14 Marzo 2010, 13:13 pm
Bueno ya lo he conseguido. Queda de esta forma:

Código:
Dim file As String
file= file.PadLeft(LOF(1))