encoding et xmlReader

Salut tout le monde,

Voici mon problème, j'utilise la classe XmlTextReader pour parcourir un fichier html.
Jusque là tout va bien, sauf que, par défaut l'encoding est UTF-8, et j'ai des caractères accentués dans mes documents dont voici un exemple:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" lang="fr">
	<head>
		<title>titre</title>
 
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-15" />
 
		<meta http-equiv="Content-Style-Type" content="text/css" />
 
		<meta http-equiv="Content-Language" content="fr" />
 
		<meta name="Description" content="Vidéos " />
 
 
	<body >
	<div id="conteneur">
		<h1 id="header"></a></h1>
 
                <div id="bulle"></div>
 
                <ul id="menu">
 
			<li><a href="index.php">Accueil</a></li>
 
			<li><a href="liens.php">Liens</a></li>
 
		        <li><a href="forums/">Forums</a></li>
 
	 	        <li><a href="irc.php">Chat IRC</a></li>
 
		</ul>
 
 
 
		<div id="contenu">
 
		<h2>T&eacute;l&eacute;charger une vid&eacute;o</h2>
		<table class="newscadre" cellspacing="0">
		<tr>
			<td class="videocontenu"><strong>T&eacute;l&eacute;charger : </font><a href="mavidéo.avi"><img src="../images/download.gif" width="16" height="16" border="0"></a> </strong><br><br><b>Votes :</b> 14 <br><b>Moyenne des votes</b> : 9.1/10</td>
			<td class="videotmb"><img src="170207b.jpg" border="1"></p></td>
		</tr>
		</table><br>
 
		<br>
 
		<br>
 
		</div>
 
	</div>
	</body>
</html>

or ça, ce fourbe de parseur m'envoie l'erreur:
Erreur: Invalid character in the given encoding. Line 7, position 40.

ce qui correspond au caractère accentué. Visiblement le parser utilise par défaut UTF-8, il faudrait sans doutes qu'il utilise UTF-16, mais je ne sais pas comment forcer cette valeur, qqun peut-il m'aider?

voici mon code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Imports System
Imports System.Xml
Imports System.Collections
Namespace ParserXML
 
    Class Class1
 
        <STAThread()> _
        Shared Function LookForNode(ByVal text As String(), ByVal node As String, ByVal attribute As String) As String
 
            Try
                '--- Déclaration et ouverture du fichier demandé
                Dim reader As XmlTextReader = New XmlTextReader(text)
                '--- Lecture 
                While reader.Read
                    Select Case reader.NodeType
                        Case XmlNodeType.Element
                            Dim sNameElement As String = reader.Name
                            If sNameElement = node Then
                                While reader.MoveToNextAttribute()
                                    If reader.Value = attribute Then
                                        While reader.MoveToElement
                                            If reader.Name = a Then
                                                reader.MoveToNextAttribute()
                                                Console.WriteLine(reader.Value)
                                                Return reader.Value
                                            End If
                                        End While
                                    End If
                                End While
                            End If
                            Console.WriteLine(sNameElement)
                        Case XmlNodeType.EndElement
                            Dim sNameEndElement As String = reader.Name
                            Console.WriteLine(sNameEndElement)
                        Case XmlNodeType.Attribute
                            Dim sNameAttribute As String = reader.Name
                            Console.WriteLine(sNameAttribute)
                        Case XmlNodeType.Text
                            Dim sNameText As String = reader.Value
                            Console.WriteLine(sNameText)
                        Case Else
 
                    End Select
                End While
                '--- Lit la ligne de caractères suivante à partir 
                '--- du flux d'entrée 
                Console.ReadLine()
            Catch Ex As XmlException
                Console.WriteLine("Erreur: " + Ex.Message)
            End Try
        End Function
    End Class
End Namespace