[À télécharger] un mini-editeur de texte

**SfJ5Rpw8** · 29/12/2010, 18h17

Bonjour, Je vous propose un nouvel élément à utiliser : un mini-editeur de texte

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.

Qu'en pensez-vous ?

**David55** · 30/12/2010, 20h24

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.

**SfJ5Rpw8** · 30/12/2010, 20h35

Oui pour l'utiliser il faut commencer par sélectionner le fichier à modifier...

j'ai rajouté un test...

**David55** · 30/12/2010, 20h41

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!

**hackoofr** · 01/01/2011, 04h37

Envoyé par David55

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 - Visualiser dans une fenêtre à part

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

**SfJ5Rpw8** · 03/01/2011, 16h03

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.