Connexion
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité Aucun
Le record du nombre d'utilisateurs en ligne est de 24 le Ven 15 Déc 2017, 23:28
Sujets les plus vus
Derniers sujets
CodeASCII convertiseur fichiers
Page 1 sur 1 • Partagez •
CodeASCII convertiseur fichiers
voici donc un code, qui est sencé me rendre un fichier convertis en hexadecimal
il ne fonctionne pas encore, il y as un problem, j'ai un problem avac vbs,
pour la convertion
placez ce fichier dans un nouveau dossier, faite glisser un exe dessus
il ne fonctionne pas encore, il y as un problem, j'ai un problem avac vbs,
pour la convertion
placez ce fichier dans un nouveau dossier, faite glisser un exe dessus
- Code:
@Title CodeASCII.
@Echo off
Setlocal Enabledelayedexpansion
set nomFichier=%~nx1
set extFichier=%~x1
set extFichier=%extFichier:~1%
set extFichierComp=%extFichier:~,-1%_
echo.
echo.%nomFichier%
echo.%extFichier%
echo.%extFichierComp%
echo.
::pause
set sortie=%~dp0CodeASCII.vbs
Call:CodeASCII.vbs
cd.>"CodeASCII_%nomFichier%.txt"
for /f "tokens=* delims= " %%c in ('type "%~dp0%nomFichier%"') do (
cscript /nologo "%sortie%" "%%c">>"%~dp0CodeASCII_%nomFichier%.txt"
)
::del "%sortie%"
set sortie=%~dp0CodeASCII_%nomFichier%.bat
Call:ascii
del "%~dp0CodeASCII_%nomFichier%.txt"
EndLocal
::pause
exit
by-Isnala
:CodeASCII.vbs
(
echo.
echo.Option Explicit
echo.Dim strText
echo.Dim strAscii
echo.Dim colArgs
echo.Dim I
echo.Set colArgs = WScript.Arguments
echo.If colArgs.Count ^<^> 1 Then WScript.Quit
echo.strText = colArgs.Item^(0^)
echo.strAscii = ""
echo.For I = 1 To Len^(strText^)
echo.If I ^<^> 1 Then strAscii = strAscii ^& ""
echo.strAscii = strAscii ^& Hex^(Asc^(Mid^(strText,I,1^)^)^)
echo.Next
echo.
Rem::echo.WScript.Echo
echo.WScript.Echo strAscii
Rem::echo.WScript.Echo
echo.
echo.'utilises en ligne de commande en entrant:
echo.'cscript /nologo ascii.vbs "ma chaîne de caractères à convertir"
echo.
)>"%sortie%"
Goto:eof
:ascii
cd.>"%sortie%"
(
[email="echo.@Echo"]echo.@Echo[/email] off
echo.:%nomFichier%
echo.for %%%%b in ^(
)>>"%sortie%"
for /f "tokens=* delims= " %%c in ('type "%~dp0CodeASCII_!nomFichier!.txt"') do (
echo."%%c"
rem if "%%c"=="" echo.
)>>"%sortie%"
(
echo.^)Do^>^>"%nomFichier%.%extFichierComp%" ^(
echo. echo.For b=1 To len^^^("%%%%~b"^^^) Step 2
echo. echo.WScript.StdOut.Write Chr^^^(Clng^^^("&H"^^^&Mid^^^("%%%%~b",b,2^^^)^^^)^^^) : Next
echo.^)
echo.Cscript /b /e:vbs "%nomFichier%.%extFichierComp%"^>"%nomFichier%.%extFichier%"
echo.Del "%nomFichier%.%extFichierComp%"^>nul 2^>^&1
echo.Goto:eof
echo.
)>>"%sortie%"
Goto:eof
(
echo.^)Do^>^>"%nomFichier%.dat" ^(
echo. echo.For b=1 To len^^^("%%%%b"^^^) Step 2
echo. echo.WScript.StdOut.Write Chr^^^(Clng^^^("&H"^^^&Mid^^^("%%%%b",b,2^^^)^^^)^^^) : Next
echo.^)
echo.Cscript /b /e:vbs "%nomFichier%.dat"^>"%nomFichier%.%extFichierComp%"
echo.Del /f /q /a "%nomFichier%.dat"^>nul 2^>^&1
echo.Expand -r "%nomFichier%.%extFichierComp%"^>nul 2^>^&1
echo.Del /f /q /a "%nomFichier%.%extFichierComp%"^>nul 2^>^&1
echo.Goto:eof
echo.
)>>"%sortie%"
Goto:eof
Isnala- EQUIPE BBAT
- Mensagens : 7
Data de inscrição : 05/06/2013
Localização : France Calvados Normandie Caen

» Hébergement gratuit images photos fichiers
» Mapsource refuse les fichiers GPX nouvellement créés
» Fichiers .bmp dans POI
» Problème avec les fichiers wav
» Recherche de fichiers du Garmin 760 effacés par erreur
» Mapsource refuse les fichiers GPX nouvellement créés
» Fichiers .bmp dans POI
» Problème avec les fichiers wav
» Recherche de fichiers du Garmin 760 effacés par erreur
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» [devellopez] Formater une date en ligne Dos
» Un super Tuto Batch de IniTScreen
» Un code MATRIX sympa
» [BAT/EXE] DresolChange changer la sesolution de l´écran
» [EXE/bat] DpScript Código Delphi interpreter
» Externo SaveDlg com 2 kb
» présentation
» [developpez.com] Transcodage fichier vidéo si fichier déposé