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


 


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo, raul338)
| | |-+  Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...  (Leído 4,213 veces)
NightMore

Desconectado Desconectado

Mensajes: 27



Ver Perfil
Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« en: 25 Noviembre 2010, 15:33 »

Hola.quisiera saber como abrir un bloc de notas y leerlo en una caja de texto en visual basic 6.0.Alo que me refiero es que lo que tiene escrito el bloc de notas se pueda leer en una caja de texto.Gracias


En línea

No uses la programacion contra el mal no cometas pecados,con programacion.Usa la programacion con sabiduria y dios te dara una mano.

Que dios los vendiga a todos
Shell Root


Desconectado Desconectado

Mensajes: 3.438


Unlock Love :3


Ver Perfil WWW
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #1 en: 25 Noviembre 2010, 15:44 »

Código
  1. ' http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#line-input
  2.  Dim mivariable As String
  3.  Open "c:\nombres.txt" For Input As #1
  4.    While Not EOF(1)
  5.      Line Input #1, mivariable
  6.    Wend
  7.  Close #1



En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.086



Ver Perfil WWW
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #2 en: 25 Noviembre 2010, 16:55 »

Pero porque hay tanta alérgia a Google ?  :-(

http://goo.gl/PPGC5

DoEvents! :P
En línea

avmiitxe

Desconectado Desconectado

Mensajes: 122


Ver Perfil
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #3 en: 25 Noviembre 2010, 17:39 »

Hola.quisiera saber como abrir un bloc de notas y leerlo en una caja de texto en visual basic 6.0.Alo que me refiero es que lo que tiene escrito el bloc de notas se pueda leer en una caja de texto.Gracias

No le ayuden, mira si recien empiezas con la programacion apreende un poco mas y no pongas estas preguntas tontas
En línea

NightMore

Desconectado Desconectado

Mensajes: 27



Ver Perfil
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #4 en: 25 Noviembre 2010, 18:18 »

¬¬.No enpieso a programar recien.se muchas cosas solo esto es una duda.Su pongo que vos tampoco sabes tanto porque tenes 41 post.para los que saben mucho de programacion contestan casi todos los post eso quiere decir que sabe mucho ^^ no soy professional..pero algo se
En línea

No uses la programacion contra el mal no cometas pecados,con programacion.Usa la programacion con sabiduria y dios te dara una mano.

Que dios los vendiga a todos
BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.182


I'Love...!¡.


Ver Perfil WWW
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #5 en: 25 Noviembre 2010, 19:00 »

¬¬.No enpieso a programar recien.se muchas cosas solo esto es una duda.Su pongo que vos tampoco sabes tanto porque tenes 41 post.para los que saben mucho de programacion contestan casi todos los post eso quiere decir que sabe mucho ^^ no soy professional..pero algo se

Los Post no implican lo que sabes. apoco a la respuesta de Mr. Frogs, igual aquí mas manuales pegados en las ligas principales!¡.

Esta seía la forma en la que lo haria:

Código
  1.  
  2. Dim Int_FF%
  3. Dim ArrByt_vData()                      As Byte             ' // Opcion 1
  4. Dim ArrStr_vData$                                           ' // Opcion 2
  5. Const StrC_Dir$ = "C:\Archivot.txt"
  6.    If Dir(StrC_Dir, vbArchive) <> "" Then                  ' // Existe el archivo?.
  7.        Int_FF% = FreeFile                                  ' // Obtenemos un nuevo registro libre para su lectura.
  8.        Open StrC_Dir For Binary As Int_FF%                 ' // Me gusta mas la forma Binaria xd por que asi puedo controlar a mi gusto el archivo.
  9.            If LOF(Int_FF) > 0 Then
  10.                ReDim ArrByt_vData(0 To LOF(Int_FF%) - 1)   ' // Opcion 1
  11.                ArrStr_vData$ = Space(LOF(Int_FF%))         ' // Opcion 2
  12.                Get Int_FF%, 1, ArrByt_vData                ' // Opcion 1
  13.                Get Int_FF%, 1, ArrStr_vData$               ' // Opcion 2
  14.            End If
  15.        Close Int_FF%                                       ' // Cerrar Registro
  16.    End If
  17.  
  18.  

Dulces Lunas!¡.
« Última modificación: 25 Noviembre 2010, 19:05 por BlackZeroX▓▓▒▒░░ » En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
Dessa


Desconectado Desconectado

Mensajes: 623



Ver Perfil
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #6 en: 25 Noviembre 2010, 22:38 »


Me gusta mas la forma Binaria xd por que asi puedo controlar a mi gusto el archivo.



Bueno, aparte de esto tambien parece mas rápida, por lo menos que Input(LOF) y Line Input

Bueno, aparte de esto Binary-Space(LOF) es mas rápido, por lo menos que Input(LOF) y Line Input




Código:

Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Function ArrStr_vData(StrC_Dir As String) As String

Dim Int_FF%
'Dim ArrByt_vData()                      As Byte             ' // Opcion 1
  
   If Dir(StrC_Dir, vbArchive) <> "" Then                  ' // Existe el archivo?.
       Int_FF% = FreeFile                                  ' // Obtenemos un nuevo registro libre para su lectura.
       Open StrC_Dir For Binary As Int_FF%                 ' // Me gusta mas la forma Binaria xd por que asi puedo controlar a mi gusto el archivo.
           If LOF(Int_FF) > 0 Then
               'ReDim ArrByt_vData(0 To LOF(Int_FF%) - 1)   ' // Opcion 1
               ArrStr_vData$ = Space(LOF(Int_FF%))         ' // Opcion 2
               'Get Int_FF%, 1, ArrByt_vData                ' // Opcion 1
               Get Int_FF%, 1, ArrStr_vData$               ' // Opcion 2
           End If
       Close Int_FF%                                       ' // Cerrar Registro
   End If
End Function

Function Input_LOF(StrC_Dir As String) As String
  
  If Dir(StrC_Dir, vbArchive) <> "" Then
    Open StrC_Dir For Input As #1
       If LOF(1) > 0 Then
         Input_LOF = Input(LOF(1), #1)
       End If
     Close #1
   End If

End Function

Function Line_Input(StrC_Dir As String) As String
  
  Dim linea As String
  If Dir(StrC_Dir, vbArchive) <> "" Then
    Open StrC_Dir For Input As #1
       If LOF(1) > 0 Then
         While Not EOF(1)
           Line Input #1, linea
           Line_Input = Line_Input & linea & vbNewLine
         Wend
        End If
     Close #1
   End If

End Function

Private Sub Form_Load()

Dim t As Long
Dim x As Long

Open "C:\Archivot.txt" For Output As #1
  For x = 1 To 150
    Print #1, "LINEA" & vbTab & x
  Next
Close #1


'---------------------------------------------------------------

t = GetTickCount

For x = 1 To 10000
  Call ArrStr_vData("C:\Archivot.txt")
Next

t = GetTickCount - t

MsgBox ArrStr_vData("C:\Archivot.txt"), , "ArrStr_vData   " & t

'---------------------------------------------------------------

t = GetTickCount

For x = 1 To 10000
  Call Input_LOF("C:\Archivot.txt")
Next

t = GetTickCount - t

MsgBox Input_LOF("C:\Archivot.txt"), , "Input_LOF   " & t

'---------------------------------------------------------------

t = GetTickCount

For x = 1 To 10000
  Call Line_Input("C:\Archivot.txt")
Next

t = GetTickCount - t

MsgBox Line_Input("C:\Archivot.txt"), , "Line_Input   " & t

'---------------------------------------------------------------

End Sub





« Última modificación: 28 Noviembre 2010, 13:33 por Dessa » En línea

Adrian Desanti
BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.182


I'Love...!¡.


Ver Perfil WWW
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #7 en: 26 Noviembre 2010, 20:51 »

@Dessa si quieres medir la velocidad del codigo que deje debes eligir si deseas el String o el array de bytes...
Por eso le puse Opción 1 y Opción 2.., yo eligiria el Array de bytes por cuestiones de memoria...

Código
  1.               Get Int_FF%, 1, ArrByt_vData                ' // Opcion 1
  2.               Get Int_FF%, 1, ArrStr_vData$               ' // Opcion 2
  3.  
En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
Dessa


Desconectado Desconectado

Mensajes: 623



Ver Perfil
Re: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas...
« Respuesta #8 en: 26 Noviembre 2010, 22:34 »

Editado, gracias BlackZeroX▓▓▒▒░░



En línea

Adrian Desanti
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Artículo interesante sobre abrir el bloc de notas con el IExplorer......
Seguridad
el-brujo 1 745 Último mensaje 20 Agosto 2003, 04:10
por Gral. AnSaLoN
no puedo abrir el bloc de notas por un troyano
Seguridad
sontk 5 1,952 Último mensaje 7 Septiembre 2004, 13:22
por Griph
como imprimir un bloc de notas
Programación Visual Basic
al0ns0 0 2,000 Último mensaje 21 Febrero 2006, 10:35
por al0ns0
Como agregar texto a cada linea en el bloc de notas
Windows
rockeropasiempre 3 3,792 Último mensaje 13 Marzo 2010, 13:29
por rockeropasiempre
[Ayuda] Guardar textbox.text en bloc de notas
.NET
S_M_A_C_K 2 625 Último mensaje 1 Noviembre 2012, 16:33
por S_M_A_C_K
Powered by SMF 1.1.19 | SMF © 2006-2008, Simple Machines