Aide / création logiciel de fiscalité

Bonjour à tous

Avant tout je tiens à remercier le concepteur de ce formidable logiciel SZ, l'administrateur de ce forum ,
ainsi que l'ensemble des intervenants pour l'aide fournie.

Je suis novice en la matière , je souhaite réaliser un petit logiciel qui aura la fonction de rechercher dans un menu principal , dans une 20 de fichiers en PDF (codes des impots , codes juridiques.... trés volumineux ) un texte , article , une phrase .... et de surligner ou la colorer ....

j'ai beau chercher sur le forum , mais point d'inverventions sur les fichiers Pdf , merci d'avance de votre aide

Cordialement

Mediterraneo

Bonjour

Mediterraneo a écrit: je souhaite réaliser un petit logiciel qui aura la fonction de rechercher dans un menu principal , dans une 20 de fichiers en PDF (codes des impots , codes juridiques.... trés volumineux ) un texte , article , une phrase .... et de surligner ou la colorer ....

après quelques petites recherches sur le web, j'ai trouvé ça (activez l'affichage de l'HTML):

Imports System
Imports System.Drawing
Imports Spire.Doc
Imports Spire.Doc.Documents

‘Load Document
            Dim document As New Document()
            document.LoadFromFile(“D: \work\My Documents\Shayne Breathless.docx”, FileFormat.Docx)

            ‘Find Word
            Dim textSelections() As TextSelection = document.FindAllString(“Breathless”, True, True)

            ‘Highlight Word
            For Each selection As TextSelection In textSelections
                selection.GetAsOneRange().CharacterFormat.HighlightColor = Color.Cyan
            Next selection

            ‘Save and Launch
            document.SaveToFile(“Find.docx”, FileFormat.Docx)
            System.Diagnostics.Process.Start(“Find.docx”)

Ce code permet de charger un document word, de chercher un mot à l'intérieur, de le surligner et d'enregistrer le fichier. Il suffit donc ensuite de convertir tes pdf en word.

Evidemment avec ce code, tu ne peut rechercher que dans 1 fichier pdf à la fois, pour que sa aille plus vite, il faudrait charger tout les fichiers pdf aux démarrages du logiciel dans une variable tableau puis, lors de l'appui sur le bouton rechercher, il faudrait changer le code de façon à ce que se soit touts les éléments de la variable tableaux qui soient "fouillés"

re,

Si les fichiers sont volumineux c'est du "suicide" de les ajouter dans une variable.
La RAM va fondre !

Je teste le code

Après quelques recherches, le code utilise la classe Spire.Doc.dll .
Il en existe une autre Spire.PDF.dll ..... je cherche

Cordialement ,
Le réparateur de PC

lereparateurdepc a écrit:re,

Si les fichiers sont volumineux c'est du "suicide" de les ajouter dans une variable.
La RAM va fondre !

Je teste le code

Après quelques recherches, le code utilise la classe Spire.Doc.dll .
Il en existe une autre Spire.PDF.dll ..... je cherche

Cordialement ,
Le réparateur de PC

re,

bien vu lereparateurdepc, j'avais pas pensé à ça
il faudrait donc utiliser une variable tableau qui contient LE CHEMIN de chaque fichiers.

re,

Pour ton code ... c'est assez chaud !

Cordialement ,
Le réparateur de PC

re,

le code ne marche pas?  

re,

non ...... ici :
For Each selection As TextSelection In textSelections

Il faut que je teste en déclarant selection avent sous la forme :
selection as TextSelection = New TextSelection

Mais pour le moment je me lance au C pour Arduino (on en parle sur ce forum sur le sujet où l'on évoque la possibilité de réaliser une tablette tactile avec SZ os )

Cordialement ,
Le réparateur de PC

re,

lereparateurdepc a écrit:re,

non ...... ici :
For Each selection As TextSelection In textSelections

Il faut que je teste en déclarant selection avent sous la forme :
selection as TextSelection = New TextSelection

tu adapte le code pour SZ donc

lereparateurdepc a écrit:
Mais pour le moment je me lance au C pour Arduino (on en parle sur ce forum sur le sujet où l'on évoque la possibilité de réaliser une tablette tactile avec SZ os )

tu utilise le kit de démarrage Arduino ?
je vais peut être me le prendr... euh le commander au papa noël  

re,

Polien a écrit:tu adapte le code pour SZ donc

NON, je n'arrive déjà PAS à le faire fonctionner sous VB2010 !
En plus, on ne peut pas l'utiliser de cette façon .... on ne peut PAS déclarer des Imports sous SZ.
Il faut que je refasse une DLL mais pour le moment .....

Polien a écrit:tu utilise le kit de démarrage Arduino ?

Je l'ai commandé dimanche donc pour aujourd'hui ou demain Mais il est pas donné ! Le soft est gratuit et simple d'utilisation
(sans faire de pub :Arduino Uno Kit )

EDIT : relire le message je l'ai édité !

Cordialement,
Le réparateur de PC

lereparateurdepc a écrit:re,

Polien a écrit:tu adapte le code pour SZ donc

NON, je n'arrive déjà PAS à le faire fonctionner sous VB2010 !

mince  la syntaxe semble correcte pourtant, il va falloir trouver un autre code [/quote]
HS:

lereparateurdepc a écrit:

Polien a écrit:tu utilise le kit de démarrage Arduino ?

Je l'ai commandé dimanche donc pour aujourd'hui ou demain :)Mais il est pas donné ! MAIS le soft est gratuit et simple d'utilisation
(sans faire de pub :Arduino Uno Kit )

Sur d'autres sites, je le trouve à 50 euros, après faut voir le sérieux de la boutique

re,

YOUPI :

Code:

Imports System
Imports System.Drawing
Imports Spire.Doc
Imports Spire.Doc.Documents

Public Class Form1
    'Dim selection As TextSelection = New TextSelection(sp
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            'Load Document
            Dim document As New Document()
            document.LoadFromFile(OpenFileDialog1.FileName, FileFormat.Docx2010)

            'Find Word
            Dim textSelections() As TextSelection = document.FindAllString("de", True, True)
            If textSelections.Length = 0 Then
                MsgBox("vide")
            Else

                'Highlight Word
                For Each selection As TextSelection In textSelections
                    selection.GetAsOneRange().CharacterFormat.HighlightColor = Color.Cyan
                Next selection

                'Save and Launch
                document.SaveToFile(Application.StartupPath & "\Find.docx", FileFormat.Docx2010)
                System.Diagnostics.Process.Start(Application.StartupPath & "\Find.docx")
            End If

        End If
    End Sub
End Class


La grosse gourde : je n'ai PAS modifié le mot à rechercher.
Il faut vérifier si la variable de résultat textSelections n'est PAS vide et ça fonctionne.
MAIS c'est la méthode WORD en plus, il différencie les docx des docx2010 donc problème.

Cordialement ,
Le réparateur de PC

re,

merci, s'est déjà un début de réponse