Bienvenue invité. SVP enregistrez vous pour être membre.
:: Connexion
Identifiant :

Mot de passe :

Se souvenir de moi



Mot de passe perdu ?

Inscrivez-vous !
:: Recherche
:: Menu Principal

Parcourir ce sujet:   1 Utilisateur(s) anonyme(s)



« 1 (2) 3 »


Re: Developpement d'utilitaires à la demande
Expert
Inscrit:
21/02/2007 22:15
Groupe:
Utilisateurs enregistrés
Post(s): 2044
Hors Ligne
Doit y avoir moyen de faire la même en commandes DOS, avec quelques utilitaires importés d'unix si besoin ^_^

Contribution le : 10/01/2008 18:42
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Régulier
Inscrit:
10/03/2005 22:13
De France
Groupe:
Utilisateurs enregistrés
Post(s): 234
Hors Ligne
Citation :

godel1649 a écrit:

Autre demande
j ai parfois de nombreux fichiers à trier (des photos)
leur nom comporte une partie fixe et une variable
exemple
abc001
abc002
..
abc999
abd001
abd002
abd003
...
zaa0001
zaa0002

j aimerais que "automatiquement" ces fichiers soirent rangés dans des sous répertoires nommés par la partie "fixe" de leur nom (la création de ces répertoires devant être auto aussi)
ie. ici abc/abd/zaa

Bon ce ne sont que des idées...


Voici la réalisation de cette idée ci-dessous :
#Option Strict
#AppType CONSOLE

#Define     SEP ""
#DllDeclare MSVCRT( mkdir )
#DllDeclare KERNEL32( CopyFile, DeleteFile )


Dim esNamesFoldersNumbervtPics[]

Color(110): Cls
'Test()

? "        // ***************** //"
? "       //    RANGEUR 1.0    //"
? "      // ***************** //"
?.
sFolder = Curdir()
If Right(sFolder, 1) <> SEP Then sFolder = sFolder & SEP
GetFiles( sFolder, "*.jpg" )

ForEach e In vtPics: CutFile(e, sName, sNumber): Next e
? "< The End :)"
?.
Pause

Sub CutFile(sSource_, sName_, sNumber_)
Static %i, %j
    For i = 1 To StrLen(sSource_)
        If sSource_{i} >= "0" AndAlso sSource_{i} <= "9" Then
                sNumber_ = Mid(sSource_, i)
                sName_   = Left(sSource_, i-1)
                If NOT FileExist(sName_) Then
                    mkDir(sName_)
                    ? "> Creation du repertoire '", sName_, "'"
                End If
                If CopyFile(sSource_, sName_ & SEP & sSource_, FALSE) Then
                    ? "> " & sSource_, " file copied to ", sName_ & SEP & sSource_
                    DeleteFile(sSource_)
                End If
            Exit For
        End If
    Next i
End Sub

Sub GetFiles(sPath, sJoker)
Dim x
    If FindFirst( sPath & sJoker ) <> "" Then
        vtPics[] = FindFirst
        x = FindNext()
        While x <> ""
            vtPics[] = x: x = FindNext()
        Wend
    End If
    ? "> " & Count(vtPics), " '" & sJoker & "' files found!"
End Sub

Sub Test()
    ? "Test..."
    vtPics = { "abc001.jpg", "abc002.jpg", "abd001.jpg", "abd002.jpg", "zaa0001.jpg" }
    ForEach e In vtPics: FileClose( FileOpen(e, BINARY_NEW) ): Next e
    Pause
End Sub


Il suffit de telecharger FBSL ici et ensuite de récupérer le code qui est cité ci-dessus, de l'enregistrer avec l'extension .FBS et de placer ce script dans le répertoire où tu as tes .JPG
Si tu veux donner d'autres noms d'extension, il suffit de changer la ligne 20 du script : GetFiles( sFolder, "*.jpg" )
par les jokers voulus :)

Voilà, c'est ce que j'appelle une éalisation honnête et rapide pour moi à développer!

A noter que ce script peut etre compilé en EXEcutable 100% autonaume

Enjoy FBSL!

Contribution le : 10/01/2008 22:20
_________________
G?r?me GUILLEMIN
Le site de FBSL : http://www.fbsl.net
Tutoriel en fran?ais : http://gedd123.free.fr/Fbsl/Tutoriel.pdf
FBSL sur GRATILOG c'est ici : http://www.gratilog.net/xoops/modules ... lefile.php?cid=72&lid=430
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Régulier
Inscrit:
14/09/2007 18:38
De Agen
Groupe:
Utilisateurs enregistrés
Post(s): 232
Hors Ligne
OUahhhh
je n'y croyais pas

Je vais essayer maintenant de comprendre comment cela fonctionne....

Et donc me plonger dans ce langage...

Merci et bravo !
sincèrement
Patrice

Contribution le : 11/01/2008 07:59
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Régulier
Inscrit:
10/03/2005 22:13
De France
Groupe:
Utilisateurs enregistrés
Post(s): 234
Hors Ligne
Tout vient à point pour celle/celui qui sait attendre :)

Contribution le : 11/01/2008 10:22
_________________
G?r?me GUILLEMIN
Le site de FBSL : http://www.fbsl.net
Tutoriel en fran?ais : http://gedd123.free.fr/Fbsl/Tutoriel.pdf
FBSL sur GRATILOG c'est ici : http://www.gratilog.net/xoops/modules ... lefile.php?cid=72&lid=430
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Nouveau
Inscrit:
29/03/2007 18:04
Groupe:
Utilisateurs enregistrés
Post(s): 9
Hors Ligne
Bonjour Gérôme,

Ta proposition est... irrésistible !

Un petit utilitaire me manque beaucoup depuis que je suis passée sous Vista : InfoTipX2. Il fonctionne encore avec certains Vista (dont celui de mon pc précédent), mais pas avec le mien (snif !) et j’ignore pourquoi.

Il permet de voir le contenu-texte d’un fichier .txt (ainsi que .inf et .log) simplement en passant le curseur sur le fichier, sans avoir besoin de cliquer. Le texte s’affiche dans une info-bulle. (Je connais le volet de visualisation de Vista, mais c’est moins immédiat, et je n’aime pas le laisser ouvert car il prend de la place.)

InfoTipX2 a de nombreuses autres fonctions intéressantes, mais je les utilisais beaucoup moins.

Alors, j’ose te demander si ce serait possible d’avoir un équivalent ?

Quelle que soit ta réponse, je te remercie vraiment beaucoup de proposer ainsi tes services ! :)

Elanore

Contribution le : 11/01/2008 13:58
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Régulier
Inscrit:
10/03/2005 22:13
De France
Groupe:
Utilisateurs enregistrés
Post(s): 234
Hors Ligne
Bonjour,

Je viens d'installer InfoTipX sur mon XP SP2 et en effet cela à l'air sympa :)

Cependant je ne pourrais pas développer un tel soft qui aurait le meme comportement, càd completement intégré au Shell dans la mesure ou infotipX est une DLL COM, et en FBSL on ne peut developper que des EXEcutables standards.

Par contre développer une application qui serait un EXE en FBSL et l'intégrer au clic droit sur n'importe quel fichier pour avoir des infos, oui c'est possible, cela nécessitera un clic droit dans le popup menu, contrairement à infotipX qui outrepasse ce clic droit sur le popupmenu :)

Alors on fait quoi ?

Contribution le : 11/01/2008 18:44
_________________
G?r?me GUILLEMIN
Le site de FBSL : http://www.fbsl.net
Tutoriel en fran?ais : http://gedd123.free.fr/Fbsl/Tutoriel.pdf
FBSL sur GRATILOG c'est ici : http://www.gratilog.net/xoops/modules ... lefile.php?cid=72&lid=430
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Nouveau
Inscrit:
29/03/2007 18:04
Groupe:
Utilisateurs enregistrés
Post(s): 9
Hors Ligne
Bonsoir,



Si tu me demandes mon avis, je te réponds sans hésiter, oui, on fait (en l'occurrence, je devrais plutôt dire "tu" fais !).

Certes, ce ne sera pas tout à fait la même chose, mais ce sera beaucoup mieux que d'ouvrir le fichier, et de cette manière j'aurai un accès bien plus rapide à ma flopée de .txt : j'en crée un avec FileNote (un autre petit utilitaire très pratique) chaque fois que je télécharge un programme, et j'y colle le descriptif du programme en question. Le descriptif vient très souvent de Gratilog d'ailleurs, c'est mon site de référence ès freewares.

Plein de mercis pour ta réponse si rapide et positive !

Elanore

Contribution le : 11/01/2008 19:25
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Régulier
Inscrit:
10/03/2005 22:13
De France
Groupe:
Utilisateurs enregistrés
Post(s): 234
Hors Ligne
Bonsoir,

Pour celles et ceux qui ont installés FBSL sur leur PC ( c'est gratuit hein :) ), voici un GRATILOG 'embarqué'.
Ceci est une idée pratique, vous aurez juste à changer l'URL pour embarquer n'importe quelle URL ou encore n'importe quel fichier HTML (local ou distant)!
Comme par exemple pour faire des demos tournantes (je pensais à mageCollection qui génère des planches d'images que l'on peut animer...)

#Option Explicit

Static %hDisplay$URL "http://www.gratilog.net/xoops/"

ApiCall"AtlAxWinInit""ATL" )

Fbsl_SetText(ME"== E M B E D D E D  G R A T I L O G ==")
Resize(ME00800640)
Center(ME)

Const 
hURL Fbsl_Control("Edit"MEURL010336823_
            WS_CHILD 
WS_TABSTOP ES_AUTOHSCROLLWS_EX_CLIENTEDGE)

hDisplay Fbsl_Control("AtlAxWin"ME"MSHTML:<HTML></HTML>"_
            0
030800640WS_CHILD WS_VISIBLEWS_EX_CLIENTEDGE)
'========this eliminates flicker on window resize======
ApiCall( "SetClassLong", "user32", Me, -26, 8 )
EventGo()
PostMessage( Me, WM_SYSCOMMAND, SC_MAXIMIZE, NULL )
RefreshMe()
Show(Me)

Begin Events
    Select Case CBMSG
        Case WM_SIZE
            RefreshMe()
        Case WM_CLOSE
            ExitProgram(0)
    End Select
End Events

Sub EventGo()
    Fbsl_GetText(hURL, URL)
    If URL = "" Then Return
    If (hDisplay <> 0) Then Destroy(hDisplay)
    hDisplay = Fbsl_Control("AtlAxWin", ME, URL, 0, 0, 10, 800, 640, _
               WS_CHILD + WS_VISIBLE + WS_VSCROLL + WS_HSCROLL, WS_EX_CLIENTEDGE)
    RefreshMe()
End Sub

Sub RefreshMe()
    Static %Lefti, %Topi, %Righti, %Bottomi
    GetClientRect(ME, Lefti, Topi, Righti, Bottomi)
    Resize(hDisplay, 5, 5, Righti - 5, Bottomi - 10)
End Sub


Enjoy

Contribution le : 14/01/2008 22:20
_________________
G?r?me GUILLEMIN
Le site de FBSL : http://www.fbsl.net
Tutoriel en fran?ais : http://gedd123.free.fr/Fbsl/Tutoriel.pdf
FBSL sur GRATILOG c'est ici : http://www.gratilog.net/xoops/modules ... lefile.php?cid=72&lid=430
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Nouveau
Inscrit:
13/04/2007 16:16
Groupe:
Utilisateurs enregistrés
Post(s): 3
Hors Ligne
Salut, tout ce que tu fais est vraiment super, mais pour ton dernier script, je ne vois pas l'intérêt comparé a prism (peut être ne connaissait tu pas ?).

Je penserais a toi si j'ai une idée d'application (la c'est le néant ...)

Contribution le : 18/01/2008 11:35
Créer un fichier PDF de la contribution Imprimer


Re: Developpement d'utilitaires à la demande
Régulier
Inscrit:
10/03/2005 22:13
De France
Groupe:
Utilisateurs enregistrés
Post(s): 234
Hors Ligne
Bonjour,

Merci pour tes encouragements :)

Ceci étant, prim est une application à part entière, et le script fbsl pour embarquer une page html (locale ou distante) n'est qu'un bête script, donc simple mais pratique.

Je ne prétends pas détrôner l'utilisation d'autres logiciels, c'est juste plus facile et rapide à développer un script qui te donne une immediateté que tu n'aurais pas forcément sous d'autres formes :)

Contribution le : 18/01/2008 14:01
_________________
G?r?me GUILLEMIN
Le site de FBSL : http://www.fbsl.net
Tutoriel en fran?ais : http://gedd123.free.fr/Fbsl/Tutoriel.pdf
FBSL sur GRATILOG c'est ici : http://www.gratilog.net/xoops/modules ... lefile.php?cid=72&lid=430
Créer un fichier PDF de la contribution Imprimer



 Haut   Précédent   Suivant
« 1 (2) 3 »




Enregistrer votre réponse
Compte*
Nom   Mot de passe    
Message:*


Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]