un mini-editeur de texte

Présentation
Le source suivant fourni une introduction a l'utilisation de FileSystemObject dans un HTA.

En prenant pour exemple un "mini-éditeur de texte" sans prétentions.
Téléchargement
2  0 
Téléchargé 32 fois Voir les 7 commentaires
Détails
Catégories : HTA
Avatar de SfJ5Rpw8
Expert éminent sénior
Voir tous les téléchargements de l'auteur
Licence : Non renseignée
Date de mise en ligne : 30 décembre 2010




Avatar de hackoofr hackoofr - Expert éminent https://www.developpez.com
le 01/01/2011 à 4:37
Citation Envoyé par David55 Voir le message
Merci c'est pratique!
Remarque: peut être faut il ajouter un message de confirmation lorsque nous sauvegardons le fichier afin de ne pas faire d'erreur!
Salut et Bonne Année à Tous , Oui je suis d'accord avec David55, peut être il faut ajouter un message de confirmation lors du sauvegarde du fichier a traiter !
Merci encore pour cette Contribution !
Code : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
' Sauvegarde du fichier texte
Sub btSauver_OnClick
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
Dim stFichier
  stfichier = inFichier.value
  if stFichier ="" then	
		Msgbox "Sélectionner le fichier a traiter",48,"Sélectionner le fichier a traiter"
		exit sub
  end if
  Set oFso = CreateObject("Scripting.FileSystemObject")
  Set f = oFso.OpenTextFile(stFichier, ForWriting)
  f.write txtFichier.value
  f.close
  MsgBox "Le Fichier " & inFichier.value & " a été bien Sauvgardé !",64,"Sauvegarde de Fichier !" 
  set f = Nothing
  set oFso = Nothing
end sub
Avatar de David55 David55 - Rédacteur https://www.developpez.com
le 30/12/2010 à 20:24
Bonjour,
Je viens d'essayer l'editeur de text.
J'ai saisi un mot puis appuyé sur sauver. Et là j'ai eu une erreur.
Avatar de SfJ5Rpw8 SfJ5Rpw8 - Expert éminent sénior https://www.developpez.com
le 30/12/2010 à 20:35
Oui pour l'utiliser il faut commencer par sélectionner le fichier à modifier...

j'ai rajouté un test...
Avatar de David55 David55 - Rédacteur https://www.developpez.com
le 30/12/2010 à 20:41
Merci c'est pratique!

Remarque: Peut être faut il ajouter un message de confirmation lorsque nous sauvegardons le fichier afin de ne pas faire d'erreur!
Avatar de SfJ5Rpw8 SfJ5Rpw8 - Expert éminent sénior https://www.developpez.com
le 03/01/2011 à 16:03
Merci, à vous 2 pour votre soutiens... bonne année aussi (si je vous l'ais pas déjà dit..)

en fait le but de ce source n'est pas de faire un éditeur de texte ... mais c'est plutôt pour montrer que l'on pouvait utiliser "Scripting.FileSystemObject" dans un Script HTA....

et c'est vrai que ce code est largement améliorable

Cdt.
Avatar de Misterhydergamer Misterhydergamer - Nouveau Candidat au Club https://www.developpez.com
le 28/08/2013 à 23:44
Bonjour, Où pourrait-on avoir les codes sources?
Cordialement:
MisterHyderGamer
Avatar de hackoofr hackoofr - Expert éminent https://www.developpez.com
le 29/08/2013 à 12:49
Citation Envoyé par Misterhydergamer Voir le message
Bonjour, Où pourrait-on avoir les codes sources?
Cordialement:
MisterHyderGamer

Si vous voulez dire: "Comment peut-on lire le code source d'une application HTA ?", alors, je vous conseille de télécharger HtaEdit


Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.