Page 1 sur 1

Recherche Code : lecture fichier

MessagePublié: 03 Juin 2003 à 12:58
par Eddie
Bonjour,Je recherche un code qui va me permettre de lire directement les données d'un fichier attaché dans un document.(txt) !! : mon fichier n'est pas dans dans un champs texte richeVoici mon code commenté :Sub Initialize Dim s As New notessession Dim db As notesdatabase Dim docxls As notesdocument Dim nextdocxls As notesdocument Dim vuexls As notesview Dim vFile As Variant Dim inputAttachment As NotesEmbeddedObject Set db = s.currentdatabase ' --- Vue qui contient les Documents à traiter ----- Set vuexls = db.Getview("VDOCXLS") If vuexls Is Nothing Then Print "vue contenat les docs excel absente .." Exit Sub End If Set docxls = vuexls.GetFirstDocument While Not(docxls Is Nothing) Set nextdocxls = vuexls.GetNextDocument(docxls) 'Le doc est traité donc change de vue ... 'docxls.traite = "1" Set vFile = docxls.GetFirstItem("$File") sFileName = vFile.Values(0) Set inputAttachment = docxls.GetAttachment(sFileName) 'Test pour savoir si le doc contient un fichier !!! If docxls.HasEmbedded Then Messagebox _ ( "Doc contains an object, link, or attachment" ) Else Messagebox _ ( "Doc has no objects, links, or attachments" ) End If Set docxls = nextdocxls Wend End Sub

Re: Recherche Code : lecture fichier

MessagePublié: 03 Juin 2003 à 13:42
par Eddie
Il n'y a personne pour m'aider ????

Re: Recherche Code : lecture fichier

MessagePublié: 03 Juin 2003 à 15:20
par prob
avec LS, tu peux lire un fichier texte brut, un fichier texte tabulé, ou un fichier binaire. pas d'autres options.alors, comment vas-tu lire tes infos excel ?

Re: Recherche Code : lecture fichier

MessagePublié: 03 Juin 2003 à 16:15
par Eddie
Il s'agit bien d'un fichier TXT qui est en piece jointeEt je veux simplement le lire en agent de nuit pour avoir une trace sur les logs de mon serveur domino (qui en plus se trouve sur AS400 ...)

Re: Recherche Code : lecture fichier

MessagePublié: 04 Juin 2003 à 12:59
par le saint
Voila un exemple de lecture simple de fichier texteOpen "c:\adalia.txt" For Input As fileNum% Do Until Eof(1) Line Input #1, text$ cl = Mid(text$,1,5) ad = Mid(text$,7,7) LoopClose fileNum%Je ne sais si cela peut répondre à tes attentes ...A+

Re: Recherche Code : lecture fichier

MessagePublié: 04 Juin 2003 à 13:24
par Eddie
Merci, mais ce n'est pas exactement cela : Je veux lire mon fichier qui se trouve dans un masque (Donc en piece jointe). Car mon Serveur domino est sur un AS400 et si je le detache mon fichier devient ilisible ...Il me faudrait le code pour lire un fichier rattachés à un doc notes ...