Lire texte fichier généré sous DOS

Version imprimable

14/01/2017, 12h18
Mickou35

Lire texte fichier généré sous DOS

Bonjour,

Je cherche la méthode pour lire correctement les lignes d'un fichier txt généré sous DOS (schtasks /query ....)
Le texte de sortie étant codé CP850, je cherche à l'importer correctement avec un StreamReader.

Je bloque.

Quelqu'un a-t-il déja été confronté au problème ?

Merci de votre aide :-)

En gros une fois que tu as recupere ton Stream, il faut le convertir en byte[], tu peux faire quelque chose comme ceci :

Code:

1
2
3
4
5
6
7
8
' On cree un MemoryStream pour faire la transformation
Using memoryStream = New MemoryStream()
	' sourceStream est ton stream d'origine
	sourceStream.CopyTo(memoryStream)
 
	' On retourne un tableau de byte
	Return memoryStream.ToArray()
End Using

Ensuite, tu peux utiliser Encoding.Convert pour convertir l'encodage, a l'aide des etapes suivantes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
' On recupere l'encoding Unicode
Dim unicodeEncoding = Encoding.Unicode
 
' Recupere l'encoding Western European (DOS) / ibm850
Dim cp850Encoding = Encoding.GetEncoding(850)
 
' On converti les bytes encodes en ibm850 vers Unicode
' Ici, cp850Bytes est le resultat de la transformation du Stream en byte[] qu'on a realise dans le bloc de code precedent
Dim convertedBytes = Encoding.Convert(cp850Encoding, unicodeEncoding, cp850Bytes)
 
' Enfin, on recupere le texte en Unicode, a partir des bytes qu'on vient de convertir
Dim unicodeText = Encoding.Unicode.GetString(convertedBytes)

15/01/2017, 18h36
Mickou35

Merci DotNetMatt :P

Par contre je débute et j'ai donc un peu de mal à implémenter tes conseils

Ex d'erreur :
Erreur 11 'CopyTo' n'est pas un membre de 'System.IO.StreamReader'.
Erreur 12 L'instruction 'Return' dans un Sub ou un Set ne peut pas retourner de valeur.

Tu peux me guider ?

Effectivement, la methode CopyTo existe sur le type Stream et non sur le type StreamReader, j'ai ete trop vite en besogne :aie: Voici un exemple un peu plus structure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Function ConvertCodePage850StreamToUnicodeText(streamReader As StreamReader) As String
	' Transformation du Stream en byte[]
	Dim cp850Bytes = StreamToByteArray(streamReader.BaseStream)
 
	' On recupere l'encoding Unicode
	Dim unicodeEncoding = Encoding.Unicode
 
	' Recupere l'encoding Western European (DOS) / ibm850
	Dim cp850Encoding = Encoding.GetEncoding(850)
 
	' On converti les bytes encodes en ibm850 vers Unicode
	Dim convertedBytes = Encoding.Convert(cp850Encoding, unicodeEncoding, cp850Bytes)
 
	' Enfin, on retourne le texte en Unicode, a partir des bytes qu'on vient de convertir
	Return unicodeEncoding.GetString(convertedBytes)
End Function
 
Private Function StreamToByteArray(stream As Stream) As Byte()
	' On cree un MemoryStream pour faire la transformation
	Using memoryStream = New MemoryStream()
		stream.CopyTo(memoryStream)
 
		' On retourne un tableau de byte
		Return memoryStream.ToArray()
	End Using
End Function

Et pour l'utiliser :

Code:

1
2
3
4
5
' Charge ton fichier dans le StreamReader
Dim streamReader = New StreamReader("")
 
' Appelle la methode ConvertCodePage850StreamToUnicodeText
Dim unicodeText = ConvertCodePage850StreamToUnicodeText(streamReader)

16/01/2017, 21h04
Mickou35

Que dire .....

Simplement merci !!

pour ma culture, unicodeText = ConvertCodePage850StreamToUnicodeText(streamReader) renvoi juste les données dans une variable texte et non un tableau.
C'est bien ça

Si je veux retrouver mes lignes 1 a 1, je fais un simple split sur les caractères de fin de lignes et le tour est joué.
A moins que tu ais mieux :-)

Merci encore

Mickael
16/01/2017, 22h23
DotNetMatt

Citation:

Envoyé par Mickou35

pour ma culture, unicodeText = ConvertCodePage850StreamToUnicodeText(streamReader) renvoi juste les données dans une variable texte et non un tableau.
C'est bien ça

Oui.

Citation:

Envoyé par Mickou35

Si je veux retrouver mes lignes 1 a 1, je fais un simple split sur les caractères de fin de lignes et le tour est joué.
A moins que tu ais mieux :-)

Ca me parait bien, mon objectif etait de repondre a ta question pour recuperer le texte. Ensuite le reste c'est a toi de voir ce que tu en fais ;) Si cela cree d'autres questions, n'hesite pas a creer une autre discussion (1 sujet = 1 question).

Aussi, n'oublie pas de marquer ce sujet comme resolu, avec le bouton resolu tout en bas des discussions :ccool:
17/01/2017, 11h24
Mickou35

Merci DotNetMatt :king: