Discussion :

[Tybbow]

Bonjour,

Je rencontre un problème de programmation.

Le but de mon programme est de lire deux fichiers textes. Supprimer les deux premières lignes de chaque fichiers, supprimer la dernière ligne de chaque fichier, d'effectuer un remplacement de mot et de réécrire le tout dans un autre fichier Texte pour une base de donnée.
Je bloque dès le début du programme, lorsqu'il faut lire un fichier texte.
Je ne me suis pas embêter, je suis allé directement sur le site de miicrosoft et voici mon code de départ:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
sub main()
dim reader as string
reader = my.computer.filesystem.readalltext("Mon dossier/fichier.txt")
msgbox(reader)

Alors, je veux bien que mon fichier fasse 50000 lignes, mais je n'ai absolument aucun résultat dans la msgbox. J'aurais voulu comprendre pourquoi.

Pourtant, lorsque je change readlalltext par readline(), j'ai bien ma première ligne de départ, ce qui prouve que le chemin du fichier est correct.

Auriez-vous une solution à mon problème?
Peut être que de lire les lignes une par une serait-il meilleur?

Merci.

Cordialement,

[Mario Rousson]

dim reader() as string

peut-être

[infosam76]

Non la fonction readalltext renvoi bien une string d'après le msdn.

Concernant la fonction readline il est logique que tu n'ai que la première ligne de ton fichier vu qu'elle lit une ligne à la fois.

Voici un tutoriel assez bien fait qui pourrait t'aider

http://webman.developpez.com/article...et/file/vbnet/

[tomlev]

Alors, je veux bien que mon fichier fasse 50000 lignes, mais je n'ai absolument aucun résultat dans la msgbox.

C'est bizarre, mais de toutes façons ça n'a pas vraiment de sens d'essayer d'afficher 50000 lignes dans une messagebox ! ça fait des centaines de fois la hauteur de l'écran... à mon avis c'est juste un problème d'affichage, pas un problème de lecture du fichier.

[infosam76]

Après un test je confirme que la lecture d'un fichier contenant 4 ou 5 lignes est correcte. Peut-être une limitation au niveau de la MessageBox

[Mario Rousson]

oui c'est vrai moi j'utilise file.readlllines

[Tybbow]

Merci pour vos réponses.

C'est bizarre, mais de toutes façons ça n'a pas vraiment de sens d'essayer d'afficher 50000 lignes dans une messagebox ! ça fait des centaines de fois la hauteur de l'écran... à mon avis c'est juste un problème d'affichage, pas un problème de lecture du fichier.

On est d'accord.

C'est juste qu'il y a 1728 modifications a effectué dans le fichier Texte. Au lieu d'avoir des "toto", j'aurais voulu des "tata" et je pensais que de passer directement par une lecteur en "readall", cela aurait permis au programme d'aller un peu plus vite.

C'est certainement un problème au niveau du buffer qui ne sauvegarde pas suffisamment le fichier. Car lorsque je le réécris dans un autre fichier Texte, celui-ci me renvoie 0...

Je vous dirais demain, la manière dont j'ai procédé, j'ai certainement une technique en tête.

[Tybbow]

Alors, voici mon second code, certes un peu bizarre,mais qui normalement devrait fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Dim oFSO As Scripting.FileSystemObject
        Dim oFl As Scripting.File
        Dim oflc As Scripting.File
        Dim oTxt As Scripting.TextStream
        Console.WriteLine("         By Tybbow, Version 1.0")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("")
        Console.WriteLine("Démarrage du programme")
        Console.WriteLine("Mise en place du système de fusion")
        oFSO = New Scripting.FileSystemObject
oflc = oFSO.CreateTextFile("/QUALITE.xml")
        Dim oTxtr = oFSO.GetFile("/QUALITE.xml")
        oTxt = oTxtr.OpenAsTextStream(Scripting.IOMode.ForWriting)
        oTxt.WriteLine("<?xml version=" & Chr(34) & "1.0" & Chr(34) & "standalone=" & Chr(34) & "yes" & Chr(34) & "?>")
        oTxt.WriteLine("<TRANSPORTER>")
        oFl = oFSO.GetFile("fichier/ABONNES.txt")
        oTxt = oFl.OpenAsTextStream(Scripting.IOMode.ForReading)
        oTxt.SkipLine()
        oTxt.SkipLine()
        With oTxt
            While Not .AtEndOfStream
                MsgBox(oTxt)
                Dim otxts As String = oTxt.ReadAll
                If InStr(1, otxts, "ITEM", 1) <> 0 Then
                    Replace(otxts, "ITEM", "ITEM24")
                    System.IO.File.AppendAllText("/QUALITE.xml", otxts)
                End If
            End While
        End With

Je ne l'ai pas terminé, vu que j'ai une jolie erreur qui me dit que cette interface n'est pas prise en charge sur l'object, scripting.file.
Com_object, 0x80004002.

Quelqu'un aurait-il une idée? XD

[Mortlhomme]

Peut-être ce code...
Il faut deux TextBox : textF1 et textF2
Il faut un bouton "Start"


Pour ouvrir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub Start_Click() Handles Start.Click
Dim ttt as Variant
TextF1.Multiline=True
TextF2.Multiline=True
 
Try
FileOpen(1,c:\doc1.txt,OpenMode.input)
While not EOF(1)
tout = LineImput(1)
TextF1.Text = TextF1.Text + ttt + Chr(13) + Chr(10)
End While
Finally
FileClose(1)
End Try
 
Try
FileOpen(1,c:\doc2.txt,OpenMode.input)
While not EOF(1)
tout = LineImput(1)
TextF2.Text = TextF2.Text + ttt + Chr(13) + Chr(10)
End While
Finally
FileClose(1)
End Try

Ici on prend en compte que le chemin des fichiers sont "c:\doc1.txt" et "c:\doc2.txt"
Ainci le contenu de tes fichiers seront dans les contrôles textbox.

...