Discussion :

[mapmip]

bojour,

j'ai un fichier de type txt qui est une resource et j'aimerais savoir comment faire pour le lire/modifier.



j'ai essayé le code suivant mais le msgbox m'affiche une chaine vide pourtant dans le fichier txt j'ai bien tapé une phrase !

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
16
17
18
19
 
 
 
 Dim name As String = New StackTrace().GetFrame(0).GetMethod().ReflectedType.Namespace
 
 
Dim tempStream As Stream = Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream(name & "." & "sysval.txt")
 
 
 
Dim reader As TextReader = New StreamReader(tempStream)
 
 
Dim aaaa As String = reader.ReadToEnd
 
Do Until (aaaa Is Nothing)
     aaaa = reader.ReadLine
     MsgBox(aaaa)
Loop

merci d'avance

[Er3van]

Si tu fais un ReadToEnd a priori tu n'as pas à refaire une boucle derrière.

Là j'ai l'impression que tu écrases ton contenu... ou alors faut faire quelquechose du genre aaaa += ....

[MABROUKI]

bonjour,
ce serait pas plutot StreamReader pour lire des resources binaires (parce que resources c'est binaire kokomani,ne l'oublie pas.TextReader c'est pour le contenu Ascii).
le code approprie:

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
16
17
18
19
20
21
22
23
24
25
26
 
Imports System.IO
Imports System.Reflection
 
Public Class Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim name As String = New StackTrace().GetFrame(0).GetMethod().ReflectedType.Namespace
        Dim tempStream As Stream = Assembly.GetExecutingAssembly.GetManifestResourceStream(name & ".sysval.txt")
 
        Dim reader As StreamReader = New StreamReader(tempStream)
 
 
        Dim aaaa As String = ""
        'Do Until (aaaa Is Nothing)
        '    aaaa = reader.ReadLine
        '    MsgBox(aaaa)
        'Loop
        'jusqu'à fin de fichier => EndOfStream
        Do Until reader.EndOfStream
            aaaa = reader.ReadLine
            MsgBox(aaaa, , "version StreamReader")
        Loop
 
 
    End Sub
End Class

bon code....