Bon voila j'ai un petit problème concernant l'utilisation du mode Random dans l'ouverture d'un ficher.
Je m'explique:
J'aimerais faire un programme qui remplace les commentaire d'un fichier de programmation (ex: //, ', /* ... */) par un blanc
Pour cela il faut que je travaille en lecture et en ecriture en meme temps
et seul le mode Random m'en offre la possibilitée.
(mode Input pr lire seulement et mode Output pr ecrire seulement)
le problème c'est que je ne sais pas vraiment comment utiliser le mode Random.
Les tutoriels de plusieurs site ne m'ont pas beaucoup aidé jusqu'a présent.
tuto de developpez.com
tuto de znsoft.free.fr
même dans le msdn de microsoft ce n'est pas la joie
J'aimerais savoir si je suis obliger de mettre une taille (len) à l'ouverture du fichier et
comment déclarer les variable position et tmp.
Je ne sais pas si le Get lit ligne par ligne ou selon un position dans la ligne
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 mot1 = "/*" mot2 = "*/" canal = FreeFile chemin = "C:\Program Plus\VB98\Projet Eicw\54_fichier\test.txt" Open chemin For Random As #canal While Not EOF(canal) Get #canal, position, tmp If ((InStr(tmp, mot1)) > 0) Then ou = InStr(tmp, mot1) MsgBox ("la phrase " & nb & " contient: " & mot & " a la position: " & ou) Put #canal, ou, remplace End If If ((InStr(tmp, mot2)) > 0) Then ou = InStr(tmp, mot2) MsgBox ("la phrase " & nb & " contient: " & mot & " a la position: " & ou) Put #canal, ou, remplace End If nb = nb + 1 Wend
Partager