écriture et lecture d'un fichier texteRésolu

Question

Bonjour à tous

je suis en train de faire une macro qui me permet de renseigner des paramètres concernat des fichiers dans un fichier texte. Je suis confronté à plusieurs problèmes : 
1erement : est-il possible d'ouvrir un fichier si on ne connait qu'une partie de son nom (une reference).
2emement : comment on écrit dans le fichier texte
3emement : comment récupère-t-on les données stockées dans ce fichier. En gros, dans le .txt, il y aura une référence et pleins de paramètres qui s'y rapportent. Ce qui m'intéresse, c'est à partir d'un paramètre récupérer les références qui correspondent.

j'espère que vous pourrez m'aider !

merci

Max

mfaure · Accepted Answer

re salut !

considère que je n'ai rien dit, j'avais juste un peu mal modifié le code, voici donc le résultat :

Private Sub Form_Load()
'   ta ref connue
    Dim sRef As String
    sRef = "98765"

'   tu veux ouvrir le fichier "DESIGNATION_REFCLIENT_123_456-7_REFINTERNE_98765.CATProduct"
    Dim sFile As String
    sFile = Dir(sMyPath + "*" + sRef + "*.CATProduct")
        MsgBox sFile

'   donc?
    If sFile = vbNullString Then
        MsgBox "fichier introuvable"
    Else
'       tes actions sur un fichier
        MsgBox "le chemin complet est : " & vbCrLf & sMyPath & sFile
    End If

    'Unload Me
End Sub

et ça marche... mon erreur venait du fait que je mettais sFile = Dir(sMyPath + "*.*" + sRef + "*.CATProduct") le *.* ne servait à rien...

mortalino · Answer

Salut mfaure !

Le moteur de recherche est là pour te renseigner.
Si tu tapes "lire écrire fichier texte" tu trouveras ton bonheur.

@ ++

Mortalino

PCPT · Answer

salut,
et pour la question 1, tu dois "recomposer" ton nom de fichier avant d'y acc&#233;der. 
un peu en dessous ...-> forum

mfaure · Answer

salut merci pour vos réponses. cependant, concernant la question 1, mon cas est un peu différent de celui évoqué dans le forum. en effet, dans le forum, on connait, au chifre près le nom du fichier, ce qui n'est pas mon cas. Moi je ne connais que la référence, mais pas le reste, et comme le nom du fichier contient une désignation qui n'est jamais la même, je ne peux donc pas appliquer cette solution là (le nom du fichier est de ce type : DESIGNATION_REFCLIENT_XXX_XXX-XXXX_REFINTERNE_XXXXXX.Catqqchose, où X représente un chiffre)Ce qui m'intéresse, c'est de pouvoir ouvrir le fichier en ne renseignant que la ref client...

pour le reste, je cherche et je réfléchis.

merci pour vos réponses

Max

PCPT · Answer

en VB6 ? Option Explicit Const sMyPath As String = "C:\MonAppli\Datas" ' ' Private Sub Form_Load() ' ta ref connue Dim sRef As String sRef = "ClientDurand" ' tu veux ouvrir le fichier "ClientDurand_111_234-546_CD_060418.txt" Dim sFile As String sFile = Dir (sMyPath & sRef & "*.*") ' donc? If sFile = vbNullString Then MsgBox "fichier introuvable" Else ' tes actions sur un fichier MsgBox "le chemin complet est : " & vbCrLf & sMyPath & sFile End If Unload Me End Sub Coloration syntaxique automatique [AFCK]

mfaure · Answer

Salut merci, je voulais dire "en ne renseignant que la ref interne", c'est à dire les derniers XXXXX du nom du fichier. j'ai quand meme modifié le bout de code en conséquent, mias ça n'a pas l'air de marcher, la variable sFile reste vide :(
je continue à chercher, merci pour vos réponses

Max

(pour info, je ne crois pas que je travaille en VB6 exactement, je crois qu'il s'agit du VB spécifique à Catia (il me semble que c'est légèrement différent))

PCPT · Answer

re,
pense &#224; remplacer tes + par &.
(pourquoi? bah parce que c'est comme &#231;&#224; ^^, le + fonctionne mais est TR&#232;S d&#233;conseill&#233; car op&#233;rateur-de-calcul et non op&#233;rateur-de-concat&#233;natation)

écriture et lecture d'un fichier texte

7 réponses

Discussions similaires