 Autor
|
Tema: Ayuda en visual basic 6.0 quiero saber como abrir un bloc de notas... (Leído 10,461 veces)
|
NightMore
 Desconectado
Mensajes: 27
|
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
|
' http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm#line-input Dim mivariable As String Open "c:\nombres.txt" For Input As #1 While Not EOF(1) Line Input #1, mivariable Wend Close #1
|
|
|
|
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
|
|
avmiitxe
Desconectado
Mensajes: 122
|
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
Mensajes: 27
|
¬¬.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
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
¬¬.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: Dim Int_FF% Dim ArrByt_vData() As Byte ' // Opcion 1 Dim ArrStr_vData$ ' // Opcion 2 Const StrC_Dir$ = "C:\Archivot.txt" 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
Dulces Lunas!¡.
|
|
|
|
« Última modificación: 25 Noviembre 2010, 19:05 pm por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Dessa
Desconectado
Mensajes: 624
|
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 InputBueno, aparte de esto Binary-Space(LOF) es mas rápido, por lo menos que Input(LOF) y Line Input
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 pm por Dessa »
|
En línea
|
Adrian Desanti
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
@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... Get Int_FF%, 1, ArrByt_vData ' // Opcion 1 Get Int_FF%, 1, ArrStr_vData$ ' // Opcion 2
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Dessa
Desconectado
Mensajes: 624
|
Editado, gracias BlackZeroX▓▓▒▒░░
|
|
|
|
|
En línea
|
Adrian Desanti
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
como imprimir un bloc de notas
Programación Visual Basic
|
al0ns0
|
0
|
3,796
|
21 Febrero 2006, 10:35 am
por al0ns0
|
|
|
|
[Ayuda] Guardar textbox.text en bloc de notas
.NET (C#, VB.NET, ASP)
|
S_M_A_C_K
|
2
|
4,246
|
1 Noviembre 2012, 16:33 pm
por S_M_A_C_K
|
|
|
|
Ayuda en un programa del bloc de notas
Programación C/C++
|
Juan821
|
2
|
2,814
|
26 Junio 2014, 02:02 am
por Flakito81
|
|
|
|
Ayuda para salida en bloc de notas
Programación C/C++
|
jucie
|
2
|
4,637
|
18 Abril 2015, 22:41 pm
por jucie
|
|
|
|
abrir archivo de texto con bloc de notas hecho en java
Java
|
JenselG
|
1
|
2,897
|
6 Mayo 2018, 13:56 pm
por ivancea96
|
 |
