[VB6] Créer un fichier de type random

**fourgeaud** · 13/06/2006, 18h58

Bonjour,
je pense que le titre est assez claire, je voudrais grâce à du code, créer un fichier de type Random, pour après pouvoir écrir dessus et le lire.
Merci d'avance.

**SfJ5Rpw8** · 13/06/2006, 19h05

et tu bloque ou ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim MyRecord As record    ' Déclare la variable.
 
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
  'boucle exemple d'écriture
   MyRecord.i = 123
   Put #1, , MyRecord
   MyRecord.i = 0 ' Raz valeur
   Get #1, 1, MyRecord
 
Close #1
 
  Debug.Print MyRecord.i
End Sub

**sovo** · 13/06/2006, 19h06

essaye ceci

Code :

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

1
2
3
4
 
'path = chemin du fichier
'numfile  = numero du fichier, tu peux l'avoir automatiquement avec : freefile
open path for random as #Numfile

**fourgeaud** · 13/06/2006, 20h44

Lorsque l'on met :

Code :

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

1
2
 
open "fichier.txt" for random as #1

ça ouvre le fichier mais ça ne le crée pas.
Merci.

**jmfmarques** · 13/06/2006, 21h03

ça ouvre le fichier mais ça ne le crée pas.

Ah ?
Tu as essayé ?
Alors essaye ! (mais n'oublie pas de le fermer....)

Tu veux peut-être dire qu'il reste vide (ce qui est autre chose)...

**fourgeaud** · 13/06/2006, 21h47

J'ai essayé, ça ne l'a pas créé mais c'est peut-être un bug, pour le remplir c'es avec put #inFileNumber, 1,3
etc....
Merci à vous.

**zazaraignée** · 13/06/2006, 22h18

Salut

On peut voir ton code ?

**fourgeaud** · 13/06/2006, 22h21

Je vais réessayer de le faire marcher demain et je vous tien au courant je ne peut pas vous donner le code.
Merci.

**zazaraignée** · 13/06/2006, 22h30

C'est top secret? La défence nationnale?

**fourgeaud** · 18/06/2006, 20h47

Enfait je pouvait pas j'étais pas devant mon ordi, désolé. Enfait quand je l'ai refais ça à marché mais j'ai un otre problème lié :

je veut savoir si un fichier existe et dans ce cas créer le fichier sinon de créer le dossier :

Code :

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

1
2
3
4
5
6
7
8
9
 
If Dir(AppPath & "Résultats") = "Résultats" Then
                Open Résultats \ frmPeche.Caption For Random As #intFileNum
                Put #2, 1, frmMsFlexGrid1.Flex1.TextMatrix(1, 1)
                Put #2, 2, frmMsFlexGrid1.Flex1.TextMatrix(1, 2)
                Close #intFileNum
            Else
                MkDir ("Résultats")
            End If

Le problème c'est que la première ligne renvoie toujours un résultat négatif.
Merci.

**ThierryAIM** · 18/06/2006, 21h01

If Dir(AppPath & "Résultats") = "Résultats" Then
Open Résultats \ frmPeche.Caption For Random As #intFileNum

c'est quoi ce charabia ?

**jmfmarques** · 18/06/2006, 21h12

A propos de charabia, celui que j'ai du mal à comprendre, moi, c'est celui-ci :

je veut savoir si un fichier existe et dans ce cas créer le fichier

J'ai vraiment du mal, là......

**MGD_Software** · 18/06/2006, 21h36

Je pense que notre ami a voulu dire :

Code :

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

1
2
If Dir(AppPath & "\Résultats") = "Résultats" Then
    Open "Résultats\" & frmPeche.Caption For Random As #intFileNum

Je pense que comme çà, il n'y aura au moins pas d'erreur de syntaxe. Et après un IF, on INDENTE !

En tous cas, c'est pas comme cela qu'il ouvrira le bon fichier (Resultats). Que vient faire le titre de la feuille là-dedans ?? C'est le nom du fichier à ouvrir ?
Si Résultat est un répertoire, la fonction Dir ne renverra pas "Resultats", mais le nom du premier fichier (en fait, "." qui est le répertoire courant, si on précise vbDirectory) ou rien si le répertoire est vide (mais pourtant existant).
Si c'est un fichier, cela plantera car le chemin du fichier sera incorrect.

Bref, ça n'a aucune chance de marcher.

En supposant que résultat est un répertoire, et que le titre de la feuille est le nom du fichier, le bon code serait:

Code :

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

1
2
3
4
5
6
7
If Dir(AppPath & "\Résultats\*.*", vbDirectory) <> "" Then
    intFileNum = FreeFile()
    Open App.path & "\Résultats\" & frmPeche.Caption For Random As #intFileNum
    Put #intFileNum, .....
    ...................
    Close #intFileNum
End If

La fonction Dir ramènera "." si le répertoire existe, même s'il n'y a aucun fichier dedans. Si le répertoire n'exsite pas, la fonction ramènera une chaine vide.

**ThierryAIM** · 18/06/2006, 21h45

J'avais bien compris, je souhaitais juste sensibiliser notre ami au fait que nous ne sommes pas là pour jouer au devinettes, avec des erreurs aussi grossières

Comme tu as tout décortiqué (et que, bien sûr, tu as raison), j'en profite pour rajouter que ce doit être App.Path et non AppPath dans le Dir (sauf à avoir défini une chaine pour le path de l'application, ce qui est totalement inutile, et si c'est le cas, on ne sais pas si elle se termine par un \ ou pas)

**MGD_Software** · 18/06/2006, 22h08

Envoyé par ThierryAIM

j'en profite pour rajouter que ce doit être App.Path et non AppPath dans le Dir

Damned ! J'ai pourtant relu 3 fois !!
Voilà ce que c'est de ne pas tester TOUT ce qu'on écrit.

**ThierryAIM** · 18/06/2006, 22h09

Envoyé par MGD_Software

Damned ! J'ai pourtant relu 3 fois !!
Voilà ce que c'est de ne pas tester TOUT ce qu'on écrit.

**fourgeaud** · 22/06/2006, 17h32

Désolé si je n'ai pas été explicite, merci à MGD_Software qui m'a aidé et merci à ThierryAIM pour les remarques, que je vais noter pour corriger mes defaux.
Merci à tous.

**fourgeaud** · 23/06/2006, 16h12

Bonjour, j'ai un autre problème lié à ce sujet, je ne trouve pas la solution.

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
 
If Dir("\Résultats\Sortie n°1.txt", vbDirectory) = "Sortie n°1.txt" Then
                intFileNum = FreeFile()
                Open "\Résultats\" & frmPeche.Caption For Random As #intFileNum
                Put #2, 1, frmMsFlexGrid1.Flex1.TextMatrix(1, 1)
                Put #2, 2, frmMsFlexGrid1.Flex1.TextMatrix(1, 2)
                Close #intFileNum
            Else
                intFileNum = FreeFile()
                MkDir ("Résultats")
                Open "\Résultats\" & frmPeche.Caption For Random As #intFileNum
                Put #2, 1, frmMsFlexGrid1.Flex1.TextMatrix(1, 1)
                Put #2, 2, frmMsFlexGrid1.Flex1.TextMatrix(1, 2)
                Close #intFileNum
            End If

ET le message d'erreur est sur la 10ème ligne, autrement dit la 3ème ligne dans le else.

le Message d'erreur est : PATH NOT FOUND

Merci à vous tous.

**SfJ5Rpw8** · 23/06/2006, 18h38

Code :

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

  MkDir ("Résultats")

crée le répertoire Résultats.. sous le répertoire courant ... pas sous \ !! voir :

Code :

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

  MkDir ("\Résultats")

en outre je pense que tu devrai préciser l'unité ... c:\ ... ?

**fourgeaud** · 26/06/2006, 22h38

En fait, je ne veut pas préciser l'unité parce que, moi par exemple je suis avec un disque dur non pas C:\ mais E:\ et je pense que je ne doit pas être le seul.
Merci.

[VB6] Créer un fichier de type random

VB 6 et antérieur

Discussions similaires

Partager

Partager