Discussion :

[max12]

Bonjour,

En fait je dois créer une fonction qui prend en autre en paramètre une chaine de caractère (string) qui contient le Contenu d'un fichier, en chaîne de caractères, dans un format .csv

En fait je dois transformer cette chaine de caractere en stream pour pouvoir travailler dessus. Je sais le faire en C#. En gros ce que je voudrai c'est une " traduction" en vbdotnet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
System.IO.MemoryStream l_stream;
 
.....
 
System.Text.Encoding myEncoding = System.Text.Encoding.GetEncoding("iso-8859-1");
byte[] bMsg = myEncoding.GetBytes(sDonnees);
l_stream = new System.IO.MemoryStream(bMsg,false);

Le but étant en suite de traiter cette donnée avec une fonction du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
   Private Function traitement(ByVal p_stream As Stream) As ArrayList
            Dim sr As StreamReader
 
            Dim line As String
            Dim aLine() As String
            Dim numLine As Integer = 1
            Dim l_listeAno As New ArrayList
 
            sr = New StreamReader(p_stream)
            Try
                Do While sr.Peek() >= 0
                    line = sr.ReadLine()
                    aLine = line.Split(";"c)
..........

voila. Merci

[Aspic]

Salut, Utilise les balises "code" ca sera plus clair !!

Sinon traduction de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
System.text.Encoding.UTF8.GetBytes("Ma chaine string")
Dim l_stream as new System.IO.MemoryStream(bMsg,false)

++

[max12]

Merci beaucoup.

par contre ou est définti le bMsg dans ton code ?? est-ce :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dim bMsg() as byte = System.Text.Encoding.UTF8.GetBytes(p_inst)

désolé pour les balises La prochaine fois j'essairai d'y penser

[Aspic]

Tu peux toujours diter tes posts

Sinon oui c'est bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim BufByte As Byte() = System.Text.Encoding.UTF8.GetBytes("Ma chaine string")
        Dim l_stream As New System.IO.MemoryStream(BufByte, False)

Et n'oublit pas le Tap "résolu" si j'ai répondu à ta quesion