Lien hypertexte interne à la page entre differents labels

Bon en fait j'ai resolu le probleme tout seul c'etait vraiment des erreurs stupides...

ce n'est pas:
HL ID
mais
H1 ID qu'il faut ecrire.

Et les j'oubliais des double cote :oops:

Jcopie une copie de mon code en guise de "résolution":

Grosso modo la fonction parse un texte contenant des balises <LI> et <OL>
Et crée des labels pour chaque paragraphe.

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
 
Protected Sub AjouterLesLabelTexte(ByVal PTexte As String)
            Dim TitreTexteLabel, CorpsTexteLabel As Label
            Dim boutontest As Button
            Dim i, j, Niveau As Integer
            Dim TableauLignes() As String
            Niveau = 0
            i = 1
 
            ' On splitte
            TableauLignes = Split(PTexte, "<")
            ' On remet les "<"
            While i <= TableauLignes.GetUpperBound(0)
                TableauLignes(i) = "<" + TableauLignes(i)
                i = i + 1
            End While
 
            'Il faut nettoyer le code de toutes les balises inutiles (toutes celles differentes de <OL> et <LI>
            'Boucle de parsing
            i = 1
            While i <= TableauLignes.GetUpperBound(0)
                If TableauLignes(i).Contains("<OL>") Then
                    Niveau = Niveau + 1
                ElseIf TableauLignes(i).Contains("<OL>") Then
                    Niveau = Niveau + 1
                ElseIf TableauLignes(i).Contains("<LI>") Then
                    'On recupere tout le paragraphe
                    CorpsTexteLabel = New Label()
                    CorpsTexteLabel.Text = TableauLignes(i).Substring(4, TableauLignes(i).Length() - 4) 'permet d'enlever le "<LI>"
                    j = i + 1
                    While TableauLignes(j).Contains("LI") And TableauLignes(j).Contains("/LI") And TableauLignes(j).Contains("/OL") And j < TableauLignes.GetUpperBound(0)
                        CorpsTexteLabel.Text += TableauLignes(j)
                        j = j + 1
                    End While
                    'On affiche le paragraphe en lui attribuant un "heading" (lien interne HTML)
                    CorpsTexteLabel.Text = "OUECH OUECH" + CorpsTexteLabel.Text + "<h1 id=""heading" + i.ToString + """>" + "</HL><BR>"
                    PlaceHolder2.Controls.Add(CorpsTexteLabel)
 
                    'On enregistre le titre et on le fait linker vers le heading
                    TitreTexteLabel = New Label()
                    TitreTexteLabel.Text = "<a href=""#heading" + i.ToString + """>" + TableauLignes(i).Substring(4, TableauLignes(i).Length() - 4) + "</a><BR>"
                    TitreTexteLabel.Font.Italic = True
                    PlaceHolder1.Controls.Add(TitreTexteLabel)
 
                ElseIf TableauLignes(i).Contains("</LI>") Then
                        'Rien a faire???
                End If
                i = i + 1
            End While
        End Sub