begin process at 2012 02 16 02:11:05
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

Problème code


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Problème code

vendredi 11 juillet 2003 à 03:11:45 | Problème code

MatthieuFourcade

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
vendredi 11 juillet 2003 à 05:09:57 | Re : Problème code

Houzefa

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


-------------------------------
Réponse au message :
-------------------------------

> 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


Cette discussion est classée dans : code, genres, repertoire, lect, nbgenres


Répondre à ce message

Sujets en rapport avec ce message

Permissions NTFS [ par Angus59 ] Bonjour à tous,J'ai besoin de votre aide, je vous explique  ( environnement NT)Je voudrais modifier les permissions sur un repertoire sur le reseau.\\ CHANGEMENT DE REPERTOIRE [ par bimbo777 ] Bonjour,Je suis sur un code de renommage automatique que j'ai developpé sous VS2005.Le prblm que j'ai c'est que mon code agit que sur la racine du dos Fonction Dir récursive [ par legion91 ] Voila je cherche le moyen de liste tout les fichiers d'un repertoire et ses sous répertoire avec la fonction Dir.Car la sa n'affiche que le repertoire Creation repertoire et verification qu'il n'existe pas [ par niblon ] Bonjour a tous. je cherche a ce que mon appli creer un repertoire "Photo" si l'utilisateur selectionne le "cbx_Camera" jusque la tout va bien . [cod Changer de repertoire [ par bimbo777 ] Bonjour je suis sous VS2005 et j'utilise dans mon code:Dossier1 = Fso.GetFolder("E:\test")biensur, mon code agit sur ce dossier en question...J Code ne fonctionne pas ,sauvegarde image [ par niblon ] Bonjour a tous , Je cherche a changer le nom du fichier et l'extension et le repertoire : j'ai utiliser ce code ci dessous (code d'origine)[code=vb]P sauvegarde/restauration de donnes [ par AOW ] [img]http://sphotos.ak.fbcdn.net/hphotos-ak-snc4/hs314.snc4/41017_152915334736887_100000552656459_376220_234530_n.jpg[/img] Bonjour, Je voudrais savoi information sur la creation d'un dossier [ par niblon ] Bonjour a tous. Je voudrais creer un repertoire (Photo) pour mon application , mais je voudrais savoir si mon code vous parais correct [^^happy8] [co Intenet via VBA [ par rolly2520 ] Bonjour, Voilà, J'ai besoin d'agir sur quelques pages intranet de mon taf, ce que je fais sans problème avec le bout de code ci-dessous. Cependant po Code marche qu'a moitier (changer image bureau) [ par niblon ] Bonjour a tous Voila je voudrais que l'utilisateur puisse changer l'image du bureau et de la barre d'outil de mon application(par deux images stocke


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,108 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales