Discussion :

[guefrachi]

bonjour à tous

je veux faire une application dans laquelle je dois enregistrer des données (correspondant à des champs records) dans un fichier text (une alternative aux BD avec lesquelles j'avais des problèmes).

pour commencer j'ai consulté le FAQ et j'ai trouvé ce programme

Code :

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

1
2
3
4
5
6
  Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
   f.write("Salut")

le problème est que ce code efface le contenu de fichier et y met la nouvelle chaine de caractères. J'ai donc quelques questions;

1/ Comment faire pour ajouter des lignes (ligne par ligne ) sans effacer l'ancien contenu

2/ est possible d'accéder (en lecture et écriture) à une ligne donnée par indice

3/ Si vous connaissez un lien qui peut m'être utile, je serais reconnaissant.

Merci d'avance

[ProgElecT]

1/ Comment faire pour ajouter des lignes (ligne par ligne ) sans effacer l'ancien contenu

Tu écris Open dans ton code, tu mes le curseur dessus, puis F1 pour avoir des informations via MSDN.
Si tu n'as pas MSDN installé (la bible que devrait avoir tout programmateur), tu peux le charger ici MSDN en Français

2/ est possible d'accéder (en lecture et écriture) à une ligne donnée par indice

Non, tu peux lire mais pas écrire en même temps, par contre tu peux faire 2 ouvertures, un en lecture, l'autre en écriture (sous entendu sous un N° différent ((FreeFile), filenumber)

[guefrachi]

1/ je vais voir le help

2/ est possible d'accéder (en lecture et écriture) à une ligne donnée par indice

peut être je me suis mal exprimé, je veux savoir comment accéder à une ligne (en lecture ou en écriture), une chose comme T(i) dans un tableau ou (avec excel)

Code :

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

sheet.rows("10")

[ProgElecT]

2 solutions au moins.
1° lire ligne par ligne jusqu'à la ligne n° voulue (légèrement long suivant le nombre de ligne)
2° ouvrir le fichier en récupérant la totalité dans une variable String (plus rapide), puis faire un Split dans une variable tableau, de cette dernière variable tableau appeler le n élément.
Je peu développer si tu es intéressé par l'une ou l'autre des solutions

MOTIF DE L'EDIT:
Parlant d'Excel, dans la Faq VB6, Rechercher "Excel", plusieurs reponses, dont une qui pourrait correspondre à ton besoin Comment modifier un classeur ?

[guefrachi]

Je peu développer si tu es intéressé par l'une ou l'autre des solutions

je te remercie vivement. Je peux m'en charger, mais ne posera t-il pas de problèmes de charger la RAM par un tableau de quelques dizaines de milliers de valeurs

[ProgElecT]

....
mais ne posera t-il pas de problèmes de charger la RAM par un tableau de quelques dizaines de milliers de valeurs

Maintenant les systèmes on souvent suffisamment de mémoires, voire Windows utilisera le disque dur pour compléter.
Le principe

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
32
33
34
35
Dim Msg As String
Dim NumFich As Integer
Dim CheminNomFichier As String
Dim DecoupeContenuLg() As String
Dim T As Integer
Msg = ""
CheminNomFichier = "" '<== adapter
'************** en lecture ********************************************
NumFich = FreeFile
Open CheminNomFichier For Input As #NumFich
Msg = Input(FileLen(CheminNomFichier), NumFich)
Close #NumFich
If Msg$ = "" Then
 MsgBox "le fichier est vide", vbCritical
 Exit Sub 'Unload Me
End If
'création du tableau "DecoupeContenuLg", chaque index du tableau correspond à une ligne du fichier
DecoupeContenuLg = Split(Msg$, vbCrLf)
'DecoupeContenuLg(9) = ligne 10 du fichier
'**************fini en lecture ********************************************
'DecoupeContenuLg(9) peut être modifier, voir "supprimer" (DecoupeContenuLg(9)="")
 
'************** réouverture en ecriture pour modification/actualisation ********************************************
NumFich = FreeFile
Open CheminNomFichier For Output As #NumFich
'boucle sur le tableau
For T = 0 To UBound(DecoupeContenuLg)
    If DecoupeContenuLg(T) <> "" And T = 9 Then
        Print #NumFich, DecoupeContenuLg(T)
        Else
        Print #NumFich, DecoupeContenuLg(T)
    End If
Next T
Close #NumFich
'************** fini modification/actualisation ********************************************

Mais si tu fais à partir d'un fichier excel, regarde dans mon précédent message (j'ai réédité)

[guefrachi]

Merci beaucoup

c'est bien

A+

[guefrachi]

bonjour

maintenant je veux enregistrer mes données de façon structurée (comme un tableau d'excel). J'ai consulté MSDN (Utilisation de l'accès aléatoire aux fichiers)
j'ai y trouvé des codes montrant la manipulation des records, le problème est que ces derniers se sont enregistrés dans le fichier sous forme de

=
ÉBô
*¶ã@  ff`Bè *¶ã@

donc ce que je cherche est d'avoir un tableau contenant les champs et les enregistrements correspondants (une chose semblable à un tableau).
Veuillez me diriger vers le bon chemin;
Utiliser les instructions présentées là-dessous et gérer les espaces (" ") moi même (qui tout à fait possible) ou se contenter des enregistrements avec accès aléatoire, ou peut être existe-elle une autre méthode

Merci d'avance

[SfJ5Rpw8]

....
j'ai y trouvé des codes montrant la manipulation des records, le problème est que ces derniers se sont enregistrés dans le fichier sous forme de
...

c'est quoi le but de visualiser les enregistrement avec un éditeur de texte ..? ou avec ton programme ?

[guefrachi]

pour faire du copier coller (vers des variables matlab par exemple) ou vers excel
(SVP ne me dites pas pourquoi ne pas écrire directement dans excel...).

et surtout ce fichier va être utilisé par un programme delphi qui lit les données enregistrées et les visualise graphiquement (MSChart). Donc j'ai besoin de quelques chose qui peut être "comprise" par les deux logiciels

[guefrachi]

Salut

pour la la méthode de ProgElect

est il possible de libérer la prtie RAM allouée au tableau "DecoupeContenuLg" après son utilisation?, une chose comme

Code :

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

set DecoupeContenuLg=nothing

[ProgElecT]

Si la déclaration de la variable DecoupeContenuLg est dans la procédure de lecture du fichier, dés que tu quittes celle ci la mémoire est libérée, si par contre elle est déclarée dans un module (comme public) ou dans la partie déclaration du Form, faire Redim DecoupeContenuLg(0).

[guefrachi]

elle est déclarée dans une procédure bouton_clic

Code :

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

1
2
3
4
5
Private Sub Command4_Click()
Dim DecoupeContenuLg() As String
.....
.....
end sub