VB .Net Supprimer les codes CRLF d'un fichier

Question

Bonjour

Voici mon probl&#232;me :

Je r&#233;cup&#232;re un fichier qui a &#233;t&#233; transf&#233;r&#233; par un MainFrame (Bull GCOS7) au format EBCDIC, mais qui a ses enregistrements s&#233;par&#233;s par les codes CRLF ASCII !!!

Le fichier doit &#234;tre manipul&#233; pour supprimer ces fameux CRLF puis zipp&#233;s &#224; la demande de mon prestataire.

Mon appli zip bien, mais mon Record.replace(vbcrlf,"") ne donne rien, et un Record.trim(vbcrlf) non plus.

 Je d&#233;sesp&#232;re, qui pourra m'aider ???

Merci.

PS : mon fichier en entr&#233;e est ouvert avec un streamreader classique  :



Dim Fichier_Entree 
As System.IO.StreamReader

Dim Fichier_Sortie 
As System.IO.StreamWriter

Dim Rec_in 
As 
String = ""

Dim Rec_Out 
As 
String = ""

Try
   Fichier_Entree = 
New System.IO.StreamReader(FichIn)
   Fichier_Sortie = 
New System.IO.StreamWriter(FichIn & "-2")

   While Fichier_Entree.Peek() > -1
      Rec_in = Fichier_Entree.ReadLine

      Dim MyVbCrLf 
As 
String = Chr(10) & Chr(13)
      Rec_Out = Rec_in.Replace(MyVbCrLf, "")
      Fichier_Sortie.WriteLine(Rec_Out)

   End 
While
Catch erreur 
As Exception
   MsgBox("erreur " & erreur.Message)

End 
Try
Fichier_Entree.Close()
Fichier_Sortie.Close()

cs_sephiro · Answer

Bonjour
J'ai beaucoup travaill&#233; sur les MainFrames (VM et MVS) et il est tres etonnant d'avoir un code ascii au milieu de code EBCDIC!!! Si tu utilises un editeur comme xedit ne mode hexa, est ce que tu vois les crlf ?
De plus CR est cod&#233; par 13 et LF par 10, ans ton exemple il faut inverserDim MyVbCrLf As String Chr(10) & Chr(13)> Dim MyVbCrLf 
As 
String = Chr(13) & Chr(10)

Sephiro

cs_taznormand · Answer

SAlut


Je sais que l'ASCII au milieu de l'EBCDIC c'est plutot bizarre, mais la machine Bull sur laquelle je travaille fait du FTP "Bull maison", pas de commande Get/Put/Open/etc... Dans Ultraedit, je vois bien les codes 10 et 13 (OA et OD).


Quant &#224; l'inversion, je n'ai pas essay&#233;, mais m&#234;me en cherchant a supprimer uniquement les CRr our uniquement les LF (ce que j'ai d&#233;ja essay&#233; avant) &#231;a marche pas non plus

@ +

VB .Net Supprimer les codes CRLF d'un fichier

2 réponses

Discussions similaires