zone hypertexte variable (HTA)

**papyxy** · 21/02/2024, 09h13

Bonjour
comment 'jouer' avec les balises pour avoir une adresse de site saisie en hypertexte?

**umfred** · 21/02/2024, 11h25

Tu peux peut-être préciser ta question un peu ?

**papyxy** · 21/02/2024, 12h23

J'ai trouvé cet exemple; mais je ne sais pas l'appliquer.
sachant que je veux que le contenu de href soit variable.

Code html :

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

1
2
3
4
5
6
7
8
9
10
<h1>Ma grande page</h1>
<p>
Découvrez nos conseils d’aménagement pour :<br>
    <a href="#jardin">Le jardin</a><br>
    <a href="#salon">Le salon</a><br>
</p>
<h2 id="jardin">Le jardin</h2>
<p>... (beaucoup de texte) ...</p>
<h2 id="salon">Le salon</h2>
<p>... (beaucoup de texte) ...</p></body>

**umfred** · 21/02/2024, 12h56

variable de quelle façon? tu es dans la section VBScript, tu es sûr d'être dans le bon forum? (tu ne cherches pas une solution en javascript, php ou autre ?)
dans quel contexte ?

ici les href font références aux id de la page

**ProgElecT** · 21/02/2024, 13h02

Salut

Pour umfred,
HTA:

Une application HTML (HTA) est un programme Microsoft Windows dont le code source est constitué de HTML, de Dynamic HTML et d'un ou plusieurs langages de script pris en charge par Internet Explorer, tels que VBScript ou JScript.22

**umfred** · 21/02/2024, 16h33

c'est vrai que j'étais passé à côté du HTA.

A priori @papyxy, tu cherches ça depuis un moment (2019) https://www.developpez.net/forums/d1...text-variable/

j'ai ce code à te proposer (après avoir phosphoré un peu): au clic sur le lien, on remplace le href de la balise <a > correspondante par l'id voulu grace au select de la fonction.

Code html :

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
27
28
29
30
31
<HTML>
<HEAD>
  <TITLE>Test HTA pour le site du Zér0</TITLE>
  <HTA:APPLICATION ID="MonProg" CAPTION="Yes">
 
</HEAD>
<BODY>Mon texte.</BODY>
<h1>Ma grande page</h1>
<p>
Découvrez nos conseils d’aménagement pour :<br>
    <a href="#" onClick="setID(1);">Le jardin</a><br>
    <a href="#" onClick="setID(2);">Le salon</a><br>
</p>
<h2 id="jardin">Le jardin</h2>
<p>Lorem ipsum dolor sit amet. Eum accusamus quia nam consequuntur cumque et suscipit alias nam illo nihil! Et veritatis accusamus ea dolores recusandae 33 sint odit vel magnam facilis eum voluptatem Quis qui cupiditate rerum! Non obcaecati facere At nihil delectus qui excepturi architecto. Aut reiciendis culpa est perferendis impedit At libero autem! Et iste laborum qui omnis rerum et voluptatem consequatur qui earum quia et dolor illo. Sed architecto odio non repudiandae cumque ea consequatur ratione ut laborum eveniet. Sed necessitatibus dolores et officia quisquam ut quam fugit aut quod dolorem non nesciunt iure quo corporis perspiciatis. Ea dicta delectus aut mollitia tempore sed rerum perspiciatis sed rerum porro. Est optio officiis et laboriosam iure eum perferendis exercitationem non officiis veniam qui maiores sapiente. </p><p>Et accusamus assumenda hic exercitationem blanditiis sed omnis incidunt et maxime praesentium est internos facilis est labore dignissimos. Sed fuga quisquam aut totam rerum eum omnis perspiciatis. Est dicta sequi ut accusantium repudiandae quo earum placeat id optio itaque ut vero assumenda a veniam praesentium est iste maiores. A eveniet quia vel veniam assumenda aut eveniet ipsa ut beatae nisi 33 iure amet? A perferendis maxime ea temporibus exercitationem vel voluptatum voluptas in Quis architecto et officia saepe. Quo dolorum deleniti et eveniet consequatur sed eligendi autem. Ad ipsum quia est fuga totam ad dicta esse et quam Quis quo doloribus molestias. Est quae voluptatum sed atque enim et voluptatem accusantium sed magnam saepe aut deserunt doloremque. Sed tempora quibusdam est fuga quis eum fugit maiores. </p><p>Aut expedita sint non possimus beatae quo voluptas itaque et Quis quidem sit repellendus nesciunt id commodi quasi nam nesciunt eius. Sit maiores voluptatibus aut similique numquam sit eius vero! Est repellendus enim et minus laborum non expedita fuga sed cupiditate quas aut sequi unde aut quae eaque aut itaque pariatur. Et dolorem eveniet est explicabo vitae rem suscipit perferendis ut exercitationem inventore ut reprehenderit quisquam. Quo sunt quis ut eius temporibus non distinctio eligendi eos omnis nihil est iure odio. Sed facilis tempore rem galisum quia qui sequi autem ex molestias ducimus At repudiandae officiis. In voluptates autem id quis dolor et soluta molestiae. Vel velit nihil ea illo temporibus est numquam quia 33 quasi recusandae. Sed inventore dolorem quo ipsam nostrum non quibusdam amet ut consequatur eligendi aut enim galisum. </p>
<h2 id="salon">Le salon</h2>
<p>Lorem ipsum dolor sit amet. Ut culpa laboriosam est cupiditate repellat aut quia aliquid. Quo facere quaerat ex alias omnis sed quia odit vel itaque aperiam aut eligendi nesciunt At maiores tempora hic provident officiis. Aut dolorem tenetur vel eveniet dolor At obcaecati pariatur et numquam ipsam et ducimus obcaecati? Sit quam porro non eaque sequi rem quod corporis ut delectus odio. Aut fuga laboriosam 33 consequatur debitis sed totam blanditiis 33 neque porro ea maxime sint! </p><p>Est optio voluptate rem quibusdam laudantium nam quibusdam harum eum quam maiores nam provident reprehenderit eum dolor odit. Aut dicta provident quo cupiditate reiciendis est voluptas sapiente. Et fugiat aspernatur qui fuga sequi et illo assumenda ea odio quibusdam? Ad omnis doloribus ex dolores repudiandae qui fugit sint et galisum incidunt. In soluta delectus id quod rerum cum temporibus illum. Ea consectetur dicta ut cupiditate ducimus ut quia officia ad iste placeat aut illum nobis qui amet totam. Est excepturi assumenda ab quia corporis sed labore inventore. Est distinctio quod qui iste laudantium sit dolores voluptas et expedita consequuntur ea reprehenderit corporis eum esse iusto. Ut excepturi quasi 33 neque dicta vel nesciunt soluta ex ratione voluptas ut harum maxime non earum veniam hic quasi consectetur. </p><p>Id voluptas rerum in aperiam necessitatibus et tempora sint ut nemo dolorem qui dolorem iure sit excepturi voluptatem. Vel fuga nostrum eos doloremque eveniet ad omnis asperiores. Eos animi perspiciatis et fugit fuga ut unde illum et voluptas dolorem est error odio ut laudantium quia aut quis autem. Et galisum consectetur et quae tempora cum aperiam voluptatem est facere quia non molestias atque. Aut possimus optio vel dolores labore est corporis illum hic consequuntur quibusdam sed quia dolorem et quasi debitis a eligendi nesciunt. 33 saepe omnis ut Quis repellat est doloribus recusandae At galisum illo? Et magnam eveniet sit temporibus consequuntur quo libero officia aut voluptate voluptatem. Id velit quia est optio nisi et numquam architecto a doloremque quod ea saepe veritatis ut consequatur dignissimos. Nam omnis iusto est necessitatibus possimus cum dolorum totam. </p>
</body>
<SCRIPT TYPE="text/VBScript">
Function setID(val)
Select Case val
	Case 1:
		setID="jardin"
	Case 2:
		setID="salon"
End Select
document.getElementsbyTagName("a")(val-1).href="#" & setID
End Function
 
</SCRIPT>
</HTML>

**papyxy** · 22/02/2024, 09h04

bonjour
j'ai essayé ton exemple; mais il ne se passe rien lorsque je clique sur un lien.
il faudrait passer par <input text> pour saisir la variable et transformer en hypertexte.

**ProgElecT** · 22/02/2024, 11h01

Salut

Pas sûr de comprendre ton besoin, mais ..... ce bout de code HTA

Code html :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
<HTML>
	<HEAD lang="fr">
		<meta http-equiv="content-type" content="text/html;charset=utf-8"/>
		<title> Mon titre </title>
		<HTA:APPLICATION
			id="MeProg"
			applicationname="MeProg"
			version="1"
			MAXIMIZEBUTTON="no"
			SCROLL="no"
			BorderStyle="thin"
		>
	</HEAD>
<SCRIPT language="VBScript" type="text/vbscript">
        '------------------------------------------------------------------------------------------------------------------
        Option Explicit
        '*****************************************************************
        Sub Window_Onload()
                ResizeTo 815,220 ' Agrandi la page HTA
                MoveTo (Screen.availWidth - 815) / 2, (Screen.availHeight - 220) / 2 ' centre la page
        End Sub
        '*****************************************************************
        Sub TxtUrl_onkeyup()
                If window.event.keyCode = 13 Then
                        A1.setAttribute "href",TxtUrl.value
                        A1.click
                End If
        End Sub'------------------------------------------------------------------
        Sub BtGo_onclick()
                A1.setAttribute "href",TxtUrl.value
                A1.click
        End Sub'------------------------------------------------------------------
        Sub A2_onclick()
                A2.setAttribute "href",TxtUr2.value
        End Sub'------------------------------------------------------------------
</SCRIPT>
 
	<body style=" background-color:#FFFFA8">
			Entrez votre adresse web
			<input type="text" name="TxtUrl" style="width:775px" value ="https://www.qrz.com/">
			<a name="A1" href="" style="display:none">Je suis invisible</a><br>
			<button name="BtGo" onclick="SubBtGo" style="width:65px">Go</button>
			<br><hr>
			Entrez votre adresse web
			<input type="text" name="TxtUr2" style="width:775px" value ="https://noel.org/74-Haute-Savoie">
			<a name="A2" href="" >Je suis visible et on peut me cliquer</a>
	</body> 
</HTML>

J'ai mis des Urls par défaut dans les 2 inputs, mais tu peux mettre les tiennent.
Dans le premier input tu peux déclencher soit par la touche ENTER ou en cliquant le bouton Go
Pour déclencher la 2ém adresse Url, un clique sur la phrase Je suis visible et on peut me cliquer

**umfred** · 22/02/2024, 11h26

Envoyé par papyxy

bonjour
j'ai essayé ton exemple; mais il ne se passe rien lorsque je clique sur un lien.
il faudrait passer par <input text> pour saisir la variable et transformer en hypertexte.

Tu voudrais qu'il se passe quoi ? en principe, en cliquant sur le lien ça te dirige vers la section de l'ID.
Avec le peu d'information que l'on a de ton réel besoin, on ne peut que faire des supposition.

On t'a donné des codes qui permettent de modifier les href de liens, à toi d'essayer de l'adapter à ton besoin

**papyxy** · 22/02/2024, 17h28

Merci pour le code; il me convient.

ps . j'aurais préféré que le lien soit dirigé vers mon navigateur au lieu de l'explorer.

**ProgElecT** · 22/02/2024, 22h47

Envoyé par papyxy

......... j'aurais préféré que le lien soit dirigé vers mon navigateur au lieu de l'explorer.

Tu devrais savoir faire, rappel toi ==> Creer une balise avec un lien hypertext variable

**papyxy** · 23/02/2024, 10h37

bonjour
oui je me souviens;
il faut passer par "run"
(c'est ce que je voulais éviter)

zone hypertexte variable (HTA)

VBScript

Discussions similaires

Partager

Partager