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

Foxcode partage   



L'auteur

eddymaue
Canada 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é 4989 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0

Description

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 (_foxcodeShared

  * ******************************************  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é ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0