Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Bouton pour supprimer du texte dans source hta

Bouton pour supprimer du texte dans source hta

7 réponses
Avatar
sympatix
Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte saisi,
dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie directement la
source de la page, à chaque ajout de mémo. C'est plus simple- j'usqu'ici
!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer", mais je
reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton "supprimer", que
soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau mémo">
</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "<BR>"
Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, totosympatix@tototele2.fr est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean
Bonjour,

par exemple :

<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau mémo">
</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)
oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)
Location.Reload
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV><INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "</DIV>"
Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de news:
Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte saisi,
dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie directement la
source de la page, à chaque ajout de mémo. C'est plus simple- j'usqu'ici
!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer", mais je
reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton "supprimer", que
soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau mémo">
</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "<BR>"
Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr



Avatar
sympatix
Bonjour !

Mais c'est génial..., magique !
Et court !
Evidement, je me suis empressé de rechercher de la doc sur le DOM, pour
en savoir plus, mais je n'ai pas trouvé grand chose (A part plein de
pages de théorie, la plupart en anglais...)
Donc existe-t-il une documentation, un peu dans le style de
"script56.chm", ou "Script repository", mais pour le DOM ?

Encore merci !


Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:%
Bonjour,

par exemple :

<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">

</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)

oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)

Location.Reload
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV><INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"</DIV>"

Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte
saisi,


dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie directement
la


source de la page, à chaque ajout de mémo. C'est plus simple-
j'usqu'ici


!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer", mais
je


reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton "supprimer",
que


soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">


</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "<BR>"
Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr







Avatar
Jean
Bonjour,

Pour le DHTML Object Model ( le DOM de IE) :
http://msdn.microsoft.com/workshop/author/dhtml/reference/dhtml_reference_entry.asp
(pas de traduction FR disponible en ligne ... mais j'ai vu que le site MSDN FR proposait maintenant quelques documentations
traduites
du SDK ... donc ... qui sait ? ... peut être un jour :O) )

Pour le DOM standard, sur le site du consortium W3C:
http://www.w3.org/DOM/
(Il y a peut être des traduction FR officielle sur le site)

Quoiqu'il en soit, je ne peux que conseiller la consultation des DOC Anglaises qui (bien que non exempte d'erreurs) évite des
erreurs
supplémentaires issue de la traduction.

Sinon, vous devriez trouver des traductions "bénévoles" en faisant une requête adhoc dans Google ou Kartoo http://www.kartoo.fr (si
vous avez l'ADSL).


Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de news:
Bonjour !

Mais c'est génial..., magique !
Et court !
Evidement, je me suis empressé de rechercher de la doc sur le DOM, pour
en savoir plus, mais je n'ai pas trouvé grand chose (A part plein de
pages de théorie, la plupart en anglais...)
Donc existe-t-il une documentation, un peu dans le style de
"script56.chm", ou "Script repository", mais pour le DOM ?

Encore merci !


Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:%
Bonjour,

par exemple :

<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">

</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)

oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)

Location.Reload
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV><INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"</DIV>"

Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte
saisi,


dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie directement
la


source de la page, à chaque ajout de mémo. C'est plus simple-
j'usqu'ici


!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer", mais
je


reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton "supprimer",
que


soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">


</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "<BR>"
Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr










Avatar
sympatix
Merci, pour tout ça :-)

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:
Bonjour,

Pour le DHTML Object Model ( le DOM de IE) :

http://msdn.microsoft.com/workshop/author/dhtml/reference/dhtml_reference_entry.asp

(pas de traduction FR disponible en ligne ... mais j'ai vu que le site
MSDN FR proposait maintenant quelques documentations

traduites
du SDK ... donc ... qui sait ? ... peut être un jour :O) )

Pour le DOM standard, sur le site du consortium W3C:
http://www.w3.org/DOM/
(Il y a peut être des traduction FR officielle sur le site)

Quoiqu'il en soit, je ne peux que conseiller la consultation des DOC
Anglaises qui (bien que non exempte d'erreurs) évite des

erreurs
supplémentaires issue de la traduction.

Sinon, vous devriez trouver des traductions "bénévoles" en faisant une
requête adhoc dans Google ou Kartoo http://www.kartoo.fr (si

vous avez l'ADSL).


Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Bonjour !

Mais c'est génial..., magique !
Et court !
Evidement, je me suis empressé de rechercher de la doc sur le DOM,
pour


en savoir plus, mais je n'ai pas trouvé grand chose (A part plein de
pages de théorie, la plupart en anglais...)
Donc existe-t-il une documentation, un peu dans le style de
"script56.chm", ou "Script repository", mais pour le DOM ?

Encore merci !


Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:%
Bonjour,

par exemple :

<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">

</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)



oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)


Location.Reload
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV><INPUT NAME=""Supr_memo""
TYPE=""BUTTON""" _



& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"</DIV>"

Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte
saisi,


dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie
directement




la
source de la page, à chaque ajout de mémo. C'est plus simple-
j'usqu'ici


!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer",
mais




je
reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton
"supprimer",




que
soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un
nouveau




mémo">
</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"<BR>"




Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, est mon adresse antispam
non




valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr

















Avatar
sympatix
Bonjour !

Je voudrais également, dans le même style, rajouter un bouton, qui
supprimerais d'un coup tous les mémos.
(donc, au clic, suppression de toutes les ID, dans la source, et
réactualisation de la page).
Mais je suis encore bloqué par mon manque d'expérience. Est-ce faisable
?

Merci encore :-)

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:%
Bonjour,

par exemple :

<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">

</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)

oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)

Location.Reload
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV><INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"</DIV>"

Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte
saisi,


dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie directement
la


source de la page, à chaque ajout de mémo. C'est plus simple-
j'usqu'ici


!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer", mais
je


reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton "supprimer",
que


soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">


</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "<BR>"
Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr







Avatar
Jean
Bonjour,

Le plus simple AMHA est de donner un ID identique aux DIV qui englobent les mémos et itérer la collection de ces DIV pour les
supprimer avec removeNode :

<!---8<--->
<HTA:APPLICATION ID="oHTA" />
<html>
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau mémo">
<input id="Effacer" type="button" value="Supprimer tout les mémos">
</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Effacer_Onclick
On Error Resume Next
Set memos=Window.Document.All("MemoId")
For Each m In memos
m.RemoveNode(True)
Next
Reecrire_Document
On Error Goto 0
End Sub

Sub Reecrire_Document
oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)
Location.Reload
End Sub

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)
Reecrire_Document
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV id=""MemoId""><INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "</DIV>"
Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>
</html>
<!---8<--->

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de news:
Bonjour !

Je voudrais également, dans le même style, rajouter un bouton, qui
supprimerais d'un coup tous les mémos.
(donc, au clic, suppression de toutes les ID, dans la source, et
réactualisation de la page).
Mais je suis encore bloqué par mon manque d'expérience. Est-ce faisable
?

Merci encore :-)

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:%
Bonjour,

par exemple :

<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">

</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)

oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)

Location.Reload
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV><INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"</DIV>"

Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte
saisi,


dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie directement
la


source de la page, à chaque ajout de mémo. C'est plus simple-
j'usqu'ici


!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer", mais
je


reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton "supprimer",
que


soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">


</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo & "<BR>"
Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr










Avatar
sympatix
Le plus simple AMHA est de donner un ID identique aux DIV qui
englobent les mémos et itérer la collection de ces DIV pour les

supprimer avec removeNode :
Super, ça fonctionne parfaitement !

Merci !

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:%
Bonjour,

Le plus simple AMHA est de donner un ID identique aux DIV qui
englobent les mémos et itérer la collection de ces DIV pour les

supprimer avec removeNode :

<!---8<--->
<HTA:APPLICATION ID="oHTA" />
<html>
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">

<input id="Effacer" type="button" value="Supprimer tout les mémos">
</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Effacer_Onclick
On Error Resume Next
Set memos=Window.Document.All("MemoId")
For Each m In memos
m.RemoveNode(True)
Next
Reecrire_Document
On Error Goto 0
End Sub

Sub Reecrire_Document

oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)

Location.Reload
End Sub

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)
Reecrire_Document
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV id=""MemoId""><INPUT NAME=""Supr_memo""
TYPE=""BUTTON""" _

& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"</DIV>"

Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>
</html>
<!---8<--->

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Bonjour !

Je voudrais également, dans le même style, rajouter un bouton, qui
supprimerais d'un coup tous les mémos.
(donc, au clic, suppression de toutes les ID, dans la source, et
réactualisation de la page).
Mais je suis encore bloqué par mon manque d'expérience. Est-ce
faisable


?

Merci encore :-)

Cordialement
Sympatix

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"Jean" <http:// a écrit dans le message de
news:%
Bonjour,

par exemple :

<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un nouveau
mémo">

</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Set oFSO= CreateObject("Scripting.FileSystemObject")
Path_hta = Mid(Unescape(Location),9)
Const Pour_Ajouter = 8

Sub Supprimer_Memo
Window.Event.SrcElement.ParentElement.RemoveNode(True)



oFSO.CreateTextFile(Path_hta).Write(Document.DocumentElement.OuterHTML)


Location.Reload
End Sub

Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<DIV><INPUT NAME=""Supr_memo""
TYPE=""BUTTON""" _



& " ONCLICK=""Supprimer_Memo """ _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"</DIV>"

Ecrit.Close
Location.Reload
End If
End Sub
</SCRIPT>

Amicalement,

Jean - JMST
Belgium

"sympatix" a écrit dans le message de
news:

Rebonjour !

J'ai un peu avancé dans mon projet (voir fil "Ajouter du texte
saisi,


dans une page HTA"),
et au lieu d'utiliser un fichier texte tiers, je modifie
directement




la
source de la page, à chaque ajout de mémo. C'est plus simple-
j'usqu'ici


!)
J'arrive à ajouter à côté de mes mémos, un bouton "Supprimer",
mais




je
reste bloqué là !
Comment s'y prendre, pour qu'en cliquant sur un bouton
"supprimer",




que
soit supprimé dans la source, le mémo correspondant ?
Voici la source de la page. Merci d'avance :-)

--------------------------------------------------
<HTA:APPLICATION ID="oHTA" />
<FORM NAME = A>
<INPUT NAME="Saisie_Memo" TYPE="BUTTON" VALUE="Ajouter un
nouveau




mémo">
</FORM>

<SCRIPT LANGUAGE = VBSCRIPT>
Private Sub Saisie_Memo_OnClick
Memo = InputBox ("Saisissez votre mémo:" , "Titre")
If Not Memo ="" Then
Const Pour_Ajouter = 8
Path_hta = Mid(Unescape(Location),9)
Set oFSO= CreateObject("Scripting.FileSystemObject")
Set Ecrit = oFSO.OpenTextfile(Path_hta , Pour_Ajouter)
Ecrit.writeline "<INPUT NAME=""Supr_memo"" TYPE=""BUTTON""" _
& "VALUE=""Supprimer""style=""{font-size:60%;}""> " & Memo &
"<BR>"




Ecrit.Close
document.location.reload()
End If
End Sub
</SCRIPT>
-----------------------------------------------

Cordialement
Sympatix

Attention, est mon adresse antispam
non




valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr