Problème code

Question

Bonjour j'ai le code suivant: Dim Repertoire As String Dim Lect As String Repertoire = App.Path Rectifier Repertoire NbGenres = -1 If Dir(Repertoire & "genres.txt") <> "" Then Open Repertoire & "genres.txt" For Input As #1 Do Until EOF(1) Line Input #1, Lect Lect = Trim(Lect) If Lect <> "" Then NbGenres = NbGenres + 1 ReDim Preserve Genres(0 To NbGenres) Genres(NbGenres) = Lect End If Loop Close Else MsgBox "Impossible de charger les genres de musiques", vbCritical End End If Voila!! en en fait il fait référence un fichier txt extérieur qui contient le nom des différents genre. En fait je voudrai modifier ce code pour intégrer directement les genres et ne pas avoir a faire référence a un fichier éxtérieure. Quelqu'un pourrais m'aider ? Merci Autre Question: Est ce que on peut faire des recherche dans une flexgrid ? Merci a+ Matt

cs_Houzefa · Answer

tu peux rajouter un textbox qui autorise les multilines sur ton form. ensuite avec une boucle for tu parcours tout le tableau Genres et tu affiches le résultat dans le textbox. comme ca tu peux générer un autre tableau que tu n'auras plus qu'a copier-coller dans le code ; et yaura plus besoin de lire l'autre fichier.

Houzéf@ - www.123toto.com

Problème code

1 réponse

Discussions similaires