Première ligne d'un fichierRésolu

Question

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

Renfield · Accepted Answer

utilises les APIs qui vont bien, pour manipuler tes fichiers INI...

WritePrivateProfileString, par exemple, dans ton cas

soundpanther · Answer

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

JPGVB · Answer

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

soundpanther · Answer

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

Renfield · Answer

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

soundpanther · Answer

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

soundpanther · Answer

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

Renfield · Answer

bien, c'est beaucoup plus sage...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Première ligne d'un fichier

8 réponses

Votre réponse

Discussions similaires