[ RESOLU] Suppression de chaînes de caractères

Suppression de chaînes de caractères [ RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 09-01-2007 à 15:25:11    

Salut tout le monde,
dans cette portion de code, je souhaite supprimer des caractères. Les constantes suppr 1 à 7 sont déclarées au préalable. Il n'y a pas d'erreur d'exécution cependant il ne se passe rien. En effet, les caractères que je veux supprimer ne sont pas supprimés!
 

Code :
  1. Set fichier_texte=FSO.OpenTextFile(creation_rep & "\" & id_ip & ".txt",1, true)
  2. st=fichier_texte.ReadAll
  3. replace st,suppr1,""
  4. replace st,suppr2,""
  5. replace st,suppr3,""
  6. replace st,suppr4,""
  7. replace st,suppr5,""
  8. replace st,suppr6,""
  9. replace st,suppr7,""
  11. fichier_texte.CLOSE


 
merci de bien vouloir m'aider  :jap:  :jap:  
 
C'est toujours du VBS  :pt1cable:  Je vais devenir malade à force d'en manger autant!!!!!!!!!! :pt1cable:  :pt1cable:  :D


Message édité par slr56 le 10-01-2007 à 16:11:55
Reply

Marsh Posté le 09-01-2007 à 15:25:11   

Reply

Marsh Posté le 09-01-2007 à 17:39:02    

Bonsoir,
En VBS ne faut-il pas faire un save avant le close?
( Je ne connais pas mais ....)
Cordialement


Message édité par seniorpapou le 10-01-2007 à 06:59:19
Reply

Marsh Posté le 10-01-2007 à 00:59:27    

Exemple pêché sur TechNet
http://www.microsoft.com/technet/s [...] y0208.mspx


Const ForReading = 1
Const ForWriting = 2
 
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForReading)
 
strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "Jim ", "James " )
 
Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close


Message édité par kiki29 le 10-01-2007 à 01:25:12
Reply

Marsh Posté le 10-01-2007 à 07:42:10    

Merci beaucoup!!!! Ca marche!!!!!!!!!!!!!!!!!!!!!!!!! C'est exactement ce qu'il me fallait!!! Merci KIKI29!!!
 
Merci quand même Seniorpapou mais le "save" ne fonctionne pas en VBS  :pt1cable:


Message édité par slr56 le 10-01-2007 à 16:11:09
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed