Salut à tous,
Avec excel je souhaite récupérer certaines données d'un fichier PDF
Je lis le fichier avec
Open fileforwork For Binary As #1
Do While Not EOF(1)
Line Input #1, text1
Close #1
Jusque là tout va bien. Mon problème c'est quand il y a des caractères NUL,
ils sont supprimé et il y un saut de ligne, alors qu'il me faut la ligne
complète pour pouvoir exploiter mon texte.
Sur le site de microsoft, il parle de remplacer # par $, mais je ne vois pas
comment faire.
Si quelqu'un à une idée car là je bloque.
D'avance merci
Didier
Sub TestNBLignes() Dim Tbl() As Byte nf = "essai.txt" longueur = FileLen(nf) Open nf For Binary As #1 ReDim Tbl(1 To longueur) Get #1, 1, Tbl Close #1 For i = 1 To longueur If Tbl(i) = 13 Then n = n + 1 Next i MsgBox n End Sub
ou lire caractère par caractère avec l'instruction
x=Input(nb_caractères, #no_fichier
JB http://boisgontierjacques.free.fr/
On 6 août, 06:57, "news wanadoo" wrote:
Salut à tous, Avec excel je souhaite récupérer certaines données d'un fichier PDF Je lis le fichier avec Open fileforwork For Binary As #1 Do While Not EOF(1) Line Input #1, text1 Close #1 Jusque là tout va bien. Mon problème c'est quand il y a des caractè=
res NUL,
ils sont supprimé et il y un saut de ligne, alors qu'il me faut la lign=
e
complète pour pouvoir exploiter mon texte. Sur le site de microsoft, il parle de remplacer # par $, mais je ne vois =
pas
comment faire. Si quelqu'un à une idée car là je bloque. D'avance merci Didier
Bonjour,
Lire dans un tableau
Sub TestNBLignes()
Dim Tbl() As Byte
nf =3D "essai.txt"
longueur =3D FileLen(nf)
Open nf For Binary As #1
ReDim Tbl(1 To longueur)
Get #1, 1, Tbl
Close #1
For i =3D 1 To longueur
If Tbl(i) =3D 13 Then n =3D n + 1
Next i
MsgBox n
End Sub
ou lire caract=E8re par caract=E8re avec l'instruction
x=3DInput(nb_caract=E8res, #no_fichier
JB
http://boisgontierjacques.free.fr/
On 6 ao=FBt, 06:57, "news wanadoo" <z.d...@free.fr> wrote:
Salut =E0 tous,
Avec excel je souhaite r=E9cup=E9rer certaines donn=E9es d'un fichier PDF
Je lis le fichier avec
=A0 =A0 Open fileforwork For Binary As #1
=A0 =A0 Do While Not EOF(1)
=A0 =A0 =A0 =A0 Line Input #1, text1
=A0 =A0 Close #1
Jusque l=E0 tout va bien. Mon probl=E8me c'est quand il y a des caract=E8=
res NUL,
ils sont supprim=E9 et il y un saut de ligne, alors qu'il me faut la lign=
e
compl=E8te pour pouvoir exploiter mon texte.
Sur le site de microsoft, il parle de remplacer # par $, mais je ne vois =
pas
comment faire.
Si quelqu'un =E0 une id=E9e car l=E0 je bloque.
D'avance merci
Didier
Sub TestNBLignes() Dim Tbl() As Byte nf = "essai.txt" longueur = FileLen(nf) Open nf For Binary As #1 ReDim Tbl(1 To longueur) Get #1, 1, Tbl Close #1 For i = 1 To longueur If Tbl(i) = 13 Then n = n + 1 Next i MsgBox n End Sub
ou lire caractère par caractère avec l'instruction
x=Input(nb_caractères, #no_fichier
JB http://boisgontierjacques.free.fr/
On 6 août, 06:57, "news wanadoo" wrote:
Salut à tous, Avec excel je souhaite récupérer certaines données d'un fichier PDF Je lis le fichier avec Open fileforwork For Binary As #1 Do While Not EOF(1) Line Input #1, text1 Close #1 Jusque là tout va bien. Mon problème c'est quand il y a des caractè=
res NUL,
ils sont supprimé et il y un saut de ligne, alors qu'il me faut la lign=
e
complète pour pouvoir exploiter mon texte. Sur le site de microsoft, il parle de remplacer # par $, mais je ne vois =
pas
comment faire. Si quelqu'un à une idée car là je bloque. D'avance merci Didier
Frédéric Sigonneau
C'est un travail qui pourrait convenir au couple Split et Join :
Sub essai() Dim Fichier$, S$, fso Fichier = "Nom et chemin du fichier à traiter" Set fso = CreateObject("Scripting.FileSystemObject") S = fso.OpenTextFile(Fichier, 1).readall S = Join(Split(S, "#"), "$") MsgBox Split(S, "$")(0) End Sub
A tester. Le résultat va dépendre du contenu de ton fichier pdf (s'il y a des tableaux, de la mise en forme, cette méthode ne produira pas un résultat exploitable AMA).
Salut à tous, Avec excel je souhaite récupérer certaines données d'un fichier PDF Je lis le fichier avec Open fileforwork For Binary As #1 Do While Not EOF(1) Line Input #1, text1 Close #1 Jusque là tout va bien. Mon problème c'est quand il y a des caractères NUL, ils sont supprimé et il y un saut de ligne, alors qu'il me faut la ligne complète pour pouvoir exploiter mon texte. Sur le site de microsoft, il parle de remplacer # par $, mais je ne vois pas comment faire. Si quelqu'un à une idée car là je bloque. D'avance merci Didier
C'est un travail qui pourrait convenir au couple Split et Join :
Sub essai()
Dim Fichier$, S$, fso
Fichier = "Nom et chemin du fichier à traiter"
Set fso = CreateObject("Scripting.FileSystemObject")
S = fso.OpenTextFile(Fichier, 1).readall
S = Join(Split(S, "#"), "$")
MsgBox Split(S, "$")(0)
End Sub
A tester. Le résultat va dépendre du contenu de ton fichier pdf (s'il y a des
tableaux, de la mise en forme, cette méthode ne produira pas un résultat
exploitable AMA).
Salut à tous,
Avec excel je souhaite récupérer certaines données d'un fichier PDF
Je lis le fichier avec
Open fileforwork For Binary As #1
Do While Not EOF(1)
Line Input #1, text1
Close #1
Jusque là tout va bien. Mon problème c'est quand il y a des caractères NUL,
ils sont supprimé et il y un saut de ligne, alors qu'il me faut la ligne
complète pour pouvoir exploiter mon texte.
Sur le site de microsoft, il parle de remplacer # par $, mais je ne vois pas
comment faire.
Si quelqu'un à une idée car là je bloque.
D'avance merci
Didier
C'est un travail qui pourrait convenir au couple Split et Join :
Sub essai() Dim Fichier$, S$, fso Fichier = "Nom et chemin du fichier à traiter" Set fso = CreateObject("Scripting.FileSystemObject") S = fso.OpenTextFile(Fichier, 1).readall S = Join(Split(S, "#"), "$") MsgBox Split(S, "$")(0) End Sub
A tester. Le résultat va dépendre du contenu de ton fichier pdf (s'il y a des tableaux, de la mise en forme, cette méthode ne produira pas un résultat exploitable AMA).
Salut à tous, Avec excel je souhaite récupérer certaines données d'un fichier PDF Je lis le fichier avec Open fileforwork For Binary As #1 Do While Not EOF(1) Line Input #1, text1 Close #1 Jusque là tout va bien. Mon problème c'est quand il y a des caractères NUL, ils sont supprimé et il y un saut de ligne, alors qu'il me faut la ligne complète pour pouvoir exploiter mon texte. Sur le site de microsoft, il parle de remplacer # par $, mais je ne vois pas comment faire. Si quelqu'un à une idée car là je bloque. D'avance merci Didier
