Visualizar archivo en VB6

Gracias, pero no obtengo nada en la visualización.
En realidad, lo que quería no era mostrar el contenido de un archivo, sino mostrarlo él mismo y ver su contenido.

Además, su código funciona bien, pero especificando una zona de texto en la que se debe visualizar el contenido del archivo.

Aquí está su código al que le añadí una línea:

Dim Valeur As Variant Dim nomFichier As String Dim numFic As Integer
numFic = FreeFile
nomFichier = "C:\test1.doc"
Open nomFichier For Input Shared As #numFic
Do While Not EOF(numFic)
Input #numFic, Valeur
Text1.Text = Text1.Text & vbCrLf & Valeur
Loop
Close #numFic

Si existiera alguna manera de mostrar directamente el archivo .doc, háganmelo saber

Gracias.

Hola,

Algunas precisiones:

Abrir "NomDeFichier" en modo [AccessRestriction] [LockType] Como # número de archivo
------------------------------------------------------------------------------------------------------------------------------------------
Modo Descripción

Append Abre un archivo secuencial, empezando por el final.
Los datos se escribirán al final de los ya presentes. Si el archivo no existe, Visual Basic lo crea.

Binary Abre un archivo en acceso binario.

Input Abre un archivo secuencial en lectura, empezando por el principio.
Los datos se leen en el orden en que fueron enviados al archivo.
Si el archivo no existe, Visual Basic muestra un mensaje de error en tiempo de ejecución.

Output Abre un archivo secuencial en escritura, empezando por el principio.
Si el archivo no existe, Visual Basic lo crea. Si existe, se sobrescribe (los datos antiguos serán reemplazados).

Random Abre un archivo para lectura y escritura aleatoria.
En este modo, los datos se leen y escriben en cualquier orden.
------------------------------------------------------------------------------------------------------------------------------------------
Las restricciones de acceso:
Este argumento opcional (AccessRestriction) permite restringir la ejecución de la instrucción
Abrir a los modos de acceso Read (lectura), Write (escritura) o Read Write (lectura/escritura).
Este argumento se aplica principalmente a archivos que circulan en una red. En el acceso de
lectura (Read), solo se puede leer el archivo pero no modificarlo. El acceso de escritura
(Write) permite modificar el archivo y el acceso de lectura-escritura (Read Write) permite hacer
ambas cosas. Generalmente, los archivos que van a circular por una red ya tienen sus derechos de acceso asignados. Es el administrador de red quien los concede. Por ello
el argumento (AccessRestriction) no es obligatorio.

La bloqueo de archivos:
El otro argumento opcional, LockType, especifica las operaciones que otros procesos pueden
realizar en el archivo. También, este argumento se utiliza principalmente en aplicaciones de red.
Permite restringir el acceso al archivo a un solo usuario a la vez. LockType puede tomar
cuatro valores: Shared, Lock Read, Lock Write y Lock Read Write. El valor Shared permite
que todos los usuarios accedan simultáneamente al archivo. Lock Read bloquea el archivo, limitando la lectura a un único usuario. Lock Write hace lo mismo para la escritura.
Lock Read Write bloquea el archivo prohibiendo a todos los demás usuarios leerlo o escribir en él.

Lupin
--
~Lo esencial es invisible a los ojos~
~Sólo se ve bien con el corazón~

re:

Localiser un numéro de fichier disponible

Dans la section Modes d'accès, il y a quatre exemples différents pour l'instruction Open.
Vous avez sans doute remarqué que chaque exemple ouvre un fichier sous un numéro différent.
Vous savez également que lorsque le numéro du fichier est connu, Visual Basic n'accède plus
au fichier par son nom, mais par le numéro propre au fichier. Visual Basic, supporte l'ouverture
simultanée de plusieurs fichiers, à condition que l'on attribue à chacun des fichiers un numéro différent.
Si votre application a besoin de plusieurs fichiers, vous devez être en mesure de déterminer le prochain
numéro disponible, notamment si des fichiers sont ouverts dans une fonction qui n'a aucun moyen de
savoir si d'autres fonctions ont ouvert des fichiers. Il existe pour cela la fonction FreeFile () qui renvoie
le prochain numéro disponible. Cette fonction garantit que le numéro retourné n'est pas utilisé dans une
autre instruction. Sa syntaxe est: FreeFile ([intRangeNumber]).

L'argument "intRangeNumber" est optionnel. Il spécifie la plage dans laquelle le numéro renvoyé doit
être compris: 1 à 255 ou 256 à 511. En l'absence de cet argument, la plage par défaut est 1 à 255.
Il est très rare qu'un programme ait à ouvrir simultanément plus de 256 fichiers. C'est pourquoi cet
argument est optionnel, et, s'il n'est pas spécifié, les parenthèses sont inutiles. L'instruction suivante
vous donne un exemple d'utilisation de cette fonction: intFileNum = FreeFile

Open "MonFichier.dat" For Output As intFileNum

Ainsi, vous êtes assurés d'avoir un numéro de fichier unique. Prenez l'habitude d'affecter FreeFile à une
variable comme dans l'exemple. De cette façon, vous aurez un moyen de connaître le numéro renvoyé
par la fonction.

Regardez l'instruction suivante:
Open "MonFichier.dat" For Output As FreeFile ()

Cette instruction fonctionne, mais vous n'avez aucun moyen de connaître le numéro de fichier pour
un usage ultérieur dans votre programme. Un fichier ouvert doit nécessairement être fermé.

Lupin

--
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

hola viki
read para que sea leído; print para que se imprima (en VB..)
Pero si se trata de explotar un programa escrito en VB, te hacen falta los runtimes apropiados

No veo muy clara la sintaxis que hay que usar para la función "Read".

Gracias por aclarármelo.

Gracias por estas precisiones, pero:
Open "C:\test1.doc" For Input Read Shared As #1
me da un error de tipo "Se esperaba: As"
y cuando hago:
Open "C:\test1.doc" For Input As #1 Read Shared
me da el error: "Erro de sintaxis"

¡Ya no sé!

Muchas gracias por aclarármelo, pero cuando lo hago obtengo este mensaje de error:

Para:

Open "C:\test1.doc" For Input Read Shared As #1

El mensaje de error es: Se esperaba: As;

Y cuando hago:

 Open "C:\test1.doc" For Input As #1 Read Shared

El mensaje de error es: Error de sintaxis;

Voila lo que me parece extraño.

asunto:

2 puntos:

1.) Primer punto

Hay un error de sintaxis en la línea:

 ' Open "C:\test1.doc" For Input Read Shared As #1 

Referencia =>> Mensaje #3
El bloqueo de archivos:
El otro argumento opcional, LockType, especifica las operaciones que otros procesos pueden realizar en el archivo. Una vez más, este argumento se usa principalmente en aplicaciones de red. Permite restringir el acceso al archivo a un solo usuario a la vez. LockType puede tomar cuatro valores: Shared, Lock Read, Lock Write y Lock Read Write. El valor Shared permite a todos los usuarios acceder simultáneamente al archivo. Lock Read bloquea el archivo, limitando la lectura a un solo usuario. Lock Write hace lo mismo para la escritura. Lock Read Write bloquea el archivo prohibiendo a todos los demás usuarios leerlo o escribir en él.

Las opciones posibles son:

 Open "C:\test1.doc" For Input Shared As #1 Open "C:\test1.doc" For Input Lock Read As #1 Open "C:\test1.doc" For Input Lock Write As #1 Open "C:\test1.doc" For Input Lock Read Write As #1 

2.) Segundo punto

Referencia => Mensaje #5

Es preferible usar una variable como número de archivo.

Ejemplo:

 Private Sub cmdLire_Click() Dim Valeur As Variant Dim nomFichier As String Dim numFic As Integer numFic = FreeFile nomFichier = "C:\test1.doc" ' Open "C:\test1.doc" For Input Read Shared As #1 Open nomFichier For Input Shared As #numFic Do While Not EOF(numFic) Input #numFic, Valeur Loop Close #numFic End Sub 

¿Más claro?

Lupin

--
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

Hola de nuevo,

En realidad nunca he tenido una necesidad así, y de memoria ya no recuerdo,
recuerdo haber implantado un visor de imágenes, pero
no sé si tuve documentación al respecto. Si la encuentro,
te lo hago saber.

Si me enfrentara a esa necesidad, programaría en VB y al momento de visualizar documentos, pasaría la tarea al VBA en Word.

Lupin

--
~Lo esencial es invisible para los ojos~
~Solo con el corazón se ve bien~