Extraire du texte d'un fichier .iniRésolu

Question

Bonjour,

Comment extraire le texte d'un fichier .ini dont la structure est celle-ci :

[enregistrement]
MODEL    =    N
ENTETE    =    c:\sci5\doc\modele\MERCICLI.ent
FICH_PRINC    =    MERCICLI.003
CHEDOC    =    c:\sci5\doc\05\09\MERCICLI.003
PRINCIPAL    =    MERCICLI.DOC
DONNEE    =    c:\sci5\doc\modele\MERCICLI.txt
FIC_A_CHARGER    =    c:\sci5\doc\modele\MERCICLI.DOC
TITRE_APP    =    Titre de l'appli
FONCTION    =    FUSION

Voilà, en fait, j'aimerais retrouver l'équivalent de l'instruction suivante :

FIC_A_CHARGER = WordBasic. [GetPrivateProfilestring$] ("enregistrement", "FIC_A_CHARGER", Chemin du Fichier .ini)

Quelqu'un peut-il m'aider ?
Merci d'avance.

Christophe

cs_nico1610 · Accepted Answer

Dark Sidious à raison, tu n'as pas ouvert ton esprit au site VbFrance et tu na pas le savoir du fichier ini !! La force tu as besoin, mais la route est long et tu aura besoin des connaissance du fichier ini !! Yoda (alias nico1610) va te montrer le chemin, va donc te concentrer sur /code.aspx?ID=33622http://www.vbfrance.com/code.aspx?ID=30552 Là quand tu serras aptes a manipuler la force tu serras, pour le moment regarde le module FichierIni.bas Et que la force soit avec toi !! NB : il y a des sources qui parle que et uniquement de ca , mais cette source et de moi c'est pour ca que je sais qu'il a y ce que tu cheches, de plus ce module est vraiment tres tres bien fais et gere au mieux les fichier ini !! et voila le code : !!!!

Public CheminBrowserIni As String
Public CheminPlaylistIni As String
Public NomSkinIni As String
Public VolumeIni As Integer
Public RepeatIni As Boolean
Public RandomIni As Boolean
' Constantes
Const FIC_INI = "\LecteurMP3.ini"
'==========================================================================================
' PROTOTYPES DES FONCTIONS API WINDOWS UTILISEES
'==========================================================================================-
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
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
'===================================================================================*/
' fonctions fichier ini de base */
'===================================================================================*/
'====================================================================================*/
' GetIniInt : */
'------------------------------------------------------------------------------------*/
' Cette fonction permet de recuprer un nombre entier dans un fichier INI. */
'====================================================================================*/
Function GetIniInt(Rubriq$, motClef$, Default&, FicIni$) As Long
GetIniInt = GetPrivateProfileInt(Rubriq$, motClef$, Default&, FicIni$)
End Function
'====================================================================================*/
' GetIniString : */
'------------------------------------------------------------------------------------*/
' Cette fonction permet de recuprer une chaine dans un fichier INI. */
'====================================================================================*/
Function GetIniString(Rubriq$, motClef$, Default$, FicIni$) As String
Dim titre As String * 1000
Dim pos As Integer
GetPrivateProfileString Rubriq$, motClef$, Default$, titre, 1000, FicIni$
pos = InStr(titre, Chr(0))
If pos <> 0 Then
titre = Left(titre, pos - 1) ' + Right(titre, Len(titre) - pos)
End If
GetIniString = Trim(titre)
End Function
'====================================================================================*/
' WriteiniString : */
'====================================================================================*/
' Cette fonction permet d'crire une chaine dans un fichier INI. */
'====================================================================================*/
Function WriteIniString(Rubriq$, key$, Value$, FicIni$) As Long
If Len(Value) = 0 Then
WritePrivateProfileString Rubriq$, key$, Nothing, FicIni$
Else
WritePrivateProfileString Rubriq$, key$, Value$, FicIni$
End If
WriteIniString = 0
End Function
'===================================================================================*/
' fonction avec le fichier ini pour l'application
'===================================================================================*/
'====================================================================================*/
' LireParametreIni : */
'====================================================================================*/
Sub LireParametreIni()
CheminBrowserIni = GetIniString("CHEMIN", "Browser", "", FIC_INI)
CheminPlaylistIni = GetIniString("CHEMIN", "Playlist", "", FIC_INI)
NomSkinIni = GetIniString("PARAMETRES", "NomSkin", "", FIC_INI)
VolumeIni = GetIniInt("PARAMETRES", "Volume", 0, FIC_INI)
RepeatIni = GetIniString("PARAMETRES", "Repeat", 0, FIC_INI)
RandomIni = GetIniString("PARAMETRES", "Random", 0, FIC_INI)
End Sub
'====================================================================================*/
' EcrireCheminBrowserIni: */
'====================================================================================*/
Sub EcrireCheminBrowserIni()
WriteIniString "CHEMIN", "Browser", CheminBrowserIni, FIC_INI
End Sub
'====================================================================================*/
' EcrireCheminPlayListIni: */
'====================================================================================*/
Sub EcrireCheminPlayListIni()
WriteIniString "CHEMIN", "Playlist", CheminPlaylistIni, FIC_INI
End Sub
'====================================================================================*/
' EcrireParametresIni: */
'====================================================================================*/
Sub EcrireParametresIni()
WriteIniString "PARAMETRES", "NomSkin", NomSkinIni, FIC_INI
WriteIniString "PARAMETRES", "Volume", Str(VolumeIni), FIC_INI
WriteIniString "PARAMETRES", "Random", Str(RandomIni), FIC_INI
WriteIniString "PARAMETRES", "Repeat", Str(RepeatIni), FIC_INI
End Sub

cs_DARKSIDIOUS · Answer

Tu as cherch&#233; un peu avant de post&#233; ta question ???


Voir les nombreuses sources parlant des fichiers ini sur le site.

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

Extraire du texte d'un fichier .ini

2 réponses

Discussions similaires