je me sers d'un fichier text pour sauvegarder la=20
configuration de mon application
en utilisant
on error goto creefichier
open "nondemonfichier" for output As #1
write #1, toto (une varible As String) il va me l'=E9crir =E0=20
la premiere ligne.
maintenant je veux ecrire =E0 la 3 ligne sans qu'il ne=20
m'efface la deuxi=E8me,
au debut je commencais a tout lui faire lire et a=20
sauvegarder les informations contenues dans mon fichier=20
texte j'ai des on error goto de partout et je me pomme moi-
meme je me dis qu'il doit bien exister un truck plus=20
simple.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ng
Salut, Si j'ai bien compris, voici un exemple :
Private Sub Form_Load() On Error GoTo ErrH
Dim k As Integer, sBuff As String, tblLignes() As String Dim sChe As String
sChe = "c:1.txt"
'on ouvre le fichier 'et on récupère les données k = FreeFile Open sChe For Binary As #k sBuff = Space$(LOF(k)) Get #k, , sBuff Close #k If sBuff Like "*" & vbCrLf & "*" Then tblLignes = Split(sBuff, vbCrLf, , vbTextCompare): sBuff = "" If UBound(tblLignes) >= 2 Then 'au moins trois lignes 'on peut modifier la ligne 3 tblLignes(2) = "Nouvelle ligne 3" End If Else 'on a une seule ligne ou le fichier est vide 'on pourra créer les ligne ReDim Preserve tblLignes(2) tblLignes(2) = "Nouvelle ligne 3" End If
'on ré-écrit le fichier k = FreeFile Open sChe For Output As #k Print #k, Join(tblLignes, vbCrLf); Close #k Erase tblLignes Exit Sub ErrH: MsgBox Err.Description, vbCritical, "Erreur n°" & Err.Number End Sub
Nicolas. -- http://www.ngsoft-fr.com "Jingle" a écrit dans le message de news: 038901c3cfaa$15f31cf0$ bonjour,
je me sers d'un fichier text pour sauvegarder la configuration de mon application
en utilisant on error goto creefichier open "nondemonfichier" for output As #1 write #1, toto (une varible As String) il va me l'écrir à la premiere ligne. maintenant je veux ecrire à la 3 ligne sans qu'il ne m'efface la deuxième, au debut je commencais a tout lui faire lire et a sauvegarder les informations contenues dans mon fichier texte j'ai des on error goto de partout et je me pomme moi- meme je me dis qu'il doit bien exister un truck plus simple.
Merci de votre aide et bonne année
Salut,
Si j'ai bien compris, voici un exemple :
Private Sub Form_Load()
On Error GoTo ErrH
Dim k As Integer, sBuff As String, tblLignes() As String
Dim sChe As String
sChe = "c:1.txt"
'on ouvre le fichier
'et on récupère les données
k = FreeFile
Open sChe For Binary As #k
sBuff = Space$(LOF(k))
Get #k, , sBuff
Close #k
If sBuff Like "*" & vbCrLf & "*" Then
tblLignes = Split(sBuff, vbCrLf, , vbTextCompare): sBuff = ""
If UBound(tblLignes) >= 2 Then 'au moins trois lignes
'on peut modifier la ligne 3
tblLignes(2) = "Nouvelle ligne 3"
End If
Else
'on a une seule ligne ou le fichier est vide
'on pourra créer les ligne
ReDim Preserve tblLignes(2)
tblLignes(2) = "Nouvelle ligne 3"
End If
'on ré-écrit le fichier
k = FreeFile
Open sChe For Output As #k
Print #k, Join(tblLignes, vbCrLf);
Close #k
Erase tblLignes
Exit Sub
ErrH:
MsgBox Err.Description, vbCritical, "Erreur n°" & Err.Number
End Sub
Nicolas.
--
http://www.ngsoft-fr.com
"Jingle" <toupy_toupy@hotmail.com> a écrit dans le message de news:
038901c3cfaa$15f31cf0$a001280a@phx.gbl...
bonjour,
je me sers d'un fichier text pour sauvegarder la
configuration de mon application
en utilisant
on error goto creefichier
open "nondemonfichier" for output As #1
write #1, toto (une varible As String) il va me l'écrir à
la premiere ligne.
maintenant je veux ecrire à la 3 ligne sans qu'il ne
m'efface la deuxième,
au debut je commencais a tout lui faire lire et a
sauvegarder les informations contenues dans mon fichier
texte j'ai des on error goto de partout et je me pomme moi-
meme je me dis qu'il doit bien exister un truck plus
simple.
Dim k As Integer, sBuff As String, tblLignes() As String Dim sChe As String
sChe = "c:1.txt"
'on ouvre le fichier 'et on récupère les données k = FreeFile Open sChe For Binary As #k sBuff = Space$(LOF(k)) Get #k, , sBuff Close #k If sBuff Like "*" & vbCrLf & "*" Then tblLignes = Split(sBuff, vbCrLf, , vbTextCompare): sBuff = "" If UBound(tblLignes) >= 2 Then 'au moins trois lignes 'on peut modifier la ligne 3 tblLignes(2) = "Nouvelle ligne 3" End If Else 'on a une seule ligne ou le fichier est vide 'on pourra créer les ligne ReDim Preserve tblLignes(2) tblLignes(2) = "Nouvelle ligne 3" End If
'on ré-écrit le fichier k = FreeFile Open sChe For Output As #k Print #k, Join(tblLignes, vbCrLf); Close #k Erase tblLignes Exit Sub ErrH: MsgBox Err.Description, vbCritical, "Erreur n°" & Err.Number End Sub
Nicolas. -- http://www.ngsoft-fr.com "Jingle" a écrit dans le message de news: 038901c3cfaa$15f31cf0$ bonjour,
je me sers d'un fichier text pour sauvegarder la configuration de mon application
en utilisant on error goto creefichier open "nondemonfichier" for output As #1 write #1, toto (une varible As String) il va me l'écrir à la premiere ligne. maintenant je veux ecrire à la 3 ligne sans qu'il ne m'efface la deuxième, au debut je commencais a tout lui faire lire et a sauvegarder les informations contenues dans mon fichier texte j'ai des on error goto de partout et je me pomme moi- meme je me dis qu'il doit bien exister un truck plus simple.
