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é)