comment faire pour lire fichier txt dans mes resources
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:
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
resources et streamreader
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:
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....
