Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1574 connectés 

  FORUM HardWare.fr
  Programmation
  Shell/Batch

  [DOS] recopier des lignes au format DOS

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[DOS] recopier des lignes au format DOS

n°1541750
baobazz
Posté le 12-04-2007 à 09:10:31  profilanswer
 

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 +

mood
Publicité
Posté le 12-04-2007 à 09:10:31  profilanswer
 

n°1541755
webding
Posté le 12-04-2007 à 09:24:34  profilanswer
 

Je ne sias pas si c'est possible


Message édité par webding le 12-04-2007 à 09:24:44
n°1541920
wackevat
Posté le 12-04-2007 à 12:21:34  profilanswer
 

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".

n°1541925
webding
Posté le 12-04-2007 à 12:24:33  profilanswer
 

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
n°1542001
baobazz
Posté le 12-04-2007 à 14:44:02  profilanswer
 

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,

n°1542018
webding
Posté le 12-04-2007 à 15:07:54  profilanswer
 

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
n°1542110
baobazz
Posté le 12-04-2007 à 16:37:34  profilanswer
 

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!

n°1542115
webding
Posté le 12-04-2007 à 16:39:24  profilanswer
 

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
n°1542173
baobazz
Posté le 12-04-2007 à 17:47:25  profilanswer
 

ah ok :) merci!

n°1542177
webding
Posté le 12-04-2007 à 17:49:08  profilanswer
 

alor ta essayer ?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Shell/Batch

  [DOS] recopier des lignes au format DOS

 

Sujets relatifs
Bootdisk sous Dos pour tester des Ecrans ?Help ! DOS
[DOS]récupérer le nom d'un fichier zip dans un variable[DOS] Faire un driver ???
Comment avoir 1000 chansons gratis avec 60 lignes de code?script csh besoin d'aide pour lire x lignes
Probleme creation newsletter au format HTMLAnalyser des fichiers de CAO au format STEP et IGES
Parser des fichiers de CAO au format STEP et IGESTester le format d'une chaine & expressions régulieres
Plus de sujets relatifs à : [DOS] recopier des lignes au format DOS

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.074 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)