écriture fichier txt/ini

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : écriture fichier txt/ini

destynov@

Yo tout le monde =) bon je te sens chaud JihemAir aujourd'hui =) j'aimerais savoir s'il est possible en VBA de manipuler(ouverture, écriture,...) des fichiers ini, ou alors au pire des fichiers texte??? Merci d'avance

Publicité

JihemAir

Je sais pas

Je suis sur un job pas très exitant, alors je me distrais sur le forum :-))
Tu peux lire et écrire les fichiers .ini avec les API:
GetPrivateProfileString et WritePrivateProfileString (de mémoire). C'est le plus efficace.
Si tu veux un exemple, fais moi signe, parce que récupérer les valeurs de retour d'API dans VB exige qq précautions.

destynov@

De mémoire ce sont aussi celles utilisées en C++, mais elle ne fonctionnent pas en VBA!!! bouh... =( Il y a p-ê moyen d'inclure des librairies nan?

JihemAir

Je sais pas

J'ai pas Split mais j'ai les API :lol:
Plus sérieux...
Dans le module, dans la section déclarations:

Code :

Public 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

et tu vas voir que VBA la reconnait.

destynov@

JihemAir a écrit :

J'ai pas Split mais j'ai les API :lol:
Plus sérieux...
Dans le module, dans la section déclarations:

Code :

Public 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

et tu vas voir que VBA la reconnait.

yaeh ça marche!!! décidément tu es vmt trop fort... :love: lol. ce qui est en gras est pour intégrer des API? sinon pour les paramètres : le 1er, fo mettre koi? normalement c'est un handle qu'on passe en c++. là ce serait "XLMAIN" par exemple?

destynov@

hey le code ne se met pas en gras...

JihemAir

Je sais pas

Le 1er param, c'est l'entrée dans le fichier .ini,
[Appli],
le 2ème c'est la clé
IniPath=
Le 3ème c'est une valeur pas défaut si y a rien à extraire

etc.. mais c'est quoi cette histoire de gras ?

destynov@

pr le gras, tu vois pas les balises dans la citation de ton code? pr les paramètrse j'essaie et je te dis...

destynov@

Alors ça marche pas terro :

Code :

Private Sub CommandButton1_Click()
Dim retour, str
retour = GetPrivateProfileString("TOTO", "titi", "", str, 15, "c:\\toto.ini" )
End Sub

retour=5 et str=vide.
Les paramètres doivent avoir un pb. avant le chemin du fichier, c bien le nb de caractères prévu à récupérer non?

JihemAir

Je sais pas

Demain, parce que là, il faut que j'y vais. Bye.

Publicité

destynov@

bonne soirée! ah la la et il me laisse tt seul ds la galère... Au Secours!!! si qq'un m'entend....

destynov@

yo sa marche!!! j'ai créé un ini avec WritePrivateProfileString puis je l'ai relu, et impecc! retour est le nb de caractères lus. merci pr ton aide=)

prog1001

ya un truc que je ne comprend pas, un ini, c'est pas crypté alors pourquoi ne pas le lire et l'ecrire avec Open.

L'API ferait-elle un truc de plus ?

destynov@

Avec la fonction Open (que je ne connais pas, je ne fais jamais de VB habituellement), est-ce qu'il ne faut pas déplacer un pointeur pour lire et écrire dans le fichier? de ttes façons il faut se dire que la fonction Open utilise très certainement des fonctions de l'API. avec WritePrivateProfileString, on accède directement aux sections et valeurs. c qd même bcp + rapide.

destynov@

je viens de retrouver les termes exacts. Avec Open, tu obtient un accès séquentiel au fichier, et avec les API Write... et Get... tu as un accès direct. j'espère avoir répondu à ta question. =)

prog1001

Non avec Open, tu as aussi un accés direct et le pointeur se déplace a chaque input # si tu lis en mode input.

Open est très pratique pour ouvrir n'importe quel fichier et tu peut les ouvrir dans different modes :
-Append : pour écrire directement a la fin du fichier
-Binary : lit par octet je croit
-Input: lecture normal (Input = lire jusqu'a une virgule, Line Input =lire ligne après ligne)
-Output : (écrire avec Write(place les chaines de texte entre quillemets) ou Print (écrit tel quel))
-Random : pour lire et écrire dans le meme mode (Put pour écrire et Get pour lire)

Exemple :
Open "Chemin\du\fichier" For Output as #1
Write #1, "Toto"
Print #1, "Toto"
Close #1

Resultat dans le fichier il sera écrit :
"Toto"
Toto

et tu peut faire encore plein de truc mais il faudrais plusieurs pages pour tout afficher.
L'aide de VB sur Open n'est pas très complètes je trouve (sur un pt de vue des exemples).

j'ai pas testé l'API, je vais le faire pour voir la difference.

drasche

on parle de fichiers ini ici, laisse lui utiliser les API, c'est ce qu'il y a de mieux et de plus sûr

(chuis pas fan des fonctions fichiers en VB, plus merdique et flou que ça, tu meurs)

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)

JihemAir

Je sais pas

Qq précisions sur la lecture des fichiers:

Citation :

Non avec Open, tu as aussi un accés direct et le pointeur se déplace a chaque input # si tu lis en mode input.

Oui mais si ton fichier fait 10000 lignes, tu dois te pastiller la lecture ligne à ligne, avec test si c'est la bonne à chaque lecture. C'est pas vraiment direct!
Avec les API, tu sautes directement à la section qui t'intêresse, en 1 ligne de code.

L'important, c'est de préparer le buffer de réception des données retournées, sinon, la méchante API, elle plante le gentil programme VB!
Dans notre cas:

Code :

Option Explicit
Private 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
Private Sub Form_Load()
Dim lRet As Long, lSize As Long
Dim strApplicationName As String, strKeyName As String
Dim strDefault As String, strReturnedString As String
Dim strFileName As String
' lRet = Nb de caracteres retournés
' strApplicationName = Nom de la section à lire
' strKeyName = Clé dans la section
' strDefault = Chaine à utiliser si rien trouvé.
' strReturnedString = chaine lue dans le .ini
' lSize = longueur maxi à lire
' strFileName = nom du fichier .ini
' Initialiser le buffer de retour (très important!!!!)
strReturnedString = Space(255)
strApplicationName = "User"
strKeyName = "ScalingList"
strDefault = "Pas trouve"
lSize = 255
strFileName = "c:\win\Lndi.ini"
lRet = GetPrivateProfileString(strApplicationName, _
strKeyName, strDefault, strReturnedString, lSize, strFileName)
' On se debarrasse du caractere de fin de chaine typique du C.
strReturnedString = Left(strReturnedString, lRet)
End Sub

destynov@

en effet, si le buffer n'est pas préparé, c même excel qui plante (il se ferme sans rien dire! d'où l'intérêt de sauvegarder de tps en tps...)

destynov@

j'aurais voulu savoir comment faire pour que le fichier ini soit dans le répertoire courant et ne pas désigner un chemin en dur dans le code.

JihemAir

Je sais pas

Application.Path ?

destynov@

ouais, ms non... il me donne où tourne excel, et moins j'aimerais qu'il me donne le chemin où est le document... merci qd même =)

JihemAir

Je sais pas

==> ThisWorkbook.Path

destynov@

merci bcp!!! c qd même vachement complet le VBA!

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

écriture fichier txt/ini

Sujets relatifs
Soucis d'écriture d'un fichier BITMAP [RESOLU]	Problème écriture dans fichier texte
[ASP.NET][C#]ecriture d'un fichier xml	[C++]Ecriture dans un fichier texte
méthode optimisée d'écriture dans un fichier log	Ecriture dans un fichier XLS : problème de format
BMP à SHP - Ecriture de n bytes ds un fichier, Taille réelle : n+1	BMP à SHP - Ecriture de n bytes ds un fichier, Taille constatée: n+1
[Help needed] Pb de fprintf , ecriture dans un fichier.	[C++ Builder] Problème étrange entre OpenDialog & écriture de fichier
Plus de sujets relatifs à : écriture fichier txt/ini

Page générée en 0.101 secondes