lire dans un fichier .ini

**porki** · 12/01/2006, 12h07

salut à tous et une bonne année,

dans les tutoriels j'ai trouvé du code pour lire dans fichier .ini

j'ai essayé mais cà n'a pas marché.
au fait je teste pour pouvoir le développer.

voici ce que j'ai fait:

dans un module j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" _
    (ByVal Section As String, ByVal Cle As Any, ByVal ValeurParDefaut As String, _
    ByVal lpReturnedString As String, ByVal nSize As Long, ByVal Fichier As String) As String
 
Private Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, _
    Optional ValeurParDefaut As String = "") As String
 
Dim strReturn As String
'strReturn = String(255, 0)
strReturn = GetPrivateProfileString(Section, Cle, ValeurParDefaut, , , Fichier)
'LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
 
End Function

et ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Command1_Click()
Text1.Text = LitDansFichierIni("NMT30", "mouv", "C:\Documents and Settings\lma\Desktop\liste_route.ini")
End Sub

et j'ai comme message

Run-time error '13' type mismatch

et la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text1.Text = LitDansFichierIni("NMT30", "mouv", "C:\Documents and Settings\lma\Desktop\liste_route.ini")

est sélectionnée

quelqu'un peut me corriger?
merci

**jmfmarques** · 12/01/2006, 12h12

Pourquoi chercher midi à quatorze heure dès lors que les fichiers .ini sont ouvrables en texte ???

Utilises donc tout bêtement la méthode open fichiermachin for input as # 1

**valval** · 12/01/2006, 13h11

salut!!!

je suis désolé de te le dire mais le code qui se trouve dans la faqvb marche parfaitement. je pense qu'il faut revoir ta copie.

**jmfmarques** · 12/01/2006, 13h21

Ah bon !

et, dis-moi, ça m'intéresse beaucoup :

Si tu dois planter un rosier dans ton jardin, tu prends simplement une bêche ou tu loues une pelle Poclain ?

Les 2 ferons certes l'affaire, mais l'usage d'une pelle Poclain serait abusif !

**porki** · 12/01/2006, 13h34

Envoyé par jmfmarques

Pourquoi chercher midi à quatorze heure dès lors que les fichiers .ini sont ouvrables en texte ???

Utilises donc tout bêtement la méthode open fichiermachin for input as # 1

explique toi stp!
moi ce que je veux c'est aller lire dans un fichier des paramètres

mouv="dep"
piste=20
rte="helen"
rte="denut"
...

et utiliser ces paramètres pour effectuer un traitement.

merci à tous et ne vous battez pas

**jmfmarques** · 12/01/2006, 13h38

Je ne vois là rien que ne peut résoudre simplement un simple open !!!...
mais j'ai encore une fois dû trop boire...

**Catbull** · 12/01/2006, 13h41

Envoyé par jmfmarques

Si tu dois planter un rosier dans ton jardin, tu prends simplement une bêche ou tu loues une pelle Poclain ?

Les 2 ferons certes l'affaire, mais l'usage d'une pelle Poclain serait abusif!

Je suis d'accord avec la métaphore, mais dans le cas présent, l'API GetPrivateProfileString représente la bêche.

Pourquoi se priver de l'utilisation d'API?

Porki, ton message signifie que tu essaies d'affecter à une de tes variables un type qui ne lui convient pas. Classiquement, une affectation du genre A = B avec A qui est déclaré en String, Integer ou autre et B qui est déclaré en Variant. Donc cherhce de ce coté.

De plus, je doute de l'efficacité de la fonction LitDansFichierIni quand je vois cette ligne commentée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)

**jmfmarques** · 12/01/2006, 13h56

Autant pour moi, CatBull!

Je disais toutefois récemment (je ne me rappelles plus à propos de quelle question) que j'étais tenté d'écrire un petit article sur l'opportunité ou non d'appeler l'API de Windows (j'aime beaucoup - trop ? - l'appeler en ce qui me concerne).

Quand l'appeler et quand ne pas l'appeler ? That's the real question !

J'ai quant à moi choisi de ne l'appeler que lorsqu'elle "soulageait le code (pour être plus précis : chaque fois qu'elle permettait d'éviter d'alourdir l'application par l'inscription d'un composant).

Dans le cas qui nous intéresse, Open... patati patata... est de toutes façons présent (qu'on le veuille ou non) et alourdit déjà tout. Ne pas l'utiliser et appeler l'API vient ajouter un peu de poids, c'est tout.

**porki** · 12/01/2006, 14h18

ok j'essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Open fichiermachin For Input As #1
Close #1

et je retrouve où ce qu'il y a dans le fichier? pour voir qu'il lit bien
merci

**jmfmarques** · 12/01/2006, 14h46

Je dirais par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
on error resume next                'pour le cas où je me tromperais sur l'ortographe du fichier 
 
Open fichiermachin For Input As #1
    Do While Not EOF(1)
      Line Input #1, inputdata
        msgbox inputdata 'juste pour voir ce que contient inputdata
     Loop
 Close #1
err.clear

**porki** · 12/01/2006, 14h58

Envoyé par jmfmarques

Je dirais par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
on error resume next                'pour le cas où je me tromperais sur l'ortographe du fichier 
 
Open fichiermachin For Input As #1
    Do While Not EOF(1)
      Line Input #1, inputdata
        msgbox inputdata 'juste pour voir ce que contient inputdata
     Loop
 Close #1
err.clear

c'est SUPER
je vais essayer de continuer
UN GRAND MERCI

**DarkVader** · 12/01/2006, 14h59

J'ai des doutes à ce qu'une procédure VB soit plus rapide que l'appel d'un fonction écrite en C et puisse ... soulager le code,
mais on peut toujours rêver à réinventer l'eau chaude !

A quoi servent les tutoriels ou les Faq - à proposer des solutions tordues ?

**jmfmarques** · 12/01/2006, 15h04

C'est un point de vue respectable (mais pas forcément complètement réfléchi), DarkVader... On y reviendra, je l'ai promis et le promets encore ici.

Amitiés

**leroissejp** · 12/01/2006, 16h38

Bonjour,
porki, si celà peut t'aider voici un code qui récupère les lignes 1 et 2 d'un fichier dans des TextBox.

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
 
Private Sub Command1_Click()
Dim nbrligne, ligne
Text1 = ""
Text2 = ""
nbrligne = 0
Open "C:\MonFichier.ini" For Input As 1
Do While Not EOF(1)
   Line Input #1, ligne
      nbrligne = nbrligne + 1
      If nbrligne = 1 Then 'Récupère la 3ème ligne
            Text1 = Text1 & ligne '& vbCrLf
     End If
          If nbrligne = 2 Then 'Récupère la 3ème ligne
            Text2 = Text2 & ligne '& vbCrLf
      End If
 
DoEvents
Loop
Close #1
End Sub

jpleroisse

**DarkVader** · 12/01/2006, 17h40

Envoyé par jmfmarques

C'est un point de vue respectable (mais pas forcément complètement réfléchi), DarkVader... On y reviendra, je l'ai promis et le promets encore ici.

Amitiés

J'attendrais le jour et la nuit .... avec impatience -
ceci dit, si l'on part du principe qu'un code plus rapide est un code plus optimisé
la solution par API l'est 25 à 30 fois plus.

**AlainTech** · 12/01/2006, 19h14

Je constate que certains préfèrent proposer une autre solution plutôt que de résoudre le problème d'origine.

Pour savoir ce qui se passe, je propose ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Command1_Click() 
  Dim vTemp as Variant ' Variant pour le cas où une erreur est retournée
  vTemp = LitDansFichierIni("NMT30", "mouv", "C:\Documents and Settings\lma\Desktop\liste_route.ini") 
  Msgbox vTemp
End Sub

**ThierryAIM** · 16/01/2006, 12h00

Pourquoi se torturer l'esprit alors qu'il suffit de copier correctement le code de la FAQ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Function LitDansFichierIni(Section As String, Cle As String, Fichier As String, _
    Optional ValeurParDefaut As String = "") As String
 
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString Section, Cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LitDansFichierIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
 
End Function

lire dans un fichier .ini

VB 6 et antérieur

Discussions similaires

Partager

Partager