Première ligne d'un fichier [Résolu]

soundpanther 68 Messages postés vendredi 27 juillet 2007Date d'inscription 31 janvier 2009 Dernière intervention - 22 nov. 2007 à 09:32 - Dernière réponse : Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention
- 24 nov. 2007 à 22:28
Bonjour,

J'utilise ce code pour modifier la première ligne d'un fichier ini, mais ce code est très long,
Y a t'il une autres méthode plus rapide svp

Merci d'avance

Public Function Modifier()
Dim FF As Long
Dim stA As String, stB As String
stB = "ListView=0"
FF = FreeFile
Open App.Path & "\data\Config.ini" For Binary As #FF
stA = Input(LOF(FF), #FF)
If stA <> "" Then
stA = stB
Put #FF, 1, stA
End If
Close #FF
End Function
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 22 nov. 2007 à 10:03
3
Merci
utilises les APIs qui vont bien, pour manipuler tes fichiers INI...

WritePrivateProfileString, par exemple, dans ton cas

Merci Renfield 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 102 internautes ce mois-ci

Commenter la réponse de Renfield
soundpanther 68 Messages postés vendredi 27 juillet 2007Date d'inscription 31 janvier 2009 Dernière intervention - 22 nov. 2007 à 11:12
0
Merci
Bonjour,

Je ne trouve pas de solution pour modifier la premier ou la deuxième ligne

WritePrivateProfileString "SaveBox", "Box1", CStr(Box1.Text), App.Path & "\data\Config.ini"

Savez vous comme faut il procéder SVP

Merci
Commenter la réponse de soundpanther
JPGVB 96 Messages postés mardi 29 mars 2005Date d'inscription 10 mars 2011 Dernière intervention - 22 nov. 2007 à 12:25
0
Merci
Bonjour, pour écrire dans un fichier INI, tu n'a pas besoin de connaitre un numéro de ligne, mais le nom de la section et le nom de la clé. Pour plus d'infos recherche la fonction Ecritdansfichierini sur ce site.


Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _ (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _ ByVal lpFileName As String) As Long

Private Function EcritDansFichierIni(Section As String, Cle As String, _ Valeur As String, Fichier As String)
As Long EcritDansFichierIni = WritePrivateProfileString(Section, Cle, Valeur, Fichier)
End Function
Commenter la réponse de JPGVB
soundpanther 68 Messages postés vendredi 27 juillet 2007Date d'inscription 31 janvier 2009 Dernière intervention - 22 nov. 2007 à 12:49
0
Merci
Bonjour,

Mais je ne veut pas utiliser le même système [xxx] car mon application ne me permet pas d'utiliser  les [xxxx]  moi c'est plutot comme cela par exemple modifier la ligne 1 pas ListView=1
Sinon Y a t'il une autres méthode SVP

ListView=0
Speed=1
FullScreen=0
HideMenu=0
HideStatus=1
HideToolbar=0

Merci
Commenter la réponse de soundpanther
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 22 nov. 2007 à 20:36
0
Merci
ok, donc ce n'est pas un fichier INI...

pour modifier la première ligne, faut en créer un nouveau, dans lequel tu transferera ton fichier, a partir de la deuximeme ligne... ca devrais pas être très très long a faire.

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
soundpanther 68 Messages postés vendredi 27 juillet 2007Date d'inscription 31 janvier 2009 Dernière intervention - 22 nov. 2007 à 20:51
0
Merci
Bonjour

En faite mon fichier contient plus de 6990 lignes est quand j'utilise ce code pour modifier la première ligne, celui-ci mais au moins 3 secondes pour remplacer la ligne 1,

Public Function Modifier()
Dim FF As Long
Dim stA As String, stB As String
stB = "ListView=0"
FF = FreeFile
Open App.Path & "\data\Config.ini" For Binary As #FF
stA = Input(LOF(FF), #FF)
If stA <> "" Then
stA = stB
Put #FF, 1, stA
End If
Close #FF
End Function

Merci d'avance
Commenter la réponse de soundpanther
soundpanther 68 Messages postés vendredi 27 juillet 2007Date d'inscription 31 janvier 2009 Dernière intervention - 23 nov. 2007 à 14:27
0
Merci
Bonjour

Voilà comme je n'est pas trouver de solution donc je vais refaire tous mon travaille sur le principe d'un vrais fichier INI est avec l'API WritePrivateProfileString

Aussi merci a tous ce qui en répondu
Commenter la réponse de soundpanther
Renfield 17308 Messages postés mercredi 2 janvier 2002Date d'inscription 22 août 2018 Dernière intervention - 24 nov. 2007 à 22:28
0
Merci
bien, c'est beaucoup plus sage...

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.