[DOS] recopier des lignes au format DOS

recopier des lignes au format DOS [DOS] - Shell/Batch - Programmation

Marsh Posté le 12-04-2007 à 09:10:31    

Bonjour,
 
J'ai un fichier texte liste_dossiers.txt contenant des lignes correspondant à des noms de dossiers.
Je souhaite réécrire de fichier texte dans un nouveau liste_dossiers2.txt où chaque ligne du fichier liste_dossiers.txt serait réécrite avec un formatage DOS.
Ainsi, les lignes  
 
échange
écologie
carrière
 
deviendraient
 
‚change
‚cologie
carriŠre
 
Je sais déjà comment récupérer chaque ligne du fichier texte. Ne reste plus qu'à faire en sorte que ça réécrive au format DOS...

Code :
  1. @echo off
  3. for /f "eol=; tokens=1 delims=," %%a in (liste_dossiers.txt) do (
  4. echo   %%a
  5. )
  7. pause


 
Si vous avez des idées, éviemment, je suis preneur  :)  
 
A +

Reply

Marsh Posté le 12-04-2007 à 09:10:31   

Reply

Marsh Posté le 12-04-2007 à 09:24:34    

Je ne sias pas si c'est possible


Message édité par webding le 12-04-2007 à 09:24:44
Reply

Marsh Posté le 12-04-2007 à 12:21:34    

Pas possible en batch Windows, encore moins sous DOS.
 
Le format que tu appelles DOS s'appelle OEM, si tu veux Googliser pour "OEM ANSI converter".

Reply

Marsh Posté le 12-04-2007 à 12:24:33    

Mais on peut faire ca en VBS:
 
oem2ansi fichier1originale fichier2sortie
 

Code :
  1. ' ----------------------------------------------------------
  2. ' Script de Conversion ANSI -> OEM
  3. '
  4. ' Syntaxe:
  5. '   oem2ansi <srce> <dest>
  6. '   <srce> : fichier source (texte ANSI)
  7. '   <dest> : fichier destination (texte OEM)
  8. '
  9. ' JC BELLAMY © 2002
  10. ' ----------------------------------------------------------
  11. Dim ansi
  12. ansi=array( _
  13. "00","01","02","03","04","05","06","07","08","09","0A","0B","0C","0D","0E","0F", _
  14. "10","11","12","13","14","15","16","17","18","19","1A","1B","1C","1D","1E","1F", _
  15. "20","21","22","23","24","25","26","27","28","29","2A","2B","2C","2D","2E","2F", _
  16. "30","31","32","33","34","35","36","37","38","39","3A","3B","3C","3D","3E","3F", _
  17. "40","41","42","43","44","45","46","47","48","49","4A","4B","4C","4D","4E","4F", _
  18. "50","51","52","53","54","55","56","57","58","59","5A","5B","5C","5D","5E","5F", _
  19. "60","61","62","63","64","65","66","67","68","69","6A","6B","6C","6D","6E","6F", _
  20. "70","71","72","73","74","75","76","77","78","79","7A","7B","7C","7D","7E","7F", _
  21. "5F","5F","27","9F","22","2E","C5","CE","5E","25","53","3C","4F","5F","5A","5F", _
  22. "5F","27","27","22","22","07","2D","2D","7E","54","73","3E","6F","5F","7A","59", _
  23. "FF","AD","BD","9C","CF","BE","DD","F5","F9","B8","A6","AE","AA","F0","A9","EE", _
  24. "F8","F1","FD","FC","EF","E6","F4","FA","F7","FB","A7","AF","AC","AB","F3","A8", _
  25. "B7","B5","B6","C7","8E","8F","92","80","D4","90","D2","D3","DE","D6","D7","D8", _
  26. "D1","A5","E3","E0","E2","E5","99","9E","9D","EB","E9","EA","9A","ED","E8","E1", _
  27. "85","A0","83","C6","84","86","91","87","8A","82","88","89","8D","A1","8C","8B", _
  28. "D0","A4","95","A2","93","E4","94","F6","9B","97","A3","96","81","EC","E7","98" )
  30. ForReading = 1
  31. ForWriting = 2
  34. Dim args, fso, fsrce, fdest
  35. Set fso   = WScript.CreateObject("Scripting.FileSystemObject" )
  36. Set args  = Wscript.Arguments
  38. ' Conversion OEM -> ANSI
  39. If args.count<2 Then
  40. strFullName =lcase(WScript.FullName)
  41. i=InStr(1,strFullName,".exe",1)
  42. j=InStrRev(strFullName,"\",i,1)
  43. strCommand=Mid(strFullName,j+1,i-j-1)
  44. if strCommand<>"cscript" then
  45.  Mess=       "Conversion ANSI -> OEM" & VBCRLF
  46.  Mess=Mess & "JCB © 2002" & VBCRLF
  47.  Mess=Mess & "----------------------" & VBCRLF
  48.  Mess=Mess & "Syntaxe : " & VBCRLF
  49.  Mess=Mess & "   ansi2oem <srce> <dest>"  & VBCRLF
  50.  Mess=Mess & "   <srce> : fichier source (texte ANSI)" & VBCRLF
  51.  Mess=Mess & "   <dest> : fichier destination (texte OEM)" & VBCRLF
  52.  Mess=Mess & "NB: pour utiliser les flux standards 'stdin' et 'stdout'," & VBCRLF
  53.  Mess=Mess & "    le moteur de script par défaut doit être cscript.exe" & VBCRLF
  54.  Mess=Mess & "    Cela s'obtient par la commande : " & VBCRLF
  55.  Mess=Mess & "     cscript //H:CScript //S /Nologo" & VBCRLF & VBCRLF
  56.  Mess=Mess & "Si le script récupère en entrée la sortie d'un autre logiciel (piping)," & VBCRLF
  57.  Mess=Mess & "il faut indiquer explicitement 'cscript'" & VBCRLF
  58.  Mess=Mess & "Exemple :" & VBCRLF
  59.  Mess=Mess & "c:\>appliansi.exe | cscript ansi2oem.vbs > test.txt" & VBCRLF & VBCRLF
  60.  wscript.echo Mess
  61.  wscript.quit
  62. else
  63.  Pipe=true
  64.  Set fsrce = WScript.StdIn
  65.  Set fdest = WScript.StdOut
  66.  end if
  67. else
  68. Pipe=false
  69. srce=args(0)
  70. dest=args(1)
  71. If not fso.FileExists(srce) Then
  72.  Mess="Le fichier " & srce & " n'existe pas"
  73.  wscript.echo Mess
  74.  wscript.quit
  75.  End If
  76. Set fsrce=fso.OpenTextFile(srce, ForReading)
  77. Set fdest=fso.OpenTextFile(dest, ForWriting,true)
  78. End If
  79. While not fsrce.AtEndOfStream
  80. oldline=fsrce.ReadLine
  81. newline=""
  82. For i = 1 To len(oldline)
  83.  oldc=asc(mid(oldline,i,1))
  84.  newc=ansi(oldc)
  85.  newline=newline & chr(hextobyte(newc))
  86.  Next
  87. fdest.WriteLine newline
  88. Wend
  89. fdest.close
  90. fsrce.close
  91. 'If not pipe Then wscript.echo "Conversion terminée"
  92. Wscript.quit
  94. ' Utilitaires de conversion hexadécimale
  95. ' -------------------------------------
  96. Function hextobyte(s)
  97. c1=Left(s,1)
  98. c2=Right(s,1)
  99. hextobyte=hextobin(c1)*16+hextobin(c2)
  100. End Function
  101. ' -------------------------------------
  102. Function hextobin(c)
  103. Select Case c
  104. Case "0","1","2","3","4","5","6","7","8","9"
  105.  hextobin=asc(c)-asc("0" )   
  106. Case else
  107.  hextobin=asc(c)-asc("A" )+10
  108. End Select
  109. End Function
  110. ' -------------------------------------


Message édité par webding le 12-04-2007 à 12:25:49
Reply

Marsh Posté le 12-04-2007 à 14:44:02    

merci beaucoup pour vos réponses. C'est moins simple que je ne pensais :). Je vais essayer de me pencher sur le VBS. Je ne l'ai jamais fait...
 
A bientôt,

Reply

Marsh Posté le 12-04-2007 à 15:07:54    

Ce script VBS tu peut l'utiliser en ligne de commande, tu nomme le script oem2ansi et tu l'utilise commae ceci:

Code :
  1. oem2ansi fichier1originale fichier2sortie


 
Fait un essay et dit moi si sa marche


Message édité par webding le 12-04-2007 à 15:09:00
Reply

Marsh Posté le 12-04-2007 à 16:37:34    

je n'ai jamais fait de VBS. Aussi, je ne sais donc pas comment créer un script VBS. Je vais regarder ça. Je te préviendrai si ça marche!

Reply

Marsh Posté le 12-04-2007 à 16:39:24    

Ben tu copie le code que je t'est donné dans un fichier.txt puis tu l'enregistre avec comme non oem2ansi et commen extension .vbs tout simplement


Message édité par webding le 12-04-2007 à 16:40:14
Reply

Marsh Posté le 12-04-2007 à 17:47:25    

ah ok :) merci!

Reply

Marsh Posté le 12-04-2007 à 17:49:08    

alor ta essayer ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed