ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Foxcode partage

	Description
Retour à la liste L'auteur eddymaue Canada Membre Simple # 0000000075 enregistré le 26/10/2004 Maue Eddy j8j 8j8 Gatineau de la société Formatek Fiche personnelle Note des membres pas de note	Contributions > 21 - Outils Foxcode partage # 0000000708 ajouté le 16/07/2009 06:09:21 et modifié le 17/07/2009 consulté 9906 fois Niveau débutant Version(s) Foxpro : VFP 9.0
	J'ai ajouté une nouvelle fonctionnalité à FoxcodeAddon en plus de la correction de multiple bugs. Téléchargez la nouvelle mise à jour fait ajourd'hui et regardez ci-bas ce que génère le bouton Partager ne vous reste plus qu'à coller dans une fenêtre d'édition et exécuté le code pour àjouter GetDrive à Foxcode le lien pour FoxCodeAddon http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000418
	Code source :
	Select 0 Use (_foxcode) Shared * ****************************************** ET GetDrive Append Blank replace abbrev with "GetDrive" replace expanded with "GetDrive" replace cmd with "{funcmenu2}" replace tip with ReplaceCaractere([@ArrayName, cTypeDriveExpression]+Chr(13)+; []+Chr(13)+; [Retourne une chaiine de charatère comme õc:\,e:\,....z:\õ]+Chr(13)+; [.]+Chr(13)+; []+Chr(13)+; []+Chr(13)+; []+Chr(13)+; []) replace data with ReplaceCaractere([2,DriveTypeTip,T]) replace case with "M" replace save with .F. replace timestamp with Datetime() replace source with ReplaceCaractere([RESERVED]) replace uniqueid with Sys(2015) replace user with ReplaceCaractere([]) * ****************************************** ET DriveTypeTip Append Blank replace abbrev with "DriveTypeTip" replace expanded with "DriveTypeTip" replace cmd with "" replace tip with ReplaceCaractere([Drivetype definition ]+Chr(13)+; []+Chr(13)+; [ajouter Comme suivant]+Chr(13)+; []+Chr(13)+; [õ123456õ]+Chr(13)+; []+Chr(13)+; [lcType =]+Chr(13)+; [ 1 = õinconnuõ]+Chr(13)+; [ 2 = õfloppyõ]+Chr(13)+; [ 3 = õdisque durõ]+Chr(13)+; [ 4 = õDisque reseau ou amovibleõ]+Chr(13)+; [ 5 = óCD ROMó]+Chr(13)+; [ 6 = óDisque RAMó]+Chr(13)+; []) replace data with ReplaceCaractere([]) replace case with "M" replace save with .F. replace timestamp with Datetime() replace source with ReplaceCaractere([RESERVED]) replace uniqueid with Sys(2015) replace user with ReplaceCaractere([]) Procedure ReplaceCaractEre(lcTxt) Return Chrtran(lcTxt,Chr(241)+Chr(242)+Chr(243)+chr(244)+Chr(245),"[]'&"+Chr(34))
	Commentaires
	Aucun commentaire enregistré ...

Foxcode partage

Contributions > 21 - Outils