Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[batch/c]Turbo Batch 1.0
Auteur Message
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Salut à tous!

Voici un petit éditeur codé en batch qui permet de creer, d'éditer et d'executer des batchs (une sorte de petite ide en quelque sorte Mr. Green)
Ce n'est qu'une bêta donc soyez indulgents Wink je projette d'y aujouter un débugger, une coloration synthaxique,, et plus si affinitées Mr. Green

Cette foi çi, je fais totalement dans l'open source j'ai distribué les code sources sources des commandes externes dans l'archive.Vous etes libre de modifier l'éditeur set de distribuer cette version modifier à condition de garder la paternité, et de distrubuer la version modifiés sous les mêmes conditions que celles-ci.

Vous pouvez télécharger l'arche sfx ici

Os de dévellopement : Windows Xp Pro

Code:
@echo off
:: Turbo Batch Editor [version 0.1 (beta)]
:: By darkbatcher
SETLOCAL EnableDelayedExpansion EnableExtensions
TITLE Turbo Batch (c) DarkBatcher 2010
COLOR 1B
SET Path=%path%;%~dp1
:: On initialise la position du curseur ----------------------------------------
SET CursorX=0
SET CursorY=1
SET HeadLine=0
SET File_0=
SET LOF=0
:: début du code ---------------------------------------------------------------
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄF1=AideÄÄÙ
GOTOXY 5 0
IF EXIST "%~1" (
ECHO %~nx1
SET file=%~nx1
CALL :loadFile "%~1"
CALL :DispFile
) ELSE (
ECHO Sans Nom.bat
SET file=Sans Nom.bat
)
GOTOXY %CursorX% %CursorY%
:: recupération de la touche sur laquelle l'utilisateur à appuyé;
:KeyGet
SET /a pos=%cursorY%-1
SET /a posX=%cursorX%-1
Key
::si l'on veut quitter
IF !ERRORLEVEL!==27 (
GOTO:EOF
)
:: si l'on a appuyé sur une flèche
IF %ERRORLEVEL%==0 (
Key
:: si l'on a appuyé sur la touche du haut
IF !ERRORLEVEL!==72 (
SET /a CursorY-=1
If !cursorY! LSS 1 (
SET /a CursorY=1
If !headline! GTR 0 SET /a headline-=1
CALL :DispFile
)
)
:: si l'on a apuuyé sur la fleche du bas
IF !ERRORLEVEL!==80 (
SET /a CursorY+=1
If !cursorY! GTR 24 (
SET /a CursorY=24
IF !headline! LSS !LOF! (SET /a HeadLine+=1)
CALL :DispFile
)
)
:: Si l'on a apuyé sur la fleche droite
IF !ERRORLEVEL!==77 (
SET /a CursorX+=1
If !cursorX! GTR 79 SET /a CursorX=0
)
:: si l'on a appuyé sur la flèche gauche
IF !ERRORLEVEL!==75 (
SET /a CursorX-=1
If !cursorX! LSS 0 SET /a CursorX=79
)
IF !ERRORLEVEL!==59 (
CALL :DispHelp
CALL :DispFile
)
IF !ERRORLEVEL!==60 (
CALL :OpenFQuery
CALL :loadFile "!File_path!"
CALL :DispFile
)
IF !ERRORLEVEL!==61 (
CALL :save
)
IF !ERRORLEVEL!==62 (
CALL :OpenFQuery
CALL :saveFile
)
IF !ERRORLEVEL!==63 (
CLS
CALL :save
CALL "%File_PAth%"
echo  ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo  ³  ‚x‚cution du script termin‚e - Appuyez sur une touche pour continuer...  ³
echo  ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
PAUSE>NUL
CALL :DispFile
)
GOTOXY !CursorX! !CursorY!
)
if %ERRORLEVEL% GTR 32 (
FOR /f "tokens=*" %%A IN ('STR !ERRORLEVEL!') DO SET "Letter=%%A"
IF NOT "!File_%Pos%!"=="" (SET File_%pos%=!File_%pos%:~0,%CursorX%!!letter!!File_%pos%:~%CursorX%!) ELSE (SET File_%pos%=!Letter!)
SET /a CursorPos=CursorY+Headline-1
IF !CursorPos! GTR !LOF! (SET /a LOF=cursorPos)
SET /a cursorX+=1
CALL :DispFile
GOTOXY !CursorX! !CursorY!
)
IF %ERRORLEVEL%==32 (
IF NOT "!File_%Pos%!"=="" (SET File_%pos%=!File_%pos%:~0,%CursorX%! !File_%pos%:~%CursorX%!) ELSE (Set "File_%pos%= ")
SET /a CursorX+=1
CALL :DispFile
GOTOXY !CursorX! !CursorY!
)
IF %ERRORLEVEL%==8 (
If NOT "!file_%Pos%!"=="" SET File_%pos%=!File_%pos%:~0,%PosX%!!File_%pos%:~%CursorX%!
SET /a cursorX-=1
IF !cursorX! LEQ 0 (
IF !CursorY! LSS 1 (
SET file_%pos%=
SET /a LOF-=1
SET cursorX=79
SET /a cursorY-=1
)
)
CALL :DispFile
GOTOXY !CursorX! !CursorY!
)
IF %ERRORLEVEL%==13 (
SET /a LOF+=1
CALL :ROT !CursorY!
SET /a cursorX=0
SET /a cursorY+=1
CALL :DispFile
GOTOXY !cursorX! !cursorY!
)
GOTO :KeyGet
:: charger un fichier ----------------------------------------------------------
:loadFile
Set LOF=0
Set file=%~nx1
IF NOT EXIST "!File_PAth!" GOTO:EOF
FOR /f "tokens=*" %%A IN (%~s1) DO (
SET File_!LOF!=%%A
SET /a LOF+=1
)
SET /a LOF-=1
GOTO:EOF
:DispFile
CLS
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄF1=AideÄÄÙ
GOTOXY 5 0
ECHO %File%
GOTOXY 0 1
ENDLOCAL
FOR /l %%A IN (!Headline!,1,22) DO (
ECHO.!File_%%A!
)
SETLOCAL EnableDelayedExpansion EnableExtensions
GOTO:EOF
:Save
If exist "%file_Path%" DEL "%file_Path%"
FOR /l %%A IN (0,1,!LOF!) DO (
ECHO.!File_%%A!>>"%file_Path%"
)
GOTO:EOF
:ROT
FOR /l %%A IN (%1,1,!LOF!) DO (
SET LastLine1=!File_%%A!
SET File_%%A=!LastLine!
SET LastLine=!LastLine1!
)
SET "File_%1= "
GOTO:EOF
:DispHelp
GOTOXY 0 7
echo                    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo                    ³ Aide:                                 ³
echo                    ³       ESC = Quitter                   ³
echo                    ³       F2  = Ouvrir                    ³
echo                    ³       F3  = Enregistrer               ³
echo                    ³       F4  = Enregistrer sous ...      ³
echo                    ³       F5  = Ex‚cuter                  ³
echo                    ³                                       ³
echo                    ³ TurboBatch [Version 1.0]              ³
echo                    ³ Copyrigth (c) Darkbatcher 2010        ³
echo                    ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
GOTOXY 58 16
PAUSE>NUL
GOTO:EOF
:OpenFQuery
CLS
GOTOXY 0 10
ECHO Quel fichier voulez vous ouvrir (s'il n'existe pas l sera cr‚‚):
SET /p "File_path="
CALL :SetFExt "%File_path%"
ECHO %File_path%
PAUSE
GOTO:EOF
:SetFExt
SET File_path=%~dpn1.bat
GOTO:EOF




Dernière édition par Darkbatcher le Ven 21 Jan 2011 - 22:14; édité 3 fois

______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Yeah Okay

Je projetais de le faire en autoit, mais je vais attendre que tu finisse le tien, car il a l'air d'être pas mal. Mais tu ne pense pas qu'il va être un peu lent avec toutes ces options ?

Bravo, en tout cas je vais suivre ton projet.




______________________________________________________
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Hello Very Happy

sablier94 a écrit:
Je projetais de le faire en autoit, mais je vais attendre que tu finisse le tien, car il a l'air d'être pas mal. Mais tu ne pense pas qu'il va être un peu lent avec toutes ces options ?


Heu pour le debugger ça pose pas de problème ça va pas ralentir l'éditeur mais c'est vrai que la coloration synthaxique va considérablement alourdir le temps de calcul... Je vais faire en sorte qu'on puisse l'activer et la désactiver pour gagner du temps...

@+




______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Bonjour Darkbatcher

excellent outil ;D
et bravo pour la qualité de codage ; Okay




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Hello!

de retour en retard, mais avec une nouvelle version Mr. Green ... j'ai du tout re-coder en C, car je me suis heurté à un problème pour les '!' que je n'ai pas réussi à écrire dans le fichier sans qu'ils soient rempalcés par des valeurs (j'en profite pour dire que je serai interrressé de savoir si des bactheurs ingénieux y arrivent)... donc pas de nouveautés pour l'instant, j'ai pas assez de temps ...

Voici le lien de téléchargement de l'éxécutable

Pour voir la montagne de code c'est ici Mr. Green

@+




______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
moi le script ne veut pas fonctionner ça marque GOTOXI n'est pas une commande

'GOTOXY' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.
'Key' n'est pas reconnu en tant que commande interne
ou externe, un programme exécutable ou un fichier de commandes.




______________________________________________________
Tic Tac , tu crack !
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
hello tout à fait normal ... gotoxy et key sont des commandes de ma conception mais je vais adapter ça à batbox

@+




______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Quand ese qu'on aura le code parceque la moi je peux toujour pas l'utiliser Sad




______________________________________________________
Tic Tac , tu crack !
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Tu sais je te conseille pas trop de l'utiliser pour le dévellopement, utilise plutot notepad++ ou powerbatch (bien que celui ci se fasse viellisant)

@+




______________________________________________________
--
> Que pensez vous de l'ajout du repertoire point dans $PATH ?
Ma version de troll 18.0.32 beta 3 vient de me faire un core dump.
-+- SE in Guide du Linuxien Pervers : Bien développer son troll -+-

[Dos9]
Visiter le site web du posteur Skype
Répondre en citant
Message [batch/c]Turbo Batch 1.0 
Lien mort :s




______________________________________________________
Un petit 'like' ? Pour ma page ? PLZZZZZ Bannir
Liste de mes DDL
Message [batch/c]Turbo Batch 1.0 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch