bimbo777
Messages postés63Date d'inscriptionmercredi 25 janvier 2006StatutMembreDernière intervention17 janvier 2007
-
25 janv. 2006 à 19:35
jannoman
Messages postés256Date d'inscriptionjeudi 17 avril 2003StatutMembreDernière intervention20 février 2008
-
26 janv. 2006 à 09:42
Bonsoir,
Voilà je vous explique mon pblm...en faite je me suis crée un script en vbs pour remplacer une chaine de caractère connue ds un fichier txt:
exemple replace "56", "60" (euh tout les 56 de mon fichier txt seront remplacés par des 60")
simplement je spécifie le nom de ce fichier txt en début de script reading et à la fin writting...j'aimerai simplement connaitre la syntaxe exact pour exécuter ce script sur tt les fichiers txt présents ds ce dossier. Genre ne plus spécifier test.txt mais *.txt
Pouvez vous m'aider svp?
Merci d'avance.
ps étant débutante je ne sais pas si cela est clair...
jannoman
Messages postés256Date d'inscriptionjeudi 17 avril 2003StatutMembreDernière intervention20 février 20081 26 janv. 2006 à 09:42
je n'ai plus le code en tête pour parcourir chaque fichier txt. pour ca cherche sur le forum ou autre "file system object" et normalement tu devrais voir plusieurs choses. apres, ben tu fais
dim a() as byte, f as integer, n as integer
f = freefile()
n = filelen(".....txt")
redim a(1 to n)
open ".....txt" for binary as #f
get #f,1,a
for k = 1 to n-1if a(k) asc("5") and a(k + 1) asc("6") then
a(k) = asc("6")
a(k + 1) = asc("0")
end if
next k