Utilisation d'un fichier texte comme fichier config.textRésolu

Question

Bonjour tout le monde, J'ai un petit problème: j'ai créer un fichier config (test.text) à partir duquel je souhaite extraire des infos pour les utiliser dans mon programme en les comparant avec des noms de fichiers("toto") et des poids de référence("poids") lus. En effet, j'ai stocker dans le tableau Max(i) tous les poids des fichiers(en octets) et dans Nom(i) toutes les chaînes de caractères qui permettrons d'identifier un nom de fichier et de tester son poids avec la référence. *** le premier problème est que les identifiants n'ont pas la même longueur, j'ai créé une longueur standard et donc quand je les copie dans le tableau, certains comportent des espaces et donc ne peuvent pas être identifiés. --- l'idée que j'avais c'était de supprimer tous les espaces avant de commencer les tests mais ça a pas marché. *** l'autre problème est que j'arrive pas à le faire les tests sous forme de boucle :c'est à dire un test pour tous. Rmq : Text1 est un répertoire. NB : le fichier texte est en bas. Merci de votre aide ****************************************************************************** Private Sub Command1_Click() ''''''' Dim i As Integer 'Déclaration de tableau Dim Nom(1 To 25) As String Dim Max(1 To 25) 'ouverture de la feuille à lire Open "c:\documents and settings\??????\bureau est.txt" For Input As #1 'lire jusqu'à la fin de la page ''''''' Do Until EOF(1) i = i + 1 Line Input #1, Ligne Var1 = Mid(Ligne, 1, 7) Var2 = Mid(Ligne, 10, 15) Max(i) = Var1 Nom(i) = Var2 Loop ''''''' Dim fos As Scripting.FileSystemObject Dim fd As Scripting.Folder Dim fl As Scripting.File Dim sFolder As String 'Initialisation du nom du dossier sFolder = Text1 Set fos = CreateObject("Scripting.FileSystemObject") 'Récupérer l'instance du dossier Set fd = fos.GetFolder(sFolder) 'lister les fichiers For Each fl In fd.Files toto = fl.Name poids = fl.Size If InStr(toto, Nom(1)) > 0 Then if poids 0 Then if poids

kg_online · Accepted Answer

Merci Italia et Manu j'ai pu trouver la solution seul.En fait j'ai utilisé la fonction Trim de VB pour supprimer tous les blancs qui se trouvaient dans la chaîne de caractères avant de la mettre dans le tableau. Voici ce que ça a donné: ''''''' Do Until EOF(1) i = i + 1 Line Input #1, Ligne Var1 = Mid(Ligne, 1, 6) Var2 = Mid(Ligne, 11, 8) Max(i) = (Var1) Nom(i) = Trim(Var2) Loop ''''''' Dim fos As Scripting.FileSystemObject Dim fd As Scripting.Folder Dim fl As Scripting.File Dim sFolder As String 'Initialisation du nom du dossier sFolder = Text1 Set fos = CreateObject("Scripting.FileSystemObject") 'Récupérer l'instance du dossier Set fd = fos.GetFolder(sFolder) 'lister les fichiers For Each fl In fd.Files 'List1.AddItem fl.Name toto = fl.Name poids = fl.Size If InStr(toto, Nom(1)) > 0 Then if poids 0 Then if poids

econs · Answer

Jette un oeil &#224; ce code-l&#224;. Il devrait t'apporter des id&#233;es :



Dim tablo() As String

Dim maLigne As String

Dim i As Long



    maLigne = "6656     ""MID_8_PV.mid""      S3r_PV"

    

    tablo = Split(maLigne, " ", , vbTextCompare)

    For i = LBound(tablo) To UBound(tablo)

        If Len(tablo(i)) > 0 Then

            MsgBox tablo(i)

        End If

    Next i




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_ITALIA · Answer

Pourquoi ne pas utiliser un fichier .INI ?

It@li@

kg_online · Answer

Italia je comprends pas trop le syt&#232;me fichier.INI

kg_online · Answer

Manu j'ai essay&#233; ton programme mais &#231;a marche que sur une ligne, mais moi j'aimerai l'utiler sur les colonnes.
Exemple:
12333
12226
69969
44444

Merci

Utilisation d'un fichier texte comme fichier config.text

5 réponses

Discussions similaires