 Autor
|
Tema: Extraer el texto de un *.txt (Leído 3,807 veces)
|
vivachapas
 Desconectado
Mensajes: 612
|
HOLA QUISIERA SABER COMO PUEDO HACER Q EL TEXTO DE UN ARCHIVO *.txt ME aparezca EN UNA LABEL SUPONIENDO Q EL ARCHIVO ESTA EN EL ESCRITORIO Y SE LLAMA jaja.txt Y LA LABEL SEA LA LABEL1
DESDE YA MUCHAS GRACIAS
|
|
|
|
|
En línea
|
|
|
|
|
~~
|
esto es muy basico, lee algun manual, de todas maneras te lo digo... Dim h As String
Private Sub Command1_Click()
Open "C:\jaja.txt" For Binary As #1
h = Space(LOF(1))
Get #1, , h
Close #1
Label1.Caption = h
End Sub
|
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
esto es muy basico, lee algun manual, de todas maneras te lo digo... Dim h As String
Private Sub Command1_Click()
Open "C:\jaja.txt" For Binary As #1
h = Space(LOF(1))
Get #1, , h
Close #1
Label1.Caption = h
End Sub ok muchas gracias
|
|
|
|
|
En línea
|
|
|
|
Belem
Desconectado
Mensajes: 205
|
mira otra forma xD Private Sub Form_Load()
' va a funcionar si es un txt, no otra extensión
Dim fs, ws, desktop_, myFile, fo, b 'las vars que se usan
' si se supone que esta en el escritorio lo buscamos
Set ws = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FilesystemObject")
desktop_ = ws.specialfolders("Desktop")
' creamos una var con el nombre completo del file
myFile = fs.getfile(desktop_ & "\jaja.txt")
' lo abrimos
Set fo = fs.openTextFile(myFile)
' lo leemos
b = fo.readall
' ponemos el contenido en el label
Label1.Caption = b
' Saludetes...
End Sub
|
|
|
|
|
En línea
|
[ *BELEM * ]
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
OK MUCHAS GRACIAS!... PERO OTRA PREGUNTA... PARA ENTENDER COMO FUNCIONA EL CODIGO... NO ENTIENDO PARA Q SIRVEN ESTOS TRES RENGLONES
Set ws = CreateObject("Wscript.Shell")
Set fs = CreateObject("Scripting.FilesystemObject")
desktop_ = ws.specialfolders("Desktop")
POR FAVOR TE AGRADECERIA SI ME LO ESPLICAS...
Y PROBANDO EL PRIMER CODIGO Q ME PASO EON... ME FUNCIONA BIEN... PERO EN EL PROGRAMA TENGO Q ABRIR VARIOS ARCHIVOS (20) Y COPIAR EL TEXTO A 20 TEXT DISITNOS PERO CUANDO USO ESE CODIGO SE ME COPIA EL TEXTO DEL PRIMERO (nom1) A TODOS LOS TEXT Y DESPUES ME PONE 2 RAYITAS
YO LE CAMBIE:
Private Sub Command1_Click()
Open "C:\jaja.txt" For Binary As #1 (EL NOMBRE DEL ARCHIVO Y EL NUMERO #1 A #2 Y ASI SUSESIVAMENTE)
h = Space(LOF(1)) (PUSE TODAS VARIALBES DISTINTAS Y CAMBIE EL 1 POR 2, 3, 4...)
Get #1, , h (PUSE LA MISMA VARIABLE Q PONIA ANTES Y EN LUGAR DEL #1 PONIA #Y EL NUMERO Q LE )CORRESPONDIA
Close #1 (TB CAMBIO EL NUMERO COMO ANTES)
POR FAVOR SI ME PODES DECIR EN Q ME ESTOY EQUIVOCANDO O CUAL PUEDE SER EL ERROR TE LO AGRADECERIA....
|
|
|
|
« Última modificación: 12 Octubre 2006, 19:49 pm por vivachapas »
|
En línea
|
|
|
|
ka0s
Desconectado
Mensajes: 308
|
Otra forma, la más clásica y sencilla es esta: Option Explicit
Private Sub Form_Load()
Dim renglon As String
Open "C:\tuarchivo.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, renglon
Label1.Caption = Label1.Caption + renglon
Loop
Close #1
End Sub
Espero que te haya servido... Salu2! |
|
|
|
|
En línea
|
|
|
|
satanico88
Desconectado
Mensajes: 43
|
No Interprete tu Idea de lo q Kieres Hacer.. xD
pero x si te ayuda..
Con Esto Avres Cualkier Archivo..( Lo Avrira en Formato Texto )
Private Sub Avrir_Click()
On Error Resume Next
Open ("Archivo.Ext") For Input As #1
Text2.Text = Input$(LOF(1), 1)
Close #1
End Sub
Y Con Esto Guardas Algun Contenido en Algun Archivo..
Los Datos Se Guardan En Formato Texto.. y el Archivo Si no Existe Lo Crea.. si Existe Agrega el Texto..
Private Sub Guardar_Click()
Open ("Archivo") For Append As #2
Print #2, "Q Onda?!"
Close #2
End Sub
( fijate q el primero dice as #1 y el otro as #2
es xq sake el Codigo de un proyecto mio y x cada archivo va un #x
si keres avrir otro archivo mas seria #3 )
Weno Chau xD
|
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
GRACIAS A LA EXPLICACION... PERO SIGO TENIENDO EL MISMO PROBLEMA: YO GUARDO TODOS LOS ARCHIVOS .TXT EN LA CARPETA XEROX (SON 20 ARCHIVOS EN TOTAL) 10 SE LLAMAN nom1, nom2, nom3... Y OTROS 10 con1, con2, con3... LOS CODIGOS Q USE PARA GUARDAR LOS ARCHIVOS SON: Private Sub gua_Click() Open "C:\Archivos de programa\xerox\nom1.txt" For Append As #1 Print #1, nom1 Close #1 Open "C:\Archivos de programa\xerox\con1.txt" For Append As #2 Print #2, con1 Close #2 Open "C:\Archivos de programa\xerox\nom2.txt" For Append As #3 Print #3, nom2 Close #3 LOS TEXT(X) IMPARES CONTIENEN LA VARIABLE nom(x) Y LOS PARES con(x) PARA ABRIR EL ARCHIVO USE EL SIGUIENTE CODIGO: Open "C:\Archivos de programa\xerox\nom1.txt" For Binary As #21 nom1 = Space(LOF(21)) Get #21, , nom1 Close #21 Text1.Text = nom1 Open "C:\Archivos de programa\xerox\con1.txt" For Binary As #21 con1 = Space(LOF(21)) Get #21, , con1 Close #21 Text1.Text = con1 Open "C:\Archivos de programa\xerox\nom2.txt" For Binary As #22 nom2 = Space(LOF(22)) Get #22, , nom2 Close #22 Text3.Text = nom2 Y ME PONE EN TODOS LOS TEXT LO MISMO (EL TEXTO Q TENDRIA Q APARECER SOLAMENTE EN EL TEXT1 SEGUIDO DE DOS RAYITAS)... TRATANDO DE PONER LAS DOR RAYITAS ACA, (PARA Q VEAN Q PUEDE SER) EN VES DE PONERSE SE BAJA UN REGLON COMO SI HUBIESE TOCADO EL ENTER ESPERO Q ME HALLAN ENTENDIDO Y ME SEPAN EXPLICAR MUCHAS GRACIAS  |
|
|
|
|
En línea
|
|
|
|
<--v1c1ous-->
Desconectado
Mensajes: 776
¡Operadora! ¡Deme el número para el 911! - Homero
|
Sinceramente no, no te entendi. Asi lo podes leer y escribir dejando un "Enter" de por medio sin usar APPEND:'leyendo
Dim Buff1 as String
Open FILE1 For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1
'Escribiendo
Dim Buff2 as String
Buff2 = "Texto nuevo guardado"
Open FILE2 For Binary Access Write As #2
Put #2, , Buff & vbCrLf
Put #2, , Buff2
Close #2 Asi te quedaria:Texto que ya estaba escrito
'Espacio "enter"
Texto nuevo guardado |
|
|
|
|
En línea
|
|
|
|
satanico88
Desconectado
Mensajes: 43
|
Yo Tmp Te Entendi lo q Keres Hacer..
Aver Si Lo Podrias Explicar mas Facil..
Tenes 20 TextBox en Tu Programa..
Keres Guardar El Contenido de los 20 TextBox en 20 Archivos Separados
y Luego Keres Avrir los 20 TXT cada uno en un TextBox Diferente ?
Eso es Muy Facil xD no se cual es el Problema..
Explicate mejor
( las 2 Rayitas q te aparecen q vos decis q las pegas aca y te pone una Nueva Linea como si apretaras ester es un Caracter q weno como te abras dado cuenta es como si apretaras enter.. se usa para x ejemplo.. nose.. en el MSN Vos keres q Tu Nick Kede asi :
Este
Es
Mi
Nick
En Lugar de
Este es mi Nick..
entonces vos vas a Conf.. Y te Pones de Nick
Este // Es // Mi // Nick
( donde // serian las 2 cosas q te aparecen a vos q ahora no recuerdo con q boton se hacian... )
VB No Interpreta ese Caracter como una Nueva Linea x eso es q en lugar de Dejar un Espacio.. te pone el Caracter..
espero q te ayude chau
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
|
Ayuda - Extraer un texto de un .txt [Batch]
Scripting
|
eXoRTH
|
4
|
5,663
|
13 Noviembre 2011, 21:45 pm
por eXoRTH
|
|
|
|
Extraer trozos de una cadena de texto en C
Programación C/C++
|
davidnew
|
8
|
30,294
|
10 Abril 2012, 15:57 pm
por Synth3tik0
|
|
|
|
Extraer texto de html en bat ?
Scripting
|
novato04
|
2
|
3,067
|
26 Agosto 2014, 12:15 pm
por Eleкtro
|
|
|
|
Ayuda extraer texto de una web
.NET (C#, VB.NET, ASP)
|
error404x
|
1
|
2,434
|
19 Junio 2015, 03:51 am
por Eleкtro
|
|
|
|
Extraer texto de una web
Dudas Generales
|
pills
|
1
|
3,188
|
21 Junio 2015, 21:29 pm
por Eleкtro
|
 |
